For some reason, I can't get the TeX-arg-key-val to be recognized by emacs; it complains about a void-symbol.
For reference, the copyright forms were accepted, and sent back to me with email, so I guess you can safely start including some of the style files I've been submitting :-) -- Med Venlig Hilsen / Kind Regards, Mads Jensen Rubinsteinsvej 31,st.th DK-2450 Kbh. SV Denmark +45 6168 8518
;;; pdfpages.el --- AUCTeX style for `pdfpages.sty' ;; Author: Mads Jensen <[email protected] ;; 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
signature.asc
Description: OpenPGP digital signature
_______________________________________________ auctex-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/auctex-devel
