slow.el 9.63 KB
Newer Older
David Byers's avatar
David Byers committed
1
;;;;; -*-coding: iso-8859-1;-*-
David Kågedal's avatar
David Kågedal committed
2
3
;;;;;
;;;;; $Id$
4
;;;;; Copyright (C) 1991-2002  Lysator Academic Computer Association.
David Kågedal's avatar
David Kågedal committed
5
;;;;;
6
;;;;; This file is part of the LysKOM Emacs LISP client.
David Kågedal's avatar
David Kågedal committed
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
;;;;; 
;;;;; 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 Kågedal

(defvar lyskom-slow-mode-map
  (make-sparse-keymap)
  "Mode map for the `slow' lyskom command mode.")

44
45
46
47
(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)
48
49
50
51
52
53
(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)
David Byers's avatar
David Byers committed
54
55
56
(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)

57

58
59
60

(defun lyskom-slow-start-of-line ()
  "Move point to start of command, after LysKOM prompt."
David Kågedal's avatar
David Kågedal committed
61
62
  (goto-char (point-max))
  (save-restriction
David Byers's avatar
David Byers committed
63
    (when (> lyskom-last-viewed (point-max))
64
      (setq lyskom-last-viewed (point-max-marker)))
David Kågedal's avatar
David Kågedal committed
65
    (narrow-to-region lyskom-last-viewed (point-max))
David Byers's avatar
David Byers committed
66
67
68
69
70
    (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-+\\)")
71
72
      (goto-char (match-end 0)))))

David Byers's avatar
David Byers committed
73
74
75
76
(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)))

77
78
79
80
81
82
83

(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)
David Kågedal's avatar
David Kågedal committed
84
85
86
87
  (if (= (point) (point-max))
      nil
    (buffer-substring (point) (point-max))))

88
89
90
91
92
93
94
95
96
97
98
(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 (event-closest-point event)))
    (if (and (lyskom-slow-on-prompt-line pos)
David Byers's avatar
David Byers committed
99
             (<= (lyskom-slow-start-of-line-pos) pos))
100
101
        (let ((fn (lookup-key global-map (this-command-keys))))
          (when (commandp fn) (call-interactively fn)))
David Byers's avatar
David Byers committed
102
      (kom-button-click event))))
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

(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)))

118
(defun kom-slow-start-of-line ()
119
  "Move to the beginning of line or start of command if on the prompt line."
David Kågedal's avatar
David Kågedal committed
120
  (interactive)
121
122
123
  (if (lyskom-slow-on-prompt-line)
      (lyskom-slow-start-of-line)
    (beginning-of-line)))
124
125
126
127
128
129

(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)))
David Kågedal's avatar
David Kågedal committed
130
131
132
	 (command nil))
    (cond
     ((null text)
133
134
      (lyskom-beep t)
      nil)
David Kågedal's avatar
David Kågedal committed
135
     ((null completes)
136
      (goto-char saved-point)
David Kågedal's avatar
David Kågedal committed
137
      (lyskom-insert-before-prompt (lyskom-get-string 'no-such-command))
138
139
      (lyskom-beep t)
      nil)
David Byers's avatar
David Byers committed
140
     (exact
141
      (setq command (cons (lyskom-lookup-command-by-name (elt exact 0)) (point))))
David Kågedal's avatar
David Kågedal committed
142
     ((= (length completes) 1)
143
      (setq command (cons (lyskom-lookup-command-by-name (car completes)) (point)))
David Kågedal's avatar
David Kågedal committed
144
145
146
      (delete-region (point) (point-max))
      (insert (car completes)))
     ((> (length completes) 1)
147
      (let ((longest (try-completion text 'lyskom-complete-command)))
David Kågedal's avatar
David Kågedal committed
148
149
150
151
152
153
	(cond
	 ((eq longest 't)
	  (delete-region (point) (point-max))
	  (insert (car completes)))
	 ((stringp longest)
	  (delete-region (point) (point-max))
154
155
156
157
158
159
160
161
162
163
164
165
166
167
	  (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)
David Byers's avatar
David Byers committed
168
		(lyskom-slow-list-completions completes))
169
170
            (unless (or eager-completion (eq ?\  (char-before (point))) (insert " "))))
          ))
David Kågedal's avatar
David Kågedal committed
171
172
173
	 (t (signal 'lyskom-internal-error '()))))))
    command))

174
175
176
177
178
179
180
181
(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)))

182
183
184
185
186
187
188
189
190
191
192
(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))
David Kågedal's avatar
David Kågedal committed
193

David Byers's avatar
David Byers committed
194
(defun kom-expand-slow-or-next-command (&optional try-exact)
David Kågedal's avatar
David Kågedal committed
195
196
197
  "If any part of a slow command has been entered, call
`kom-expand-slow-command'. Otherwise, do `kom-next-command'."
  (interactive)
198
199
  (if (save-excursion (lyskom-get-entered-slow-command))
      (lyskom-expand-slow-command try-exact nil)
David Byers's avatar
David Byers committed
200
    (buffer-disable-undo)
David Kågedal's avatar
David Kågedal committed
201
202
203
204
205
206
    (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))
207
	 (command (and text (lyskom-expand-slow-command t nil))))
David Byers's avatar
David Byers committed
208
    (buffer-disable-undo)
David Kågedal's avatar
David Kågedal committed
209
210
211
212
213
214
215
    (cond
     ((null text)
      (call-interactively 'kom-next-command))
     (command
      (delete-region (cdr command) (point-max))
      (call-interactively (car command))))))

David Byers's avatar
David Byers committed
216
217
218
219
220
221
222
(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)))))  

223
224
225
(defun kom-slow-list-completions ()
  (interactive)
  (save-excursion
David Byers's avatar
David Byers committed
226
227
228
    (lyskom-slow-list-completions 
     (all-completions (or (lyskom-get-entered-slow-command) "")
		      'lyskom-complete-command))))
229

David Kågedal's avatar
David Kågedal committed
230
231

(defun kom-slow-mode ()
232
233
  "Starts the slow-command-mode. In this mode you write commands in the
main LysKOM buffer instead of using keyboard shortcuts."
David Kågedal's avatar
David Kågedal committed
234
235
  (interactive)
  (lyskom-start-of-command 'kom-slow-mode)
David Byers's avatar
David Byers committed
236
237
238
239
240
  (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))
David Kågedal's avatar
David Kågedal committed
241
242
243
  (lyskom-end-of-command))

(defun kom-quick-mode ()
244
245
246
  "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."
David Kågedal's avatar
David Kågedal committed
247
248
  (interactive)
  (lyskom-start-of-command 'kom-quick-mode)
David Byers's avatar
David Byers committed
249
250
251
252
  (when lyskom-slow-mode
    (setq buffer-read-only lyskom-saved-read-only)
    (setq lyskom-slow-mode nil)
    (use-local-map lyskom-mode-map))
David Kågedal's avatar
David Kågedal committed
253
254
255
  (lyskom-end-of-command))