;;; pdfpages.el --- AUCTeX style for `pdfpages.sty'

;; Author: Mads Jensen <address@hidden
;; Created: 2011-03-04
;; Keywords: tex

;;; Commentary:

;; This file adds support for `pdfpages.sty'.

;;; Code:

;; I've seen this used for at least one key=val in most (or all)
;; packages which use the keyval-package
(defvar TeX-arg-true-false '("true" "false"))

(defvar LaTeX-pdfpages-key-val-options
  '(("pages")
    ("nup")
    ("landscape" TeX-arg-true-false)
    ("delta")
    ("offset")
    ("frame")
    ("column")
    ("columnstrict" TeX-arg-true-false)
    ("openright" TeX-arg-true-false)
    ("turn" TeX-arg-true-false)
    ("noautoscale" TeX-arg-true-false)
    ("fitpaper" TeX-arg-true-false)
    ("reflect" TeX-arg-true-false)
    ("signature")
    ("signature*")
    ("picturecommand")
    ("picturecommand*")
    ("pagetemplate")
    ("templatesize")
    ("rotateoversize" TeX-arg-true-false)
    ("doublepages" TeX-arg-true-false)
    ("doublepagestwist" TeX-arg-true-false)
    ("doublepagestwistodd" TeX-arg-true-false)
    ("doublepagestwist*" TeX-arg-true-false)
    ("doublepagestwistodd*" TeX-arg-true-false)
    ("lastpage")
    ("link" TeX-arg-true-false)
    ("linkname")
    ("thread")
    ("threadname")
    ("linktotoc")
    ;; Additional hypertext options:
    ("linkfit" '("Fit" "FitH" "top" "FitV" "left" "FitB"
                 "FitBH" "top" "FitBV" "left" "Region"))
    ;; XXX: I have not looked through the whole pdf specification, so
    ;; there are more arguments; I just used the ones listed in the
    ;; package documentation
    ("linktodocfit" '("/Fit" "/FitH" "/FitV"))
    ("newwindow" TeX-arg-true-false)
    ("linkfilename")
    ;; Experimental options:
    ("addtotoc")
    ("addtolist")
    ("survey")
    ("survey-nolink")
    ("xr-prefix")))

(TeX-add-style-hook
 "pdfpages"
 (lambda ()
   (TeX-add-symbols
    '("includepdf"
      [ TeX-arg-key-val LaTeX-pdfpages-key-val-options ] TeX-arg-file)
    ;; the pages-option is not used in this command, so am removing it
    ;; (it's the first one in the list
    '("includepdfmerge"
      [ TeX-arg-key-val (remove '("pages") LaTeX-pdfpages-key-val-options) ]
      t)
    '("includepdfset" (TeX-arg-key-val LaTeX-pdfpages-key-val-options))
    '("threadinfodict")
    '("AddToSurvey")
    '("externaldocument" TeX-arg-file))
   ;; there is a requirement for graphicx
   (TeX-run-style-hooks "graphicx")

   ;; Fontification
   ;; (when (and (featurep 'font-latex)
   ;;            (eq TeX-install-font-lock 'font-latex-setup))
   ;;   (font-latex-add-keywords '(("includepdf" "[{")
   ;;      			("includepdfmerge" "[{")
   ;;      			("includepdfset" "{")
   ;;                              ("AddToSurvey" ""))
   ;;      		      'function)
   ;;   (font-latex-add-keywords '(("threadinfodict"))
   ;;                              'variable)
   ;;   ;; For syntactic fontification, e.g. verbatim constructs.
   ;;   (font-latex-set-syntactic-keywords)
   ;;   ;; Tell font-lock about the update.
   ;;   (setq font-lock-set-defaults nil)
   ;;   (font-lock-set-defaults)
   ))

(defvar LaTeX-pdfpages-package-options '("final" "draft" "enable-survey")
  "Package options for the pdfpages packages.")

;;; pdfpages.el ends here