1 ;;; curve.el --- AUC-TeX style file for CurVe
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Didier Verna.
5 ;; Author: Didier Verna <didier@lrde.epita.fr>
6 ;; Maintainer: Didier Verna <didier@lrde.epita.fr>
7 ;; Created: Tue Apr 18 14:49:29 2000
8 ;; Last Revision: Wed May 19 16:33:24 2004
9 ;; Keywords: tex abbrev data
11 ;; This file is part of CurVe.
13 ;; CurVe may be distributed and/or modified under the
14 ;; conditions of the LaTeX Project Public License, either version 1.1
15 ;; of this license or (at your option) any later version.
16 ;; The latest version of this license is in
17 ;; http://www.latex-project.org/lppl.txt
18 ;; and version 1.1 or later is part of all distributions of LaTeX
19 ;; version 1999/06/01 or later.
21 ;; CurVe consists of all files listed in the file `README'.
26 ;; Contents management by FCM version 0.1-b2.
31 (defun curve-rubric-file (optional &optional prompt)
32 "Prompt for a CurVe rubric filename in the current directory.
34 Caution: because of the flavor mechanism of CurVe, this function will use
35 the choosen file name sans the last TWO extensions."
37 (file-name-sans-extension
38 (file-name-sans-extension
39 (read-file-name (TeX-argument-prompt optional
44 (defun curve-rubric-item ()
45 ;; Ideally, we should have a way (like, a prefix) to specify either an
46 ;; entry, an entry* or a subrubric. But that would require to hack AUC-TeX
47 ;; in order to pass an optional argument to LaTeX-insert-item.
48 (TeX-insert-macro "entry*"))
50 (add-hook 'LaTeX-mode-hook
53 (cons '("rubric" . curve-rubric-item) LaTeX-item-list))))
56 (TeX-add-style-hook "curve"
60 '("photo" [ "Placement (l, c or r)" ] t)
67 '("makeheaders" [ "Alignment (t, c or b)" ])
70 '("subtitle" "Subtitle")
72 '("titlefont" "Font for title")
73 '("subtitlefont" "Font for subtitle")
77 '("makerubric" curve-rubric-file)
79 '("rubricalignment" "Alignment (l, c, r, cl, cc)")
80 '("rubricfont" "For for rubrics")
83 '("subrubric" "Subrubric name")
84 '("subrubricalignment" "Alignment (l, c, r, cl, cc)")
85 '("subrubricfont" "Font for subrubrics")
87 '("subrubricbeforespace")
89 '("entry" [ "Key" ] t)
91 '("keyfont" "Font for keys")
92 '("keyalignment" "Alignment (l, c, or r)")
93 '("prefix" "Prefix command")
95 '("continuedname" "Continuation name")
96 '("listpubname" "List of publications name")
98 (LaTeX-add-environments
107 ;;; eval: (put 'TeX-add-style-hook 'lisp-indent-function 1)
110 ;;; curve.el ends here