slow.el 9.39 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
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
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996  Lysator Academic Computer Association.
;;;;;
;;;;; This file is part of the LysKOM server.
;;;;; 
;;;;; 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
64
    (when (> lyskom-last-viewed (point-max))
      (setq lyskom-last-viewed (point-max)))
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
232
233
234

(defun kom-slow-mode ()
  "Starts the slow-command-mode."
  (interactive)
  (lyskom-start-of-command 'kom-slow-mode)
David Byers's avatar
David Byers committed
235
236
237
238
239
  (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
240
241
242
243
244
245
  (lyskom-end-of-command))

(defun kom-quick-mode ()
  "Starts the quick-command-mode."
  (interactive)
  (lyskom-start-of-command 'kom-quick-mode)
David Byers's avatar
David Byers committed
246
247
248
249
  (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
250
251
252
  (lyskom-end-of-command))