Use const for constant arguments.
[emacs.git] / etc / srecode / texi.srt
blob4d6a05942cf055ea223bc9d53706c8a242254407
1 ;; texi.srt --- SRecode templates for Texinfo
3 ;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc.
5 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
7 ;; This file is part of GNU Emacs.
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.
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.
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/>.
22 set mode "texinfo-mode"
24 set escape_start "$"
25 set escape_end "$"
26 set DOLLAR "$"
28 context file
30 prompt NAME "Name of manual: "
32 template empty :file :user :time
33 "Fill a new texinfo file with some baseline stuff."
34 ----
35 \input texinfo   @c -*-texinfo-*-
36 @c %**start of header
37 @setfilename $FILE$.info
38 @set TITLE $?NAME$
39 @set AUTHOR $?AUTHOR$
40 @settitle @value{TITLE}
41 @c %**end of header
43 @ifinfo
44 @format
45 START-INFO-DIR-ENTRY
46 * $FILE$: ($FILE$).       $NAME$
47 END-INFO-DIR-ENTRY
48 @end format
49 @end ifinfo
51 @titlepage
52 @sp 10
53 @center @titlefont{$FILE$}
54 @vskip 0pt plus 1 fill
55 Copyright @copyright{} $YEAR$ $AUTHOR$
56 @end titlepage
58 @node Top
59 @top @value{TITLE}
61 $^$
63 @menu
64 * Index::
65 @end menu
70 @node Index
71 @chapter Index
73 @contents
75 @bye
76 ----
78 prompt NAME "Name of item: "
80 context declaration
82 ;; Note to self: It would be cool to replace the junk in
83 ;; semantic/document.el with macros from here.
84 template function :blank :texitag
85 "Import some function tag into texinfo."
86 ----
88 @defun $NAME$$#ARGS$ $NAME$$/ARGS$
89 @anchor{$NAME$}
90 $TAGDOC$
91 @end defun
93 ----
94 bind "f"
96 template function-command :blank :texitag
97 "Import some function tag into texinfo."
98 ----
100 @deffn Command $NAME$$#ARGS$ $NAME$$/ARGS$
101 @anchor{$NAME$}
102 $TAGDOC$
103 @end deffn
105 ----
106 bind "f"
109 template variable :blank :texitag
110 "Import some variable tag into texinfo"
111 ----
113 @defvar $NAME$$#ARGS$ $NAME$$/ARGS$
114 @anchor{$NAME$}
115 $TAGDOC$
116 @end defvar
118 ----
119 bind "v"
121 prompt NAME "Name of node: "
123 template node :texi
124 "Insert a node right about here."
125 ----
127 @node $?NAME$
128 @$?LEVEL$ $NAME$
132 ----
133 bind "n"
135 template subnode :texi
136 "Insert a node right about here."
137 ----
139 @node $?NAME$
140 @$?NEXTLEVEL$ $NAME$
144 ----
145 bind "n"
148 template menu :blank
149 "Menu items for texinfo."
150 ----
152 @menu
154 @end menu
156 ----
157 bind "m"
159 prompt NAME "Menu item: "
161 template menuitem :blank
162 "Insert a menu item."
163 ----
164 * $?NAME$::     $^$
165 ----
168 ;; end