Mercurial > emacs
annotate etc/srecode/el.srt @ 106177:cb523092ddfd
* xterm.c (x_new_font):
* print.c (print_object):
* cmds.c (Fself_insert_command): Move declarations before statements.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sat, 21 Nov 2009 02:33:45 +0000 |
parents | 84fc40980c51 |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
105407
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; el.srt --- SRecode templates for Emacs Lisp mode |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
3 ;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
4 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
5 ;; Author: Eric Ludlam <zappo@gnu.org> |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
6 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
7 ;; This file is part of GNU Emacs. |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
8 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 ;; GNU Emacs is free software: you can redistribute it and/or modify |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 ;; it under the terms of the GNU General Public License as published by |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
11 ;; the Free Software Foundation, either version 3 of the License, or |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 ;; (at your option) any later version. |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
13 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
14 ;; GNU Emacs is distributed in the hope that it will be useful, |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 ;; GNU General Public License for more details. |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
18 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
19 ;; You should have received a copy of the GNU General Public License |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
21 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
22 set escape_start "$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
23 set escape_end "$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
24 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 set mode "emacs-lisp-mode" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 set comment_start ";;;" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
28 set comment_prefix ";;" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 set comment_end "" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
30 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
31 set DOLLAR "$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
32 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
33 context file |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
34 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
35 template section-comment :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
36 "Insert a comment that separates sections of an Emacs Lisp file." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
37 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
38 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
39 ;;; $^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
40 ;; |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
41 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 bind "s" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
46 template empty :user :time :file |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 "Insert a skeleton for an Emacs Lisp file." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 $>:filecomment$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 ;;; Commentary: |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 ;; |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 ;; $^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 ;;; Code: |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 (provide '$FILE$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 ;;; $FILENAME$ ends here |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
64 prompt MODESYM "Major Mode Symbol (sans -mode): " |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 prompt MODENAME "Nice Name of mode: " defaultmacro "MODESYM" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 prompt MODEEXTENSION "File name extension for mode: " |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 template major-mode :file :blank :indent |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 "Insert the framework needed for a major mode." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
70 sectiondictionary "FONTLOCK" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
71 set NAME macro "MODESYM" "-mode-font-lock-keywords" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 set DOC "Keywords for use with srecode macros and font-lock." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
73 sectiondictionary "MODEHOOK" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 set NAME macro "MODESYM" "-mode-hook" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 set DOC "Hook run when " macro "MODESYM" " starts." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 set GROUP macro "MODESYM" "-mode" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 set CUSTOMTYPE "'hook" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 sectiondictionary "MODEFCN" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 set NAME macro "MODESYM" "-mode" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 set DOC "Major-mode for " macro "MODESYM" "-mode buffers." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
81 set INTERACTIVE "" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
82 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 $>:declaration:defgroup$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
85 $>:syntax-table$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 $<FONTLOCK:declaration:variable$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 '( |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
89 ) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 $/FONTLOCK$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 $>:declaration:keymap$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
93 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 $<MODEHOOK:declaration:variable-option$nil$/MODEHOOK$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
95 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
96 ;;;###autoload |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 $<MODEFCN:declaration:function$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 (interactive) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 (kill-all-local-variables) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 (setq major-mode '$MODESYM$-mode |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 mode-name "$?MODENAME$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 comment-start ";;" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 comment-end "") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 (set (make-local-variable 'comment-start-skip) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 (set-syntax-table $MODESYM$-mode-syntax-table) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 (use-local-map $MODESYM$-mode-map) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 (set (make-local-variable 'font-lock-defaults) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 '($MODESYM$-mode-font-lock-keywords |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 nil ;; perform string/comment fontification |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 nil ;; keywords are case sensitive. |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 ;; This puts _ & - as a word constituant, |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 ;; simplifying our keywords significantly |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
114 ((?_ . "w") (?- . "w")))) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 (run-hooks '$MODESYM$-mode-hook) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 $/MODEFCN$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
117 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
118 ;;;###autoload |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
119 (add-to-list 'auto-mode-alist '("\\.$?MODEEXTENSION$$DOLLAR$" . $MODESYM$-mode)) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
121 $<A:section-comment$Commands for $MODESYM$$/A$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
122 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
123 $<B:section-comment$Utils for $MODESYM$$/B$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
125 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 template syntax-table |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 "Create a syntax table." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
128 sectiondictionary "A" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
129 set NAME macro "?MODESYM" "-mode-syntax-table" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 set DOC "Syntax table used in " macro "?MODESYM" " buffers." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
132 $<A:declaration:variable$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 (let ((table (make-syntax-table (standard-syntax-table)))) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
134 (modify-syntax-entry ?\; ". 12" table) ;; SEMI, Comment start ;; |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 (modify-syntax-entry ?\n ">" table) ;; Comment end |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 (modify-syntax-entry ?\" "\"" table) ;; String |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 (modify-syntax-entry ?\- "_" table) ;; Symbol |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 (modify-syntax-entry ?\\ "\\" table) ;; Quote |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 (modify-syntax-entry ?\` "'" table) ;; Prefix ` (backquote) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
140 (modify-syntax-entry ?\' "'" table) ;; Prefix ' (quote) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 (modify-syntax-entry ?\, "'" table) ;; Prefix , (comma) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
142 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 table) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 $/A$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
145 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
148 context declaration |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
149 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 template include :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
151 "Insert a require statement." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
152 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 (require '$?NAME$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 bind "i" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 template include-protected :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 "Insert a require statement." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
160 (condition-case nil |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 (require '$?NAME$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 (error nil)) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
164 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
165 prompt INTERACTIVE "Is this an interactive function? " default " (interactive)\n " read y-or-n-p |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 prompt NAME "Name: " defaultmacro "PRENAME" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 template function :el :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 "Insert a defun outline." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 (defun $?NAME$ ($#ARGS$$NAME$$#NOTLAST$ $/NOTLAST$$/ARGS$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
172 "$DOC$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
173 $?INTERACTIVE$$^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
174 ) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
175 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
176 bind "f" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
177 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
178 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
179 template variable :el :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
180 "Inert a variable. |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
181 DOC is optional." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
182 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
183 (defvar $?NAME$ $^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
184 "$DOC$") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
185 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
186 bind "v" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
187 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
188 template variable-const :el :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
189 "Inert a variable." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
190 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 (defconst $?NAME$ $^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
192 "$DOC$") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
193 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
194 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
195 template variable-option :el :el-custom :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
196 "Inert a variable created using defcustom." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
197 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
198 (defcustom $?NAME$ $^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
199 "*$DOC$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
200 :group $GROUP$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
201 :type $?CUSTOMTYPE$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
202 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
203 bind "o" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
204 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
205 template class :el :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
206 "Insert a new class." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
207 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 (defclass $?NAME$ () |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
209 (($?ARG1$ :initarg :$ARG1$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
210 :documentation |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
211 "$^$") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
212 ) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
213 "Class $NAME$ ") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
214 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 bind "c" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
216 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
217 template class-tag :el :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
218 "Insert a new class." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
219 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
220 (defclass $?NAME$ ($#PARENTS$$NAME$ $/PARENTS$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
221 ($^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
222 ) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
223 "Class $NAME$ ") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
224 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
225 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
226 template method :el :ctxt :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
227 "Insert a new method." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
228 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
229 (defmethod $?NAME$ ((this $?PARENT$)) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
230 "$DOC$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
231 $^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
232 ) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
233 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
234 bind "m" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
235 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
236 template method-tag :el :ctxt :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
237 "Insert a new method for tag inserter." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
238 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
239 (defmethod $NAME$ ($#ARGS$$#FIRST$($NAME$ $PARENT$)$/FIRST$$#NOTFIRST$ $NAME$$/NOTFIRST$$/ARGS$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
240 "$DOC$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
241 $^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
242 ) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
243 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
244 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
245 prompt NAME "Method to Override: " defaultmacro "PRENAME" read mode-local-read-function |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
246 prompt PARENT "Major Mode for binding: " defaultmacro "MODESYM" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
247 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
248 ;; Note: PARENT is used for override methods and for classes. Handy! |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
249 template modelocal :el :ctxt :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
250 "Insert a new mode-local function." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
251 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
252 (define-mode-local-override $?NAME$ $?PARENT$ () |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
253 "$DOC$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
254 $^$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
255 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
256 bind "l" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
257 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
258 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
259 template defgroup :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
260 "Create a custom group." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
261 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
262 (defgroup $?MODESYM$-mode nil |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
263 "$MODESYM$ group." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
264 :group 'langauges) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
265 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
266 bind "g" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
267 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
268 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
269 template keymap :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
270 "Insert a keymap of some sort" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
271 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
272 (defvar $?MODESYM$-mode-map |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
273 (let ((km (make-sparse-keymap))) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
274 (define-key km "\C-c\C-c" '$MODESYM$-mode$^$) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
275 km) |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
276 "Keymap used in `$MODESYM$-mode'.") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
277 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
278 bind "k" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
279 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
280 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
281 context classdecl |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
282 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
283 prompt NAME "Slot Name: " |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
284 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
285 template variable-tag :indent :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
286 "A field in a class." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
287 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
288 ($?NAME$ :initarg :$NAME$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
289 $#DEFAULTVALUE$:initform $VALUE$$/DEFAULTVALUE$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
290 :documentation |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
291 "$DOC$") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
292 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
293 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
294 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
295 template variable :indent :indent :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
296 "A field in a class." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
297 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
298 ($?NAME$ :initarg :$NAME$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
299 :initform nil |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
300 :type list |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
301 :documentation |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
302 "$DOC$") |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
303 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
304 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
305 bind "s" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
306 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
307 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
308 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
309 ;; end |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
310 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
311 |