[elpa] 54/299: * Makefile.in (STYLESRC): Activate new style fancyhdr.el.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit be7bc38e695826bd5c4825c49f67b719222ce2df
Author: Tassilo Horn <address@hidden>
Date:   Thu Feb 14 07:14:52 2013 +0000

    * Makefile.in (STYLESRC): Activate new style fancyhdr.el.
    
    * style/fancyhdr.el: New style.
---
 ChangeLog         |    6 +++
 Makefile.in       |    2 +-
 style/fancyhdr.el |  111 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 118 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 92edbc4..4b59e5c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2013-02-14  Mads Jensen  <address@hidden>
+
+       * Makefile.in (STYLESRC): Activate new style fancyhdr.el.
+
+       * style/fancyhdr.el: New style.
+
 2013-02-13  Mos� Giordano  <address@hidden>
 
        * doc/auctex.texi (Quotes): Document
diff --git a/Makefile.in b/Makefile.in
index f1d4154..45be16c 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -129,7 +129,7 @@ STYLESRC = style/prosper.el \
           style/multirow.el  style/imakeidx.el  style/afterpage.el \
           style/longtable.el style/lipsum.el    style/kantlipsum.el \
           style/memoir.el    style/placeins.el  style/nameref.el \
-          style/fancynum.el  style/filecontents.el
+          style/fancynum.el  style/fancyhdr.el  style/filecontents.el
 STYLEELC = $(STYLESRC:.el=.elc)
 
 CLEANFILES = $(AUCELC) $(STYLEELC) $(MULEELC)
diff --git a/style/fancyhdr.el b/style/fancyhdr.el
new file mode 100644
index 0000000..132855a
--- /dev/null
+++ b/style/fancyhdr.el
@@ -0,0 +1,111 @@
+;;; fancyhdr.el --- AUCTeX style for `fancyhdr.sty'
+
+;; Copyright (C) 2012, 2013 Free Software Foundation, Inc.
+
+;; Author: Mads Jensen <address@hidden>
+;; Maintainer: address@hidden
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX 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 3, or (at your option)
+;; any later version.
+
+;; AUCTeX 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 AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for `fancyhdr.sty', version 3.2
+
+;;; Code:
+
+(TeX-add-style-hook
+ "fancyhdr"
+ (lambda ()
+   (TeX-add-symbols
+    '("lhead" t)
+    '("lfoot" t)
+    '("chead" t)
+    '("cfoot" t)
+    '("rhead" t)
+    '("rfoot" t)
+    '("nouppercase" t)
+    '("MakeUppercase" t)
+    '("fancyhead" [ TeX-arg-fancyhdr-position ] t)
+    '("fancyfoot" [ TeX-arg-fancyhdr-position ] t)
+    '("fancyheadoffset"
+      [ (TeX-arg-fancyhdr-position
+         "Position" ("LO" "LE" "L" "RE" "RO" "R" "0")) ] t)
+    '("fancyfootoffset"
+      [ (TeX-arg-fancyhdr-position
+         "Position" ("LO" "LE" "L" "RE" "RO" "R" "O")) ] t)
+    '("fancyhfoffset"
+      [ (TeX-arg-fancyhdr-position "Position" ("E" "O" "L" "R")) ] t)
+    '("fancypagestyle" TeX-arg-pagestyle t)
+
+    "headrulewidth" "footrulewidth" "plainfootrulewidth"
+    "plainheadrulewidth" "leftmark" "rightmark"
+    ;; the manual does not mention any subsubsectionmark (!)
+    "chaptermark" "sectionmark" "subsectionmark" "paragraphmark"
+    "subparagraphmark" "footrule" "headrule")
+
+   ;; `fancyhdr.sty' supplies these two pagestyles
+   (LaTeX-add-pagestyles "fancy" "fancyplain")
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+             (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("fancyhead" "[{")
+                                ("fancyfoot" "[{")
+                                ("lhead" "{")
+                                ("lfoot" "{")
+                                ("chead" "{")
+                                ("cfoot" "{")
+                                ("rhead" "{")
+                                ("rfoot" "{")
+                                ("fancyheadoffset" "[{")
+                                ("fancyfootoffset" "[{")
+                                ("fancypagestyle" "{{")) 'function)
+     (font-latex-add-keywords '(("headrulewidth" "")
+                                ("footrulewidth" "")
+                                ("plainheadrulewidth" "")
+                                ("plainfootrulewidth" "")) 'variable)
+     ;; Tell font-lock about the update.
+     (setq font-lock-set-defaults nil)
+     (font-lock-set-defaults))))
+
+;; Because there can be many positions, `TeX-completing-read-multiple' is used
+;; instead of just `completing-read', and a `collection' argument is provided 
as
+;; the list of positions differs between the macros
+(defun TeX-arg-fancyhdr-position (optional &optional prompt collection)
+  "Prompt for a fancyhdr position with completion.
+If non-nil, PROMPT is used as the prompt.  If non-nil, COLLECTION
+is used as the completion list for the position."
+  (let* ((positions (if (not collection)
+                        ;; Standard positions with no restrictions.  Lower-case
+                        ;; versions, and reverse versions (e.g., OC) are left
+                        ;; out for simplicity.
+                        '("LO" "LE" "L" "CO" "CE" "C" "RE" "RO" "R")
+                      collection))
+        (arguments
+         (mapconcat 'identity
+                    (TeX-completing-read-multiple
+                     (TeX-argument-prompt optional prompt "Position")
+                     (mapcar 'list positions)) ",")))
+    (TeX-argument-insert arguments optional)))
+
+(defvar LaTeX-fancyhdr-package-options nil
+  "Package options for fancyhdr.")
+
+;;; fancyhdr.el ends here
+