Mercurial > emacs
annotate etc/srecode/template.srt @ 111686:e8049570c647
* lisp/eshell/: Use with-silent-modifications.
* lisp/eshell/esh-cmd.el (eshell-parse-command):
* lisp/eshell/esh-arg.el (eshell-parse-arguments):
* lisp/eshell/em-script.el (eshell-source-file):
Use with-silent-modifications.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 23 Nov 2010 12:36:15 -0500 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
rev | line source |
---|---|
105407
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; template.srt --- Templates for Semantic Recoders |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 |
106815 | 3 ;; Copyright (C) 2005, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
105407
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 set mode "srecode-template-mode" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 set priority "70" |
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_end "" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 set comment_prefix ";;" |
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 SEPARATOR "----" |
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 set DOLLAR "$" |
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 context file |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
36 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
37 prompt MAJORMODE "Major Mode for templates: " read srecode-read-major-mode-name |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
38 prompt START "Escape Start Characters: " default "{{" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
39 prompt END "Escape End Characters: " default "}}" |
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 template empty :file :user :time :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 "Insert a skeleton for a template file." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 $>:filecomment$ |
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 set mode "$?MAJORMODE$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 set escape_start "$?START$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 set escape_end "$?END$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 context file |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 |
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 ;; end |
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 template mode-basics :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 "Fill out a full template including parts for basic new mode stuff." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 sectiondictionary "E" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 set NAME "empty :file :user :time" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 set DOC "Fill out an empty file." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 set KEY "e" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
64 sectiondictionary "C1" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 set NAME "declaration" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 sectiondictionary "DTF" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 set NAME "function :blank :indent" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 set DOC "Template to declare a function." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 set KEY "f" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
70 sectiondictionary "DTV" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
71 set NAME "variable :blank :indent" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 set DOC "Template to declare a variable." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
73 set KEY "v" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 sectiondictionary "PR" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 set NAME "NAME" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 set PROMPT "Name for declaration: " |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 $>:declaration:commentchars$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 $<E:declaration:function$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
81 $ESCAPE_START$>:filecomment$ESCAPE_END$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
82 $/E$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 $>C1:declaration:context$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
85 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 $>PR:declaration:prompt$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 $>DTF:declaration:function$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
89 $>DTV:declaration:function$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 bind "m" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 |
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 context declaration |
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 prompt NAME "Name of new template: " |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 prompt KEY "Key Binding: " read read-char |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 template function :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 "Insert a template block for Srecoder templates." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 template $?NAME$$#ARG$$NAME$$/ARG$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 "$DOC$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 $SEPARATOR$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 $^$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 $SEPARATOR$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 bind "$?KEY$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 bind "f" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 prompt NAME "Name of new variable: " |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 template variable :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
114 "Inert a variable." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 set $?NAME$ "$^$" |
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 bind "v" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
119 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 template prompt :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
121 "Insert a prompt." |
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 prompt $?NAME$ "$?PROMPT$" |
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 bind "p" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 template priority :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
128 "Insert a priority statemept." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
129 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 set priority $^$ |
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 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 template application :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
134 "Insert a priority statemept." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 set application "$^$" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 template context :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
140 "Insert a context statement." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
142 context $NAME$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 bind "c" |
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 template commentchars :blank |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 "Insert the variables for handling comments." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
148 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
149 set comment_start "" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 set comment_end "" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
151 set comment_prefix "" |
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 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 context code |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 prompt NAME "Name of variable: " read srecode-read-variable-name |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 template variable :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 "Insert a variable with completion from the current file." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
160 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 $ESCAPE_START$$?NAME$$ESCAPE_END$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 bind "v" |
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 NAME "Name of macro: " |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 template ask :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 "Insert a prompting variable." |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 $ESCAPE_START$?$?NAME$$ESCAPE_END$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
172 bind "a" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
173 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
174 template comment :srt |
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 $ESCAPE_START$!$^$$ESCAPE_END$ |
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 bind "c" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
179 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
180 prompt TEMPLATE "Template to include: " read srecode-read-template-name |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
181 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
182 template include :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
183 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
184 $ESCAPE_START$>:$?TEMPLATE$$ESCAPE_END$ |
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 "i" |
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 includewrap :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
189 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
190 $ESCAPE_START$<:$?TEMPLATE$$ESCAPE_END$$^$$ESCAPE_START$/$NAME$$ESCAPE_END$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
192 bind "w" |
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 template point :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
195 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
196 $ESCAPE_START$^$ESCAPE_END$ |
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 bind "p" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
199 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
200 template section :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
201 "Insert a section, or looping construct." |
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 $ESCAPE_START$#$?NAME$$ESCAPE_END$ |
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 $ESCAPE_START$/$NAME$$ESCAPE_END$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
206 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
207 bind "s" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
209 template escape-start-quoted :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
210 "Escape Start" |
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 $ESCAPE_START$ESCAPE_START$ESCAPE_END$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
213 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
214 bind "q" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
216 template escape-end-quoted :srt |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
217 "Escape Start" |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
218 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
219 $ESCAPE_START$ESCAPE_END$ESCAPE_END$ |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
220 ---- |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
221 bind "e" |
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 |
84fc40980c51
* srecode: New directory for SRecode template files.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
224 ;; end |