Mercurial > emacs
comparison etc/srecode/texi.srt @ 105407:84fc40980c51
* srecode: New directory for SRecode template files.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 03 Oct 2009 19:28:56 +0000 |
parents | |
children | c6cabc736460 |
comparison
equal
deleted
inserted
replaced
105406:5b8c8cd21526 | 105407:84fc40980c51 |
---|---|
1 ;; texi.srt --- SRecode templates for Texinfo | |
2 | |
3 ;; Copyright (C) 2008 Free Software Foundation, Inc. | |
4 | |
5 ;; Author: Eric M. Ludlam <eric@siege-engine.com> | |
6 | |
7 ;; This file is part of GNU Emacs. | |
8 | |
9 ;; GNU Emacs is free software: you can redistribute it and/or modify | |
10 ;; it under the terms of the GNU General Public License as published by | |
11 ;; the Free Software Foundation, either version 3 of the License, or | |
12 ;; (at your option) any later version. | |
13 | |
14 ;; GNU Emacs is distributed in the hope that it will be useful, | |
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 ;; GNU General Public License for more details. | |
18 | |
19 ;; You should have received a copy of the GNU General Public License | |
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |
21 | |
22 set mode "texinfo-mode" | |
23 | |
24 set escape_start "$" | |
25 set escape_end "$" | |
26 set DOLLAR "$" | |
27 | |
28 context file | |
29 | |
30 prompt NAME "Name of manual: " | |
31 | |
32 template empty :file :user :time | |
33 "Fill a new texinfo file with some baseline stuff." | |
34 ---- | |
35 \input texinfo @c -*-texinfo-*- | |
36 $#RCS$ | |
37 @c | |
38 @c $Id: srecode-texi.srt,v 1.5 2009/01/01 19:01:42 zappo Exp $ | |
39 @c | |
40 $/RCS$ | |
41 @c %**start of header | |
42 @setfilename $FILE$.info | |
43 @set TITLE $?NAME$ | |
44 @set AUTHOR $?AUTHOR$ | |
45 @settitle @value{TITLE} | |
46 @c %**end of header | |
47 | |
48 @ifinfo | |
49 @format | |
50 START-INFO-DIR-ENTRY | |
51 * $FILE$: ($FILE$). $NAME$ | |
52 END-INFO-DIR-ENTRY | |
53 @end format | |
54 @end ifinfo | |
55 | |
56 @titlepage | |
57 @sp 10 | |
58 @center @titlefont{$FILE$} | |
59 @vskip 0pt plus 1 fill | |
60 Copyright @copyright{} $YEAR$ $AUTHOR$ | |
61 @end titlepage | |
62 | |
63 @node Top | |
64 @top @value{TITLE} | |
65 | |
66 $^$ | |
67 | |
68 @menu | |
69 * Index:: | |
70 @end menu | |
71 | |
72 | |
73 | |
74 | |
75 @node Index | |
76 @chapter Index | |
77 | |
78 @contents | |
79 | |
80 @bye | |
81 ---- | |
82 | |
83 prompt NAME "Name of item: " | |
84 | |
85 context declaration | |
86 | |
87 ;; Note to self: It would be cool to replace the junk in | |
88 ;; semantic/document.el with macros from here. | |
89 template function :blank :texitag | |
90 "Import some function tag into texinfo." | |
91 ---- | |
92 | |
93 @defun $NAME$$#ARGS$ $NAME$$/ARGS$ | |
94 @anchor{$NAME$} | |
95 $TAGDOC$ | |
96 @end defun | |
97 | |
98 ---- | |
99 bind "f" | |
100 | |
101 template function-command :blank :texitag | |
102 "Import some function tag into texinfo." | |
103 ---- | |
104 | |
105 @deffn Command $NAME$$#ARGS$ $NAME$$/ARGS$ | |
106 @anchor{$NAME$} | |
107 $TAGDOC$ | |
108 @end deffn | |
109 | |
110 ---- | |
111 bind "f" | |
112 | |
113 | |
114 template variable :blank :texitag | |
115 "Import some variable tag into texinfo" | |
116 ---- | |
117 | |
118 @defvar $NAME$$#ARGS$ $NAME$$/ARGS$ | |
119 @anchor{$NAME$} | |
120 $TAGDOC$ | |
121 @end defvar | |
122 | |
123 ---- | |
124 bind "v" | |
125 | |
126 prompt NAME "Name of node: " | |
127 | |
128 template node :texi | |
129 "Insert a node right about here." | |
130 ---- | |
131 | |
132 @node $?NAME$ | |
133 @$?LEVEL$ $NAME$ | |
134 | |
135 $^$ | |
136 | |
137 ---- | |
138 bind "n" | |
139 | |
140 template subnode :texi | |
141 "Insert a node right about here." | |
142 ---- | |
143 | |
144 @node $?NAME$ | |
145 @$?NEXTLEVEL$ $NAME$ | |
146 | |
147 $^$ | |
148 | |
149 ---- | |
150 bind "n" | |
151 | |
152 | |
153 template menu :blank | |
154 "Menu items for texinfo." | |
155 ---- | |
156 | |
157 @menu | |
158 $^$ | |
159 @end menu | |
160 | |
161 ---- | |
162 bind "m" | |
163 | |
164 prompt NAME "Menu item: " | |
165 | |
166 template menuitem :blank | |
167 "Insert a menu item." | |
168 ---- | |
169 * $?NAME$:: $^$ | |
170 ---- | |
171 | |
172 | |
173 ;; end |