Initial Commit
[packages] / xemacs-packages / auctex / style / epigraph.el
1 ;;; epigraph.el --- AUCTeX style for `epigraph.sty'
2
3 ;; Copyright (C) 2012 Free Software Foundation, Inc.
4
5 ;; Author: Mads Jensen <mje@inducks.org>
6 ;; Maintainer: auctex-devel@gnu.org
7 ;; Created: 2012-02-11
8 ;; Keywords: tex
9
10 ;; This file is part of AUCTeX.
11
12 ;; AUCTeX is free software; you can redistribute it and/or modify it
13 ;; under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 3, or (at your option)
15 ;; any later version.
16
17 ;; AUCTeX is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
20 ;; General Public License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with AUCTeX; see the file COPYING.  If not, write to the Free
24 ;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
25 ;; 02110-1301, USA.
26
27 ;;; Commentary:
28
29 ;; This file adds support for `epigraph.sty'.
30
31 ;;; Code:
32
33 (TeX-add-style-hook
34  "epigraph"
35  (lambda ()
36    (TeX-add-symbols
37     '("epigraph" t t)
38     '("qitem" t t)
39     '("epigraphhead" [ "Distance (a number)" ] t)
40     '("dropchapter" TeX-arg-size)
41     "epigraphwidth"
42     "textflush"
43     "epigraphflush"
44     "sourceflush"
45     "epigraphsize"
46     "epigraphrule"
47     "beforeepigraphskip"
48     "afterepigraphskip"
49     "undodrop"
50     "cleartoevenpage")
51
52    (LaTeX-add-environments
53     '("epigraphs" LaTeX-env-item))
54
55    (add-to-list 'LaTeX-item-list '("epigraphs" . LaTeX-epigraph-qitem))
56
57    (when (and (featurep 'font-latex)
58               (eq TeX-install-font-lock 'font-latex-setup))
59      (font-latex-add-keywords '(("epigraph" "{{")
60                                 ("qitem" "{{")
61                                 ("dropchapter" "{")
62                                 ("epigraphhead" "{")) 'function)
63      (font-latex-add-keywords '("cleartoevenpage") 'warning)))
64  LaTeX-dialect)
65
66 (defvar LaTeX-epigraph-package-options nil
67   "Package options for the epigraph package.")
68
69 ;; adapted from latex.el:`LaTeX-item-bib'
70 (defun LaTeX-epigraph-qitem ()
71   "Insert a new qitem for use in the epigraphs environment."
72   (TeX-insert-macro "qitem"))
73
74 ;;; epigraph.el ends here