Mercurial > emacs
annotate lisp/skeleton.el @ 12855:2481803f0338
(vip-set-hooks): Use view-mode-hook, not view-hook.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 14 Aug 1995 21:56:42 +0000 |
parents | 9d4a4e914215 |
children | 9d994b0faaa3 |
rev | line source |
---|---|
12501 | 1 ;;; skeleton.el --- Lisp language extension for writing statement skeletons |
2 ;; Copyright (C) 1993, 1994, 1995 by Free Software Foundation, Inc. | |
6463 | 3 |
12501 | 4 ;; Author: Daniel.Pfeiffer@Informatik.START.dbp.de, fax (+49 69) 7588-2389 |
6463 | 5 ;; Maintainer: FSF |
12501 | 6 ;; Keywords: extensions, abbrev, languages, tools |
6463 | 7 |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
23 | |
24 ;;; Commentary: | |
25 | |
12501 | 26 ;; A very concise language extension for writing structured statement |
6463 | 27 ;; skeleton insertion commands for programming language modes. This |
28 ;; originated in shell-script mode and was applied to ada-mode's | |
29 ;; commands which shrunk to one third. And these commands are now | |
30 ;; user configurable. | |
31 | |
32 ;;; Code: | |
33 | |
12501 | 34 ;; page 1: statement skeleton language definition & interpreter |
6463 | 35 ;; page 2: paired insertion |
36 ;; page 3: mirror-mode, an example for setting up paired insertion | |
37 | |
38 | |
39 (defvar skeleton-transformation nil | |
12501 | 40 "*If non-nil, function applied to literal strings before they are inserted. |
6463 | 41 It should take strings and characters and return them transformed, or nil |
42 which means no transformation. | |
43 Typical examples might be `upcase' or `capitalize'.") | |
44 | |
45 ; this should be a fourth argument to defvar | |
46 (put 'skeleton-transformation 'variable-interactive | |
47 "aTransformation function: ") | |
48 | |
49 | |
50 | |
12501 | 51 ;;;###autoload |
52 (defvar skeleton-filter 'identity | |
53 "Function for transforming a skeleton-proxy's aliases' variable value.") | |
54 | |
55 | |
56 (defvar skeleton-untabify t | |
57 "When non-`nil' untabifies when deleting backwards with element -ARG.") | |
58 | |
59 | |
60 (defvar skeleton-further-elements () | |
61 "A buffer-local varlist (see `let') of mode specific skeleton elements. | |
62 These variables are bound while interpreting a skeleton. Their value may | |
63 in turn be any valid skeleton element if they are themselves to be used as | |
64 skeleton elements.") | |
65 (make-variable-buffer-local 'skeleton-further-elements) | |
66 | |
67 | |
6463 | 68 (defvar skeleton-subprompt |
69 (substitute-command-keys | |
70 "RET, \\<minibuffer-local-map>\\[abort-recursive-edit] or \\[help-command]") | |
12501 | 71 "*Replacement for %s in prompts of recursive subskeletons.") |
6463 | 72 |
73 | |
12501 | 74 (defvar skeleton-abbrev-cleanup nil) |
75 | |
6463 | 76 |
77 (defvar skeleton-debug nil | |
78 "*If non-nil `define-skeleton' will override previous definition.") | |
79 | |
80 | |
81 ;;;###autoload | |
12501 | 82 (defmacro define-skeleton (command documentation &rest skeleton) |
6463 | 83 "Define a user-configurable COMMAND that enters a statement skeleton. |
84 DOCUMENTATION is that of the command, while the variable of the same name, | |
12501 | 85 which contains the skeleton, has a documentation to that effect. |
86 INTERACTOR and ELEMENT ... are as defined under `skeleton-insert'." | |
6463 | 87 (if skeleton-debug |
12501 | 88 (set command skeleton)) |
6463 | 89 (require 'backquote) |
90 (`(progn | |
12501 | 91 (defvar (, command) '(, skeleton) |
92 (, documentation)) | |
93 (defalias '(, command) 'skeleton-proxy)))) | |
6463 | 94 |
95 | |
96 | |
12501 | 97 ;; This command isn't meant to be called, only it's aliases with meaningful |
98 ;; names are. | |
6463 | 99 ;;;###autoload |
12501 | 100 (defun skeleton-proxy (&optional arg) |
101 "Insert a skeleton defined by variable of same name (see `skeleton-insert'). | |
102 Prefix ARG allows wrapping around words or regions (see `skeleton-insert'). | |
103 This command can also be an abbrev expansion (3rd and 4th columns in | |
104 \\[edit-abbrevs] buffer: \"\" command-name)." | |
105 (interactive "*P") | |
106 (let ((function (nth 1 (backtrace-frame 1)))) | |
107 (if (eq function 'nth) ; uncompiled lisp function | |
108 (setq function (nth 1 (backtrace-frame 5))) | |
109 (if (eq function 'byte-code) ; tracing byte-compiled function | |
110 (setq function (nth 1 (backtrace-frame 2))))) | |
111 (if (not (setq function (funcall skeleton-filter (symbol-value function)))) | |
112 (if (or (eq this-command 'self-insert-command) | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
113 (eq this-command 'skeleton-pair-insert-maybe) |
12501 | 114 (eq this-command 'expand-abbrev)) |
115 (setq buffer-undo-list | |
116 (primitive-undo 1 buffer-undo-list))) | |
117 (skeleton-insert function | |
118 nil | |
119 (if (setq skeleton-abbrev-cleanup | |
120 (or (eq this-command 'self-insert-command) | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
121 (eq this-command 'skeleton-pair-insert-maybe))) |
12501 | 122 () |
123 ;; Pretend C-x a e passed the prefix arg to us | |
124 (if (or arg current-prefix-arg) | |
125 (prefix-numeric-value (or arg | |
126 current-prefix-arg))))) | |
127 (if skeleton-abbrev-cleanup | |
128 (setq deferred-action-list t | |
129 deferred-action-function 'skeleton-abbrev-cleanup | |
130 skeleton-abbrev-cleanup (point)))))) | |
131 | |
132 | |
133 (defun skeleton-abbrev-cleanup (&rest list) | |
134 "Value for `post-command-hook' to remove char that expanded abbrev." | |
135 (if (integerp skeleton-abbrev-cleanup) | |
136 (progn | |
137 (delete-region skeleton-abbrev-cleanup (point)) | |
138 (setq deferred-action-list () | |
139 deferred-action-function nil | |
140 skeleton-abbrev-cleanup nil)))) | |
141 | |
142 | |
143 ;;;###autoload | |
144 (defun skeleton-insert (skeleton &optional no-newline regions) | |
145 "Insert the complex statement skeleton SKELETON describes very concisely. | |
6463 | 146 If optional NO-NEWLINE is nil the skeleton will end on a line of its own. |
147 | |
12501 | 148 With optional third REGIONS wrap first interesting point (`_') in skeleton |
149 around next REGIONS words, if REGIONS is positive. If REGIONS is negative, | |
150 wrap REGIONS preceding interregions into first REGIONS interesting positions | |
151 \(successive `_'s) in skeleton. An interregion is the stretch of text between | |
152 two contiguous marked points. If you marked A B C [] (where [] is the cursor) | |
153 in alphabetical order, the 3 interregions are simply the last 3 regions. But | |
154 if you marked B A [] C, the interregions are B-A, A-[], []-C. | |
155 | |
156 SKELETON is made up as (INTERACTOR ELEMENT ...). INTERACTOR may be nil if | |
157 not needed, a prompt-string or an expression for complex read functions. | |
6463 | 158 |
159 If ELEMENT is a string or a character it gets inserted (see also | |
160 `skeleton-transformation'). Other possibilities are: | |
161 | |
162 \\n go to next line and align cursor | |
12501 | 163 _ interesting point, interregion here, point after termination |
164 > indent line (or interregion if > _) according to major mode | |
165 & do next ELEMENT if previous moved point | |
166 | do next ELEMENT if previous didn't move point | |
167 -num delete num preceding characters (see `skeleton-untabify') | |
6463 | 168 resume: skipped, continue here if quit is signaled |
169 nil skipped | |
170 | |
12501 | 171 Further elements can be defined via `skeleton-further-elements'. ELEMENT may |
172 itself be a SKELETON with an INTERACTOR. The user is prompted repeatedly for | |
173 different inputs. The SKELETON is processed as often as the user enters a | |
174 non-empty string. \\[keyboard-quit] terminates skeleton insertion, but | |
175 continues after `resume:' and positions at `_' if any. If INTERACTOR in such | |
176 a subskeleton is a prompt-string which contains a \".. %s ..\" it is | |
177 formatted with `skeleton-subprompt'. | |
6463 | 178 |
12501 | 179 Quoted lisp-expressions are evaluated evaluated for their side-effect. |
6463 | 180 Other lisp-expressions are evaluated and the value treated as above. |
12501 | 181 Note that expressions may not return `t' since this impplies an |
182 endless loop. Modes can define other symbols by locally setting them | |
183 to any valid skeleton element. The following local variables are | |
184 available: | |
6463 | 185 |
12501 | 186 str first time: read a string according to INTERACTOR |
6463 | 187 then: insert previously read string once more |
12501 | 188 help help-form during interaction with the user or `nil' |
189 quit non-nil after resume: section is entered by keyboard quit | |
6463 | 190 v1, v2 local variables for memorising anything you want" |
12501 | 191 (and regions |
192 (setq regions | |
193 (if (> regions 0) | |
194 (list (point-marker) | |
195 (save-excursion (forward-word regions) (point-marker))) | |
196 (setq regions (- regions)) | |
197 ;; copy regions - 1 elements from `mark-ring' | |
198 (let ((l1 (cons (mark-marker) mark-ring)) | |
199 (l2 (list (point-marker)))) | |
200 (while (and l1 (> regions 0)) | |
201 (setq l2 (cons (car l1) l2) | |
202 regions (1- regions) | |
203 l1 (cdr l1))) | |
204 (sort l2 '<)))) | |
205 (goto-char (car regions)) | |
206 (setq regions (cdr regions))) | |
207 (let (modified point resume: help quit v1 v2) | |
6463 | 208 (or no-newline |
209 (eolp) | |
12501 | 210 ;;(save-excursion |
211 ;; (indent-to (prog1 | |
212 ;; (current-indentation) | |
213 ;; (newline)))) | |
214 (goto-char (prog1 (point) | |
215 (indent-to (prog1 | |
216 (current-indentation) | |
217 (newline)))))) | |
218 (unwind-protect | |
219 (eval (list 'let skeleton-further-elements | |
220 '(skeleton-internal-list skeleton (car skeleton)))) | |
221 (if point | |
222 (goto-char point))))) | |
6463 | 223 |
224 | |
225 | |
12501 | 226 (defun skeleton-read (str &optional initial-input recursive) |
227 "Function for reading a string from the minibuffer in skeletons. | |
228 PROMPT may contain a `%s' which will be replaced by `skeleton-subprompt'. | |
229 If non-`nil' second arg INITIAL-INPUT is a string to insert before reading. | |
230 While reading, the value of `minibuffer-help-form' is variable `help' if that is | |
231 non-`nil' or a default string if optional ITERATIVE is non-`nil'." | |
232 | |
233 (or no-newline | |
234 (eolp) | |
235 (goto-char (prog1 (point) | |
236 (indent-to (prog1 | |
237 (current-indentation) | |
238 (newline)))))) | |
239 (let ((minibuffer-help-form (or help (if recursive "\ | |
6463 | 240 As long as you provide input you will insert another subskeleton. |
241 | |
242 If you enter the empty string, the loop inserting subskeletons is | |
243 left, and the current one is removed as far as it has been entered. | |
244 | |
245 If you quit, the current subskeleton is removed as far as it has been | |
246 entered. No more of the skeleton will be inserted, except maybe for a | |
12501 | 247 syntactically necessary termination." |
248 " | |
249 You are inserting a skeleton. Standard text gets inserted into the buffer | |
250 automatically, and you are prompted to fill in the variable parts.")))) | |
6463 | 251 (setq str (if (stringp str) |
12501 | 252 (read-string (format str skeleton-subprompt) initial-input) |
6463 | 253 (eval str)))) |
12501 | 254 (if (or (null str) (string= str "")) |
6463 | 255 (signal 'quit t) |
256 str)) | |
257 | |
258 | |
12501 | 259 (defun skeleton-internal-list (skeleton &optional str recursive) |
260 (let* ((start (save-excursion (beginning-of-line) (point))) | |
261 (column (current-column)) | |
262 (line (buffer-substring start | |
263 (save-excursion (end-of-line) (point)))) | |
264 opoint) | |
265 (condition-case quit | |
266 (progn | |
267 '(setq str (list 'setq 'str | |
268 (if recursive | |
269 (list 'skeleton-read (list 'quote str)) | |
270 (list (if (stringp str) | |
271 'read-string | |
272 'eval) | |
273 str)))) | |
274 (setq str (list 'setq 'str | |
275 (list 'skeleton-read | |
276 (list 'quote str nil recursive)))) | |
277 (while (setq modified (eq opoint (point)) | |
278 opoint (point) | |
279 skeleton (cdr skeleton)) | |
280 (skeleton-internal-1 (car skeleton))) | |
281 ;; maybe continue loop | |
282 recursive) | |
283 (quit ;; remove the subskeleton as far as it has been shown | |
284 (if (eq (cdr quit) 'recursive) | |
285 () | |
286 ;; the subskeleton shouldn't have deleted outside current line | |
287 (end-of-line) | |
288 (delete-region start (point)) | |
289 (insert line) | |
290 (move-to-column column)) | |
291 (if (eq (cdr quit) t) | |
292 ;; empty string entered | |
293 nil | |
294 (while (if skeleton | |
295 (not (eq (car (setq skeleton (cdr skeleton))) | |
296 'resume:)))) | |
297 (if skeleton | |
298 (skeleton-internal-list skeleton) | |
299 ;; propagate signal we can't handle | |
300 (if recursive (signal 'quit 'recursive))) | |
301 (signal 'quit nil)))))) | |
6463 | 302 |
303 | |
12501 | 304 (defun skeleton-internal-1 (element &optional literal) |
305 (cond ((and (integerp element) ; -num | |
7393
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
306 (< element 0)) |
12501 | 307 (if skeleton-untabify |
308 (backward-delete-char-untabify (- element)) | |
309 (delete-backward-char (- element)))) | |
7393
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
310 ((char-or-string-p element) |
12501 | 311 (insert-before-markers (if (and skeleton-transformation |
312 (not literal)) | |
313 (funcall skeleton-transformation element) | |
314 element))) | |
7393
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
315 ((eq element '\n) ; actually (eq '\n 'n) |
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
316 (newline) |
12501 | 317 (indent-relative t)) |
7393
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
318 ((eq element '>) |
12501 | 319 (if (and regions |
320 (eq (nth 1 skeleton) '_)) | |
321 (indent-region (point) (car regions) nil) | |
322 (indent-for-tab-command))) | |
7393
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
323 ((eq element '_) |
12501 | 324 (if regions |
325 (progn | |
326 (goto-char (car regions)) | |
327 (setq regions (cdr regions))) | |
328 (or point | |
329 (setq point (point))))) | |
7393
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
330 ((eq element '&) |
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
331 (if modified |
12501 | 332 (setq skeleton (cdr skeleton)))) |
7393
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
333 ((eq element '|) |
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
334 (or modified |
12501 | 335 (setq skeleton (cdr skeleton)))) |
7393
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
336 ((if (consp element) |
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
337 (or (stringp (car element)) |
e4a565cee722
(mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents:
6463
diff
changeset
|
338 (consp (car element)))) |
12501 | 339 (while (skeleton-internal-list element (car element) t))) |
340 ((if (consp element) | |
341 (eq 'quote (car element))) | |
342 (eval (nth 1 element))) | |
343 ((null element)) | |
344 ((skeleton-internal-1 (eval element) t)))) | |
345 | |
346 ;; Maybe belongs into simple.el or elsewhere | |
6463 | 347 |
12501 | 348 (define-skeleton local-variables-section |
349 "Insert a local variables section. Use current comment syntax if any." | |
350 () | |
351 '(save-excursion | |
352 (if (re-search-forward page-delimiter nil t) | |
353 (error "Not on last page."))) | |
354 comment-start "Local Variables:" comment-end \n | |
355 comment-start "mode: " | |
356 (completing-read "Mode: " obarray | |
357 (lambda (symbol) | |
358 (if (commandp symbol) | |
359 (string-match "-mode$" (symbol-name symbol)))) | |
360 t) | |
361 & -5 | '(kill-line 0) & -1 | comment-end \n | |
362 ( (completing-read (format "Variable, %s: " skeleton-subprompt) | |
363 obarray | |
364 (lambda (symbol) | |
365 (or (eq symbol 'eval) | |
366 (user-variable-p symbol))) | |
367 t) | |
368 comment-start str ": " | |
369 (read-from-minibuffer "Expression: " nil read-expression-map nil | |
370 'read-expression-history) | _ | |
371 comment-end \n) | |
372 resume: | |
373 comment-start "End:" comment-end) | |
6463 | 374 |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
375 ;; Variables and command for automatically inserting pairs like () or "". |
6463 | 376 |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
377 (defvar skeleton-pair nil |
6463 | 378 "*If this is nil pairing is turned off, no matter what else is set. |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
379 Otherwise modes with `skeleton-pair-insert-maybe' on some keys |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
380 will attempt to insert pairs of matching characters.") |
6463 | 381 |
382 | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
383 (defvar skeleton-pair-on-word nil |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
384 "*If this is nil, paired insertion is inhibited before or inside a word.") |
6463 | 385 |
386 | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
387 (defvar skeleton-pair-filter (lambda ()) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
388 "Attempt paired insertion if this function returns nil, before inserting. |
6463 | 389 This allows for context-sensitive checking whether pairing is appropriate.") |
390 | |
391 | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
392 (defvar skeleton-pair-alist () |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
393 "An override alist of pairing partners matched against `last-command-char'. |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
394 Each alist element, which looks like (ELEMENT ...), is passed to |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
395 `skeleton-insert' with no interactor. Variable `str' does nothing. |
6463 | 396 |
12501 | 397 Elements might be (?` ?` _ \"''\"), (?\\( ? _ \" )\") or (?{ \\n > _ \\n ?} >).") |
6463 | 398 |
399 | |
400 ;;;###autoload | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
401 (defun skeleton-pair-insert-maybe (arg) |
6463 | 402 "Insert the character you type ARG times. |
403 | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
404 With no ARG, if `skeleton-pair' is non-nil, and if |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
405 `skeleton-pair-on-word' is non-nil or we are not before or inside a |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
406 word, and if `skeleton-pair-filter' returns nil, pairing is performed. |
6463 | 407 |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
408 If a match is found in `skeleton-pair-alist', that is inserted, else |
6463 | 409 the defaults are used. These are (), [], {}, <> and `' for the |
410 symmetrical ones, and the same character twice for the others." | |
411 (interactive "*P") | |
412 (if (or arg | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
413 (not skeleton-pair) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
414 (if (not skeleton-pair-on-word) (looking-at "\\w")) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
415 (funcall skeleton-pair-filter)) |
6463 | 416 (self-insert-command (prefix-numeric-value arg)) |
12501 | 417 (self-insert-command 1) |
418 (if skeleton-abbrev-cleanup | |
419 () | |
420 ;; (preceding-char) is stripped of any Meta-stuff in last-command-char | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
421 (if (setq arg (assq (preceding-char) skeleton-pair-alist)) |
12501 | 422 ;; typed char is inserted, and car means no interactor |
423 (skeleton-insert arg t) | |
424 (save-excursion | |
425 (insert (or (cdr (assq (preceding-char) | |
426 '((?( . ?)) | |
427 (?[ . ?]) | |
428 (?{ . ?}) | |
429 (?< . ?>) | |
430 (?` . ?')))) | |
431 last-command-char))))))) | |
6463 | 432 |
433 | |
12619
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
434 ;;; ;; A more serious example can be found in sh-script.el |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
435 ;;; ;; The quote before (defun prevents this from being byte-compiled. |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
436 ;;;(defun mirror-mode () |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
437 ;;; "This major mode is an amusing little example of paired insertion. |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
438 ;;;All printable characters do a paired self insert, while the other commands |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
439 ;;;work normally." |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
440 ;;; (interactive) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
441 ;;; (kill-all-local-variables) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
442 ;;; (make-local-variable 'pair) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
443 ;;; (make-local-variable 'pair-on-word) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
444 ;;; (make-local-variable 'pair-filter) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
445 ;;; (make-local-variable 'pair-alist) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
446 ;;; (setq major-mode 'mirror-mode |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
447 ;;; mode-name "Mirror" |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
448 ;;; pair-on-word t |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
449 ;;; ;; in the middle column insert one or none if odd window-width |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
450 ;;; pair-filter (lambda () |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
451 ;;; (if (>= (current-column) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
452 ;;; (/ (window-width) 2)) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
453 ;;; ;; insert both on next line |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
454 ;;; (next-line 1) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
455 ;;; ;; insert one or both? |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
456 ;;; (= (* 2 (1+ (current-column))) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
457 ;;; (window-width)))) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
458 ;;; ;; mirror these the other way round as well |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
459 ;;; pair-alist '((?) _ ?() |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
460 ;;; (?] _ ?[) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
461 ;;; (?} _ ?{) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
462 ;;; (?> _ ?<) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
463 ;;; (?/ _ ?\\) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
464 ;;; (?\\ _ ?/) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
465 ;;; (?` ?` _ "''") |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
466 ;;; (?' ?' _ "``")) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
467 ;;; ;; in this mode we exceptionally ignore the user, else it's no fun |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
468 ;;; pair t) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
469 ;;; (let ((map (make-keymap)) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
470 ;;; (i ? )) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
471 ;;; (use-local-map map) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
472 ;;; (setq map (car (cdr map))) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
473 ;;; (while (< i ?\^?) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
474 ;;; (aset map i 'skeleton-pair-insert-maybe) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
475 ;;; (setq i (1+ i)))) |
9d4a4e914215
(local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
12501
diff
changeset
|
476 ;;; (run-hooks 'mirror-mode-hook)) |
6463 | 477 |
478 ;; skeleton.el ends here |