1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
;;; jao-skel-texinfo.el --- skeletons for texinfo files -*- lexical-binding: t; -*-
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
;; Keywords: languages
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; Skeletons to generate texinfo files templates.
;;; Code:
(require 'jao-skel)
(defun jao-dir-entry ()
"Read dir file entry"
(let ((cat (read-string "Dir file category: "))
(ent (read-string "Direntry name: "))
(desc (read-string "Direntry description: ")))
(concat "@dircategory " cat
"\n@direntry\n" ent
": (" (jao-skel-basename) "). " desc "."
"\n@end direntry\n")))
(define-skeleton jao-skel-main-texinfo
"Main texinfo file skeleton"
"Document title: "
"\\input texinfo"
\n > "@c %**start of header"
\n "@setfilename " (jao-skel-basename) ".info" >
\n "@settitle " str >
\n "@syncodeindex pg cp" >
\n "@setchapternewpage odd" >
\n "@footnotestyle separate" >
\n "@c %**end of header" >
\n \n
(jao-dir-entry)
\n
"@set UPDATED " (format-time-string "%B %Y")
\n "@set EDITION 0.1"
\n "@set VERSION 0.1"
\n "@set AUTHOR " (user-full-name)
\n \n "@copying"
\n "This manual is for " str " (version @value{VERSION}, @value{UPDATED})."
\n
\n "Copyright @copyright{} " (format-time-string "%Y") " " jao-skel-company-name
\n
\n "@quotation"
\n "Permission is granted to copy, distribute and/or modify this document"
\n "under the terms of the GNU Free Documentation License, Version 1.1 or"
\n "any later version published by the Free Software Foundation; with no"
\n "Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''"
\n "and with the Back-Cover Texts as in (a) below. A copy of the"
\n "license is included in the section entitled ``GNU Free Documentation"
\n "License.''"
\n
\n "(a) The FSF's Back-Cover Text is: ``You have freedom to copy and modify"
\n "this GNU Manual, like GNU software. Copies published by the Free"
\n "Software Foundation raise funds for GNU development.''"
\n "@end quotation"
\n "@end copying"
\n \n "@titlepage"
\n "@title " str
\n "@subtitle Edition @value{EDITION}, for version @value{VERSION}"
\n "@subtitle @value{UPDATED}"
\n "@author by @value{AUTHOR} (@email{jao@@gnu.org})"
\n "@page"
\n "@vskip 0pt plus 1filll"
\n "@insertcopying"
\n "@end titlepage"
\n
\n "@shortcontents"
\n "@contents"
\n
\n "@ifnottex"
\n "@node Top, , (dir), (dir)"
\n \n "@insertcopying"
\n "@end ifnottex"
\n \n
"@menu" > \n "@detailmenu" \n \n > "@end detailmenu" > \n "@end menu"
\n \n \n
"@include intro.texi" >
\n \n \n
"@bye"
\n)
(define-skeleton jao-skel-child-texinfo
"Template for child texinfo docs"
"Node name: "
"@node " str \n
> "@chapter " str \n
_ \n \n
"@c This is part of the " (read-string "Main doc title: ") \n
"@c See the main file for copying conditions."
\n \n)
(define-skeleton jao-skel-texinfo
"Skeleton for texinfo files"
nil
'(if (y-or-n-p "Is this the main texinfo file? ")
(jao-skel-main-texinfo)
(jao-skel-child-texinfo))
_)
(add-to-list 'auto-insert-alist '("\\.texi$" . jao-skel-texinfo))
(provide 'jao-skel-texinfo)
;;; jao-skel-texinfo.el ends here
|
