--- /dev/null
+;;; jurabib.el --- AUCTeX style for the `jurabib' package
+
+;; Copyright (C) 2004, 2007 Free Software Foundation, Inc.
+
+;; Author: Ralf Angeli <angeli@iwi.uni-sb.de>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2004-10-05
+;; 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 the `jurabib' package.
+
+;; Currently only the citation-related commands are supported. Feel
+;; free to complete the support and send the result to the AUCTeX
+;; mailing list. But be aware that the code can only be included if
+;; you assign the copyright to the FSF.
+
+;;; Code:
+
+(TeX-add-style-hook
+ "jurabib"
+ (lambda ()
+ ;; Taken from natbib.el and adapted.
+ (let ((citecmds
+ '(("cite" . 2) ("cite*" . 2)
+ ("citetitle" . 2) ("fullcite" . 2)
+ ("citet" . 1) ("citealt" . 1)
+ ("citep" . 2) ("citealp" . 2)
+ ("citeauthor" . 2) ("citeyear" . 2)
+ ("footcite" . 2) ("footcite*" . 2)
+ ("footcitetitle" . 2) ("footfullcite" . 2)
+ ("footcitet" . 1) ("footcitealt" . 1)
+ ("footcitep" . 2) ("footcitealp" . 2)
+ ("footciteauthor" . 2) ("footciteyear" . 2))))
+ ;; Add these symbols
+ (apply
+ 'TeX-add-symbols
+ (mapcar
+ (lambda (cmd)
+ (cond
+ ((= (cdr cmd) 0)
+ ;; No optional arguments
+ (list (car cmd) 'TeX-arg-cite))
+ ((= (cdr cmd) 1)
+ ;; Just one optional argument, the post note
+ (list
+ (car cmd)
+ '(TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil)
+ 'TeX-arg-cite))
+ ((= (cdr cmd) 2)
+ ;; Pre and post notes
+ (list
+ (car cmd)
+ '(TeX-arg-conditional TeX-arg-cite-note-p (natbib-note-args) nil)
+ 'TeX-arg-cite))))
+ citecmds))
+ ;; Special cases
+ (TeX-add-symbols
+ ;; FIXME: Completing read for field.
+ '("citefield" ; \citefield[]{}{}
+ (TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil)
+ "Field" TeX-arg-cite)
+ '("footcitefield" ; \footcitefield[]{}{}
+ (TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil)
+ "Field" TeX-arg-cite))
+
+ ;; Make an entry in TeX-complete-list
+ (add-to-list
+ 'TeX-complete-list
+ (list
+ (concat "\\\\\\("
+ (mapconcat (lambda (x) (regexp-quote (car x)))
+ (append citecmds
+ '(("citefield") ("footcitefield"))) "\\|")
+ "\\)\\(\\[[^]\n\r\\%]*\\]\\)*{\\([^{}\n\r\\%,]*,\\)*"
+ "\\([^{}\n\r\\%,]*\\)")
+ 4 'LaTeX-bibitem-list "}"))
+
+ ;; Add further symbols
+ (TeX-add-symbols
+ '("citefullfirstfortype" 1)
+ '("citenotitlefortype" 1)
+ '("citeswithoutentry" 1)
+ '("citetitlefortype" 1)
+ '("citeworkwithtitle" 1)
+ '("nextcitefull" 1)
+ '("nextcitenotitle" 1)
+ '("nextcitereset" 1)
+ '("nextciteshort" 1)
+ '("jurabibsetup" 1))
+
+ ;; Fontification
+ (when (and (featurep 'font-latex)
+ (eq TeX-install-font-lock 'font-latex-setup))
+ (font-latex-add-keywords '(("cite" "*[[{")
+ ("citetitle" "[[{")
+ ("fullcite" "[[{")
+ ("citet" "[{")
+ ("citealt" "[{")
+ ("citep" "[[{")
+ ("citealp" "[[{")
+ ("citeauthor" "[[{")
+ ("citeyear" "[[{")
+ ("footcite" "[[{")
+ ("footcite*" "[[{")
+ ("footcitetitle" "[[{")
+ ("footfullcite" "[[{")
+ ("footcitet" "[{")
+ ("footcitealt" "[{")
+ ("footcitep" "[[{")
+ ("footcitealp" "[[{")
+ ("footciteauthor" "[[{")
+ ("footciteyear" "[[{")
+ ("citefield" "[{{")
+ ("footcitefield" "[{{"))
+ 'reference)
+ (font-latex-add-keywords '(("citeswithoutentry" "{")
+ ("nextcitefull" "{")
+ ("nextcitenotitle" "{")
+ ("nextcitereset" "{")
+ ("nextciteshort" "{"))
+ 'function)
+ (font-latex-add-keywords '(("citenotitlefortype" "{")
+ ("citetitlefortype" "{")
+ ("jurabibsetup" "{"))
+ 'variable))
+
+ ;; Tell RefTeX (Thanks, Carsten)
+ (when (and (fboundp 'reftex-set-cite-format)
+ ;; Is it `reftex-cite-format' customized?
+ (not (get 'reftex-cite-format 'saved-value)))
+ ;; Check if RefTeX supports jurabib.
+ (if (assoc 'jurabib reftex-cite-format-builtin)
+ ;; Yes, use the provided default.
+ (reftex-set-cite-format 'jurabib)
+ ;; No, set it by hand.
+ (reftex-set-cite-format
+ '((?\C-m . "\\cite{%l}")
+ (?c . "\\cite[?][]{%l}")
+ (?t . "\\citet{%l}")
+ (?p . "\\citep{%l}")
+ (?e . "\\citep[e.g.][?]{%l}")
+ (?s . "\\citep[see][?]{%l}")
+ (?u . "\\fullcite{%l}")
+ (?i . "\\citetitle{%l}")
+ (?a . "\\citeauthor{%l}")
+ (?e . "\\citefield{?}{%l}")
+ (?y . "\\citeyear{%l}")
+ (?f . "\\footcite{%l}")
+ (?F . "\\footcite[?][]{%l}")
+ (?l . "\\footfullcite{%l}"))))))
+
+ ;; FIXME: The following list is the edited output of
+ ;; `TeX-auto-generate' which probably includes internal macros of
+ ;; jurabib. Unfortunately the macros which should be accessible to
+ ;; the user are not fully documented at the time of this writing.
+ ;; But instead of including only the limited part which is
+ ;; documented we rather give the user a bit too much. The list
+ ;; should be reduced when there is proper documentation, though.
+ (TeX-add-symbols
+ '("Wrapquotes" 1)
+ '("apyformat" 1)
+ '("artnumberformat" 1)
+ '("artvolnumformat" 2)
+ '("artvolumeformat" 1)
+ '("artyearformat" 1)
+ '("bibAnnote" 1)
+ '("bibAnnoteFile" 1)
+ '("bibAnnotePath" 1)
+ '("bibEIMfont" 1)
+ '("bibIMfont" 1)
+ '("bibYear" 1)
+ '("bibedformat" 1)
+ '("bibedinformat" 1)
+ '("bibenf" 5)
+ '("biblenf" 5)
+ '("bibnf" 5)
+ '("bibnumberformat" 1)
+ '("bibrenf" 5)
+ '("bibrlenf" 5)
+ '("bibrnf" 5)
+ '("biburlfont" 1)
+ '("edfont" 1)
+ '("formatarticlepages" ["argument"] 2)
+ '("fsted" 1)
+ '("fullnameoxfordcrossref" 1)
+ '("incolledformat" 5)
+ '("jbArchPages" 1)
+ '("jbPages" 1)
+ '("jbannoteformat" 1)
+ '("jbapifont" 1)
+ '("jbarchnameformat" 1)
+ '("jbarchsig" 2)
+ '("jbartPages" 1)
+ '("jbartcrossrefchecked" ["argument"] 1)
+ '("jbauthorindexfont" 1)
+ '("jbbibargs" 5)
+ '("jbbibyearformat" 1)
+ '("jbcitationoyearformat" 1)
+ '("jbcitationyearformat" 1)
+ '("jbcrossrefchecked" ["argument"] 1)
+ '("jbedafti" 1)
+ '("jbedbyincollcrossreflong" 1)
+ '("jbedbyincollcrossrefshort" 1)
+ '("jbedbyincollcrossrefshortnoapy" 1)
+ '("jbedbyincollcrossrefshortwithapy" 1)
+ '("jbedition" 1)
+ '("jbeditorindexfont" 1)
+ '("jbendnote" 1)
+ '("jbflanguage" 1)
+ '("jbincollcrossref" 2)
+ '("jbisbn" 1)
+ '("jbissn" 1)
+ '("jbnote" 2)
+ '("jborganizationindexfont" 1)
+ '("jbpagesformat" 1)
+ '("jbprformat" 1)
+ '("jbrealcitation" 2)
+ '("jbshortarchformat" 1)
+ '("jbshortsubarchformat" 1)
+ '("jbsy" 1)
+ '("jbtiafed" 1)
+ '("lookatfortype" 1)
+ '("nobibliography" 1)
+ '("nocitebuthowcited" 1)
+ '("numberandseries" 2)
+ '("pageadd" 1)
+ '("pernumberformat" 1)
+ '("pervolnumformat" 2)
+ '("pervolumeformat" 1)
+ '("peryearformat" 1)
+ '("revnumberformat" 1)
+ '("revvolnumformat" 2)
+ '("revvolumeformat" 1)
+ '("revyearformat" 1)
+ '("snded" 1)
+ '("textitswitch" 1)
+ '("translator" 3)
+ '("volumeformat" 1)
+ "Bibbfsasep"
+ "Bibbfsesep"
+ "Bibbstasep"
+ "Bibbstesep"
+ "Bibbtasep"
+ "Bibbtesep"
+ "Bibchaptername"
+ "Bibetal"
+ "Edbyname"
+ "IbidemMidName"
+ "IbidemName"
+ "NAT"
+ "OpCit"
+ "Reprint"
+ "SSS"
+ "Transfrom"
+ "Volumename"
+ "addtoalllanguages"
+ "afterfoundersep"
+ "aftervolsep"
+ "ajtsep"
+ "alsothesisname"
+ "aprname"
+ "augname"
+ "bibBTsep"
+ "bibJTsep"
+ "bibPageName"
+ "bibPagesName"
+ "bibaesep"
+ "bibaldelim"
+ "bibaltformatalign"
+ "bibandname"
+ "bibanfont"
+ "bibansep"
+ "bibapifont"
+ "bibapyldelim"
+ "bibapyrdelim"
+ "bibarchpagename"
+ "bibarchpagesname"
+ "bibardelim"
+ "bibartperiodhowcited"
+ "bibatsep"
+ "bibauthormultiple"
+ "bibbdsep"
+ "bibbfsasep"
+ "bibbfsesep"
+ "bibbstasep"
+ "bibbstesep"
+ "bibbtasep"
+ "bibbtesep"
+ "bibbtfont"
+ "bibbtsep"
+ "bibbudcsep"
+ "bibces"
+ "bibchapterlongname"
+ "bibchaptername"
+ "bibcite"
+ "bibcolumnsep"
+ "bibcommenthowcited"
+ "bibcontinuedname"
+ "bibcrossrefcite"
+ "bibcrossrefciteagain"
+ "bibeandname"
+ "bibedformat"
+ "bibefnfont"
+ "bibeimfont"
+ "bibelnfont"
+ "bibenf"
+ "bibfnfmt"
+ "bibfnfont"
+ "bibhowcited"
+ "bibibidfont"
+ "bibidemPfname"
+ "bibidemPmname"
+ "bibidemPnname"
+ "bibidemSfname"
+ "bibidemSmname"
+ "bibidemSnname"
+ "bibidempfname"
+ "bibidempmname"
+ "bibidempnname"
+ "bibidemsfname"
+ "bibidemsmname"
+ "bibidemsnname"
+ "bibimfont"
+ "bibincollcrossrefcite"
+ "bibincollcrossrefciteagain"
+ "bibjtfont"
+ "bibjtsep"
+ "bibleftcolumn"
+ "bibleftcolumnadjust"
+ "bibleftcolumnstretch"
+ "biblenf"
+ "biblnfmt"
+ "biblnfont"
+ "bibnf"
+ "bibnotcited"
+ "bibpagename"
+ "bibpagesname"
+ "bibpagesnamesep"
+ "bibpldelim"
+ "bibprdelim"
+ "bibrevtfont"
+ "bibrightcolumn"
+ "bibrightcolumnadjust"
+ "bibrightcolumnstretch"
+ "bibsall"
+ "bibsdanish"
+ "bibsdutch"
+ "bibsenglish"
+ "bibsfinnish"
+ "bibsfrench"
+ "bibsgerman"
+ "bibsitalian"
+ "bibsnfont"
+ "bibsnorsk"
+ "bibsportuguese"
+ "bibsspanish"
+ "bibtabularitemsep"
+ "bibtfont"
+ "bibtotalpagesname"
+ "biburlprefix"
+ "biburlsuffix"
+ "bibvolumecomment"
+ "bibvtfont"
+ "bothaesep"
+ "bpubaddr"
+ "byname"
+ "citetitleonly"
+ "citeyearpar"
+ "commaename"
+ "commaname"
+ "dateldelim"
+ "daterdelim"
+ "decname"
+ "diffpageibidemmidname"
+ "diffpageibidemname"
+ "edbyname"
+ "edbysep"
+ "editionname"
+ "editorname"
+ "editorsname"
+ "enoteformat"
+ "etalname"
+ "etalnamenodot"
+ "febname"
+ "fifthedname"
+ "firstedname"
+ "footcitetitleonly"
+ "formatpages"
+ "foundername"
+ "fourthedname"
+ "fromdutch"
+ "fromenglish"
+ "fromfinnish"
+ "fromfrench"
+ "fromgerman"
+ "fromitalian"
+ "fromnorsk"
+ "fromportuguese"
+ "fromspanish"
+ "herename"
+ "howcitedprefix"
+ "howcitedsuffix"
+ "ibidem"
+ "ibidemmidname"
+ "ibidemname"
+ "idemPfedbyname"
+ "idemPfname"
+ "idemPmedbyname"
+ "idemPmname"
+ "idemPnedbyname"
+ "idemPnname"
+ "idemSfedbyname"
+ "idemSfname"
+ "idemSmedbyname"
+ "idemSmname"
+ "idemSnedbyname"
+ "idemSnname"
+ "idemmidname"
+ "idemname"
+ "idempfedbyname"
+ "idempfname"
+ "idempmedbyname"
+ "idempmname"
+ "idempnedbyname"
+ "idempnname"
+ "idemsfedbyname"
+ "idemsfname"
+ "idemsmedbyname"
+ "idemsmname"
+ "idemsnedbyname"
+ "idemsnname"
+ "incollinname"
+ "inname"
+ "inseriesname"
+ "janname"
+ "jbCheckedFirst"
+ "jbFirst"
+ "jbFirstAbbrv"
+ "jbJunior"
+ "jbLast"
+ "jbNotRevedNoVonJr"
+ "jbNotRevedNoVonNoJr"
+ "jbNotRevedOnlyLast"
+ "jbNotRevedVonJr"
+ "jbNotRevedVonNoJr"
+ "jbPAGES"
+ "jbPageName"
+ "jbPages"
+ "jbPagesName"
+ "jbRevedFirstNoVonJr"
+ "jbRevedFirstNoVonNoJr"
+ "jbRevedFirstOnlyLast"
+ "jbRevedFirstVonJr"
+ "jbRevedFirstVonNoJr"
+ "jbRevedNotFirstNoVonJr"
+ "jbRevedNotFirstNoVonNoJr"
+ "jbRevedNotFirstOnlyLast"
+ "jbRevedNotFirstVonJr"
+ "jbRevedNotFirstVonNoJr"
+ "jbVon"
+ "jbactualauthorfnfont"
+ "jbactualauthorfont"
+ "jbaddtomakehowcited"
+ "jbaensep"
+ "jbafterstartpagesep"
+ "jbannotatorfont"
+ "jbapifont"
+ "jbarchnamesep"
+ "jbarchpagename"
+ "jbarchpagesname"
+ "jbartPages"
+ "jbatsep"
+ "jbauthorfnfont"
+ "jbauthorfont"
+ "jbauthorfontifannotator"
+ "jbauthorinfo"
+ "jbbeforestartpagesep"
+ "jbbfsasep"
+ "jbbfsesep"
+ "jbbookedaftertitle"
+ "jbbstasep"
+ "jbbstesep"
+ "jbbtasep"
+ "jbbtesep"
+ "jbbtfont"
+ "jbbtitlefont"
+ "jbcitationyearformat"
+ "jbcrossrefchecked"
+ "jbdisablecitationcrossref"
+ "jbdoitem"
+ "jbdonotindexauthors"
+ "jbdonotindexeditors"
+ "jbdonotindexorganizations"
+ "jbdotafterbibentry"
+ "jbdotafterendnote"
+ "jbdy"
+ "jbedbyincollcrossrefcite"
+ "jbedbyincollcrossrefciteagain"
+ "jbedition"
+ "jbedseplikecite"
+ "jbeimfont"
+ "jbfirstcitepageranges"
+ "jbfootnoteformat"
+ "jbfootnotenumalign"
+ "jbfulltitlefont"
+ "jbhowcitedcomparepart"
+ "jbhowcitednormalpart"
+ "jbhowsepannotatorfirst"
+ "jbhowsepannotatorlast"
+ "jbhowsepbeforetitle"
+ "jbhowsepbeforetitleae"
+ "jbhowsepbeforetitleibidemname"
+ "jbignorevarioref"
+ "jbimfont"
+ "jbindexbib"
+ "jbindexonlyfirstauthors"
+ "jbindexonlyfirsteditors"
+ "jbindexonlyfirstorganizations"
+ "jbindextype"
+ "jblookforgender"
+ "jbmakeinbib"
+ "jbmakeinbiblist"
+ "jbmakeindexactual"
+ "jbnotsamearch"
+ "jbonlyforbib"
+ "jbonlyforcitations"
+ "jbonlyforfirstcitefullbegin"
+ "jbonlyforfirstcitefullend"
+ "jborgauthorfont"
+ "jboyearincitation"
+ "jbpagename"
+ "jbpagenamenodot"
+ "jbpages"
+ "jbpagesep"
+ "jbpagesname"
+ "jbpagesnamesep"
+ "jbsamearch"
+ "jbsamesubarch"
+ "jbsamesubarchindent"
+ "jbshorttitlefont"
+ "jbshowbibextralabel"
+ "jbssedbd"
+ "jbsubarchsep"
+ "jbsuperscripteditionafterauthor"
+ "jbtitlefont"
+ "jbts"
+ "jburldef"
+ "jbuseidemhrule"
+ "jbyear"
+ "jbyearaftertitle"
+ "julname"
+ "junname"
+ "jurthesisname"
+ "marname"
+ "mastersthesisname"
+ "mayname"
+ "nofirstnameforcitation"
+ "noibidem"
+ "noidem"
+ "nopage"
+ "novname"
+ "numbername"
+ "octname"
+ "ofseriesname"
+ "opcit"
+ "organizationname"
+ "origPAGES"
+ "origartPages"
+ "origbibces"
+ "origcrossref"
+ "origpages"
+ "osep"
+ "phdthesisname"
+ "reprint"
+ "reprintname"
+ "reviewbyname"
+ "reviewname"
+ "reviewofname"
+ "samepageibidemmidname"
+ "samepageibidemname"
+ "secondedname"
+ "sepname"
+ "sndecmd"
+ "snded"
+ "sndeditorname"
+ "sndeditorsname"
+ "technicalreportname"
+ "testnosig"
+ "textandname"
+ "texteandname"
+ "theHlvla"
+ "theHlvlb"
+ "theHlvlc"
+ "theHlvld"
+ "theHlvle"
+ "theHlvlf"
+ "theHlvlg"
+ "theHlvlh"
+ "theHlvli"
+ "theHlvlj"
+ "theHlvlk"
+ "theHlvll"
+ "thedname"
+ "thirdedname"
+ "trans"
+ "transby"
+ "transfrom"
+ "updatename"
+ "updatesep"
+ "urldatecomment"
+ "volname"
+ "volumename"
+ "volumeofname")))
+
+;;; jurabib.el ends here