1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; Copyright (C) 1991-2002 Lysator Academic Computer Association.
;;;;;
;;;;; This file is part of the LysKOM Emacs LISP client.
;;;;;
;;;;; LysKOM is free software; you can redistribute it and/or modify it
;;;;; under the terms of the GNU General Public License as published by
;;;;; the Free Software Foundation; either version 2, or (at your option)
;;;;; any later version.
;;;;;
;;;;; LysKOM is distributed in the hope that it will be useful, but WITHOUT
;;;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;;;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;;;;; for more details.
;;;;;
;;;;; You should have received a copy of the GNU General Public License
;;;;; along with LysKOM; see the file COPYING. If not, write to
;;;;; Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
;;;;; or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
;;;;; MA 02139, USA.
;;;;;
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se.
;;;;;
;;;; ================================================================
;;;; ================================================================
;;;;
;;;; File: slow.el
;;;;
;;;; This file contains the code that makes it possible to run a
;;;; long-commands mode in the lyskom-buffer.
;;;;
;;;; ================================================================
;;;;
;;; Author: Linus Tolke
;;; Modified by: David Kgedal
(defvar lyskom-slow-mode-map
(make-sparse-keymap)
"Mode map for the `slow' lyskom command mode.")
(define-key lyskom-slow-mode-map (kbd "RET") 'kom-parse-command-and-execute)
(define-key lyskom-slow-mode-map (kbd "SPC") 'kom-expand-slow-or-next-command)
(define-key lyskom-slow-mode-map (kbd "C-a") 'kom-slow-start-of-line)
(define-key lyskom-slow-mode-map (kbd "?") 'kom-slow-list-completions)
(define-key lyskom-slow-mode-map (kbd "*") 'kom-slow-button-press)
(define-key lyskom-slow-mode-map (kbd "=") 'kom-slow-menu-button-press)
(define-key lyskom-slow-mode-map (kbd "TAB") 'kom-expand-slow-command-or-next-link)
(define-key lyskom-slow-mode-map (kbd "M-TAB") 'kom-previous-link)
(define-key lyskom-slow-mode-map (kbd "C-i") 'kom-expand-slow-command-or-next-link)
(define-key lyskom-slow-mode-map (kbd "M-C-i") 'kom-previous-link)
(define-key lyskom-slow-mode-map (kbd (lyskom-keys 'button2up)) 'kom-slow-click-or-yank)
(define-key lyskom-slow-mode-map (kbd (lyskom-keys 'button3up)) 'kom-popup-menu)
(defun lyskom-slow-start-of-line ()
"Move point to start of command, after LysKOM prompt."
(goto-char (point-max))
(save-restriction
(when (> lyskom-last-viewed (point-max))
(setq lyskom-last-viewed (point-max-marker)))
(narrow-to-region lyskom-last-viewed (point-max))
(if (search-backward lyskom-current-prompt-text nil t)
(forward-char (length lyskom-current-prompt-text))
(goto-char (point-max))
(beginning-of-line))
(when (looking-at "\\(\\s-+\\)")
(goto-char (match-end 0)))))
(defun lyskom-slow-start-of-line-pos ()
"Return the starting position for entry text on the current line."
(save-excursion (lyskom-slow-start-of-line) (point)))
(defun lyskom-get-entered-slow-command ()
"Get the text that the user has entered after the last prompt.
Note that this function leaves point at the end of the prompt.
If no text is entered, nil is returned."
(lyskom-slow-start-of-line)
(if (= (point) (point-max))
nil
(buffer-substring (point) (point-max))))
(defun lyskom-slow-on-prompt-line (&optional where)
"Return non-nil if point is on the line containing the prompt.
Currently the prompt is assumed to be on the last line of the buffer."
(eq (save-excursion (when where (goto-char where)) (beginning-of-line) (point))
(save-excursion (goto-char (point-max)) (beginning-of-line) (point))))
(defun kom-slow-click-or-yank (event)
"Click on a LysKOM button or do the default action if after the prompt."
(interactive "@e")
(let ((pos (lyskom-event-closest-point event)))
(if (and (lyskom-slow-on-prompt-line pos)
(<= (lyskom-slow-start-of-line-pos) pos))
(let ((fn (lookup-key global-map (this-command-keys))))
(when (commandp fn) (call-interactively fn)))
(kom-button-click event))))
(defun kom-slow-button-press ()
"Run kom-button-press unless on the prompt line."
(interactive)
(if (lyskom-slow-on-prompt-line)
(call-interactively 'self-insert-command)
(kom-button-press)))
(defun kom-slow-menu-button-press ()
"Run kom-menu-button-press unless on the prompt line."
(interactive)
(if (lyskom-slow-on-prompt-line)
(call-interactively 'self-insert-command)
(kom-menu-button-press)))
(defun kom-slow-start-of-line ()
"Move to the beginning of line or start of command if on the prompt line."
(interactive)
(if (lyskom-slow-on-prompt-line)
(lyskom-slow-start-of-line)
(beginning-of-line)))
(defun lyskom-expand-slow-command (try-exact eager-completion)
(let* ((saved-point (point-marker))
(text (lyskom-get-entered-slow-command))
(exact (and text try-exact (lyskom-complete-command text nil 'lambda)))
(completes (and text (all-completions text 'lyskom-complete-command)))
(command nil))
(cond
((null text)
(lyskom-beep t)
nil)
((null completes)
(goto-char saved-point)
(lyskom-insert-before-prompt (lyskom-get-string 'no-such-command))
(lyskom-beep t)
nil)
(exact
(setq command (cons (lyskom-lookup-command-by-name (elt exact 0)) (point))))
((= (length completes) 1)
(setq command (cons (lyskom-lookup-command-by-name (car completes)) (point)))
(delete-region (point) (point-max))
(insert (car completes)))
((> (length completes) 1)
(let ((longest (try-completion text 'lyskom-complete-command)))
(cond
((eq longest 't)
(delete-region (point) (point-max))
(insert (car completes)))
((stringp longest)
(delete-region (point) (point-max))
(insert longest)
;; If the completion is the same as the entered string
;; then we either add a space if there was none at the
;; end or list all possible completions *and* add a
;; space (since it has been killed).
(let* ((have-space (string-match "\\s-+$" text))
(text (if have-space (substring text 0 (match-beginning 0)) text))
(longest (if (string-match "\\s-+$" longest)
(substring longest 0 (match-beginning 0))
longest)))
(when (lyskom-string= (lyskom-unicase longest) (lyskom-unicase text))
(if (or have-space eager-completion)
(lyskom-slow-list-completions completes))
(unless (or eager-completion (eq ?\ (lyskom-char-before (point))) (insert " "))))
))
(t (signal 'lyskom-internal-error '()))))))
command))
(defun kom-expand-slow-command-or-next-link ()
"If on the prompt line, run kom-expand-slow-command.
Otherwise run kom-next-link."
(interactive)
(if (lyskom-slow-on-prompt-line)
(call-interactively 'kom-expand-slow-command)
(call-interactively 'kom-next-link)))
(defun kom-expand-slow-command (&optional try-exact)
"Tries to complete the command at point.
If optional TRY-EXACT is non-nil, look for an exact match.
If the completion was exact return a pair `(COMMAND . POINT)' where
COMMAND is the command and POINT is the point where the command text
starts.
If the completion was not exact it returns nil."
(interactive)
(lyskom-expand-slow-command try-exact t))
(defun kom-expand-slow-or-next-command (&optional try-exact)
"If any part of a slow command has been entered, call
`kom-expand-slow-command'. Otherwise, do `kom-next-command'."
(interactive)
(if (save-excursion (lyskom-get-entered-slow-command))
(lyskom-expand-slow-command try-exact nil)
(buffer-disable-undo)
(kom-next-command)))
(defun kom-parse-command-and-execute ()
"Reads a command from the last line in the buffer and executes it."
(interactive)
(let* ((text (lyskom-get-entered-slow-command))
(command (and text (lyskom-expand-slow-command t nil))))
(buffer-disable-undo)
(cond
((null text)
(call-interactively 'kom-next-command))
(command
(delete-region (cdr command) (point-max))
(call-interactively (car command))))))
(defun lyskom-slow-list-completions (completes)
"List strings in COMPLETES as possible completions for a command."
(cond (completes (lyskom-format-insert-before-prompt
'command-completions
(mapconcat 'identity (sort completes 'string-lessp) "\n ")))
(t (lyskom-insert-before-prompt (lyskom-get-string 'no-such-command)))))
(defun kom-slow-list-completions ()
(interactive)
(save-excursion
(lyskom-slow-list-completions
(all-completions (or (lyskom-get-entered-slow-command) "")
'lyskom-complete-command))))
(def-kom-command kom-slow-mode ()
"Starts the slow-command-mode. In this mode you write commands in the
main LysKOM buffer instead of using keyboard shortcuts."
(interactive)
(unless lyskom-slow-mode
(setq lyskom-saved-read-only buffer-read-only)
(setq lyskom-slow-mode t)
(setq buffer-read-only nil)
(use-local-map lyskom-slow-mode-map)))
(def-kom-command kom-quick-mode ()
"Starts the quick command mode. This is the standard mode for LysKOM,
where you use keyboard shortcuts for most commands, and the \"x\" prefix
for all other commands."
(interactive)
(when lyskom-slow-mode
(setq buffer-read-only lyskom-saved-read-only)
(setq lyskom-slow-mode nil)
(use-local-map lyskom-mode-map)))
|
