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
|
;;; curve.el --- AUC-TeX style file for CurVe
;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Didier Verna.
;; Author: Didier Verna <didier@lrde.epita.fr>
;; Maintainer: Didier Verna <didier@lrde.epita.fr>
;; Created: Tue Apr 18 14:49:29 2000
;; Last Revision: Wed Jul 18 17:28:55 2007
;; Keywords: tex abbrev data
;; This file is part of CurVe.
;; CurVe may be distributed and/or modified under the
;; conditions of the LaTeX Project Public License, either version 1.1
;; of this license or (at your option) any later version.
;; The latest version of this license is in
;; http://www.latex-project.org/lppl.txt
;; and version 1.1 or later is part of all distributions of LaTeX
;; version 1999/06/01 or later.
;; CurVe consists of all files listed in the file `README'.
;;; Commentary:
;; Contents management by FCM version 0.1-b2.
;;; Code:
(defun curve-rubric-file (optional &optional prompt)
"Prompt for a CurVe rubric filename in the current directory.
Caution: because of the flavor mechanism of CurVe, this function will use
the choosen file name sans the last TWO extensions."
(TeX-argument-insert
(file-name-sans-extension
(file-name-sans-extension
(read-file-name (TeX-argument-prompt optional
prompt "Rubric file")
"" "" nil)))
optional))
(defun curve-rubric-item ()
;; Ideally, we should have a way (like, a prefix) to specify either an
;; entry, an entry* or a subrubric. But that would require to hack AUC-TeX
;; in order to pass an optional argument to LaTeX-insert-item.
(TeX-insert-macro "entry*"))
(add-hook 'LaTeX-mode-hook
(lambda ()
(setq LaTeX-item-list
(cons '("rubric" . curve-rubric-item) LaTeX-item-list))))
(TeX-add-style-hook "curve"
(function
(lambda ()
(TeX-add-symbols
'("photo" [ "Placement (l, c or r)" ] t)
'("photosep")
'("photoscale" t)
'("leftheader" t)
'("rightheader" t)
'("headerscale" t)
'("headerspace")
'("makeheaders" [ "Alignment (t, c or b)" ])
;; no need to support \today since it is a standard command
'("title" "Title")
'("subtitle" "Subtitle")
'("titlespace")
'("titlefont" "Font for title")
'("titlealignment" "Alignment (l, c, r)")
'("subtitlefont" "Font for subtitle")
'("maketitle")
'("flavor" "Flavor")
'("makerubric" curve-rubric-file)
'("rubricalignment" "Alignment (l, c, r, cl, cc)")
'("rubricfont" "For for rubrics")
'("rubricspace")
'("rubricafterspace")
'("subrubric" "Subrubric name")
'("subrubricalignment" "Alignment (l, c, r, cl, cc)")
'("subrubricfont" "Font for subrubrics")
'("subrubricspace")
'("subrubricbeforespace")
'("entry" [ "Key" ] t)
'("entry*" [ "Key" ])
'("noentry" "Invisible (long) key")
'("keyfont" "Font for keys")
'("keyalignment" "Alignment (l, c, or r)")
'("prefix" "Prefix command")
'("continuedname" "Continuation name")
'("listpubname" "List of publications name"))
(LaTeX-add-environments
'("rubric" "Name")))))
;;; Local variables:
;;; eval: (put 'TeX-add-style-hook 'lisp-indent-function 1)
;;; End:
;;; curve.el ends here
|
