slow.el 9.37 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
54
55
56
57
58
(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 'button2)) 'kom-slow-click-or-yank)
(define-key lyskom-slow-mode-map (kbd (lyskom-keys 'button2up)) 'kom-mouse-null)
(define-key lyskom-slow-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
(define-key lyskom-slow-mode-map (kbd (lyskom-keys 'button3up)) 'kom-mouse-null)

59
60
61

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


(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
81
82
83
84
  (if (= (point) (point-max))
      nil
    (buffer-substring (point) (point-max))))

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

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

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

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

171
172
173
174
175
176
177
178
(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)))

179
180
181
182
183
184
185
186
187
188
189
(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
190

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

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

David Kågedal's avatar
David Kågedal committed
227
228
229
230
231

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