diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/scrlttr2.el')
| -rw-r--r-- | elpa/auctex-13.1.3/style/scrlttr2.el | 249 |
1 files changed, 249 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/scrlttr2.el b/elpa/auctex-13.1.3/style/scrlttr2.el new file mode 100644 index 0000000..5a0f667 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrlttr2.el @@ -0,0 +1,249 @@ +;;; scrlttr2.el --- AUCTeX style for scrlttr2.cls. -*- lexical-binding: t; -*- + +;; Copyright (C) 2002, 2007, 2014, 2018, 2020 Free Software Foundation + +;; Author: Mark Trettin <Mark.Trettin@gmx.de> +;; Created: 2002-10-26 +;; 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 `scrlttr2.cls'. + +;; Since I just recently switched from `g-brief.cls' to the +;; KOMA-Script letter class *and* I don't really write many +;; snailmails, there are probably some superflous macros included and +;; important ones left out. Comments appreciated. + +;; I left out any length and positioning macros since those should be +;; set in a personal `*.lco'-File. IMHO. + +;;; Code + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "scrlttr2" + (lambda () + (TeX-add-symbols + '("AtBeginLetter" t) + '("KOMAoptions" t) + '("LetterOptionNeedsPapersize" "Name of lco file" "Paper size") + '("LoadLetterOption" "Name of lco file") + '("addrchar" "Initial letter") + '("addrentry" "Lastname" "Firstname" "Address" "Telephone" "F1" + "F2" "F3" "F4" "Key") + '("addtokomafont" TeX-arg-KOMA-scrlttr-fontelements t) + '("addtolengthplength" [ "Factor" ] "Name of length" + "Name of pseudo length") + '("addtoreffields" TeX-arg-KOMA-scrlttr-vars) + '("adrchar" "Initial letter") + '("adrentry" "Lastname" "Firstname" "Address" "Telephone" "F1" + "F2" "Comment" "Key") + '("bankname" t) + '("captionsUKenglish" nil) + '("captionsUSenglish" nil) + '("captionsamerican" nil) + '("captionsaustrian" nil) + '("captionsbritish" nil) + '("captionscroatian" nil) + '("captionsdutch" nil) + '("captionsenglish" nil) + '("captionsfrench" nil) + '("captionsgerman" nil) + '("captionsitalian" nil) + '("captionsngerman" nil) + '("captionsspanish" nil) + '("cc" t) + '("ccname" t) + '("cleardoubleemptypage") + '("cleardoubleplainpage") + '("cleardoublestandardpage") + '("closing" "Closing Phrase") + '("customername" t) + '("dateUKenglish" nil) + '("dateUSenglish" nil) + '("dateamerican" nil) + '("dateaustrian" nil) + '("datebritish" nil) + '("datecroatian" nil) + '("datedutch" nil) + '("dateenglish" nil) + '("datefrench" nil) + '("dategerman" nil) + '("dateitalian" nil) + '("datename" t) + '("datengerman" nil) + '("datespanish" nil) + '("emailname" t) + '("encl" t) + '("enclname" t) + '("faxname" t) + '("firstfoot" t) + '("firsthead" t) + '("headfromname" t) + '("headtoname" t) + '("ifkomavarempty" TeX-arg-KOMA-scrlttr-vars 2) + '("ifkomavarempty*" TeX-arg-KOMA-scrlttr-vars 2) + '("invoicename" t) + '("myrefname" t) + '("newcaptionname" "Language" "Term" "Definition") + '("newkomavar" [ "Description" ] "Name") + '("newkomavar*" [ "Description" ] "Name") + '("nextfoot" t) + '("nexthead" t) + '("opening" "Opening") + '("pagename" t) + '("phonename" t) + '("providecaptionname" "Language" "Term" "Definition") + '("ps") + '("raggedsignature" nil) + '("renewcaptionname" "Language" "Term" "Definition") + '("setkomafont" TeX-arg-KOMA-scrlttr-fontelements t) + '("setkomavar" TeX-arg-KOMA-scrlttr-vars [ "Description" ] t) + '("setkomavar*" TeX-arg-KOMA-scrlttr-vars "Description") + '("setlengthtoplength" [ "Factor" ] "Name of length" + "Name of pseudo length") + '("subjectname" t) + '("usekomafont" TeX-arg-KOMA-scrlttr-fontelements) + '("usekomavar" [ "Command" ] TeX-arg-KOMA-scrlttr-vars) + '("usekomavar*" [ "Command" ] TeX-arg-KOMA-scrlttr-vars) + '("useplength" "Name") + '("wwwname" t) + '("yourmailname" t) + '("yourrefname" t)) + (LaTeX-add-environments + '("letter" (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((options (TeX-read-string "Optional options: ")) + (recip (TeX-read-string "Recipient: "))) + (concat + (if (not (zerop (length options))) + (format "[%s]" options)) + (format "{%s}" recip))))))) + ;; Definitions for font-latex + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Textual keywords + (font-latex-add-keywords '(("addrentry" "{{{{{{{{{") + ("adrentry" "{{{{{{{{") + ("bankname" "{") + ("cc" "{") + ("ccname" "{") + ("closing" "{") + ("customername" "{") + ("datename" "{") + ("emailname" "{") + ("encl" "{") + ("enclname" "{") + ("faxname" "{") + ("firstfoot" "{") + ("firsthead" "{") + ("headfromname" "{") + ("headtoname" "{") + ("invoicename" "{") + ("myrefname" "{") + ("nextfoot" "{") + ("nexthead" "{") + ("opening" "{") + ("pagename" "{") + ("phonename" "{") + ("ps" "") + ("subjectname" "{") + ("wwwname" "{") + ("yourmailname" "{") + ("yourrefname" "{")) + 'textual) + ;; Function keywords + (font-latex-add-keywords '(("AtBeginLetter" "{") + ("LetterOptionNeedsPapersize" "{{") + ("LoadLetterOption" "{") + ("addrchar" "{") + ("adrchar" "{") + ("ifkomavarempty" "*{{{")) + 'function) + ;; Variable keywords + (font-latex-add-keywords '(("KOMAoptions" "{") + ("addtokomafont" "{{") + ("addtolengthplength" "[{{") + ("addtoreffields" "{") + ("newcaptionname" "{{{") + ("newkomavar" "*[{") + ("providecaptionname" "{{{") + ("renewcaptionname" "{{{") + ("setkomafont" "{{") + ("setkomavar" "*{[{") + ("setlengthtoplength" "[{{") + ("usekomafont" "{") + ("usekomavar" "*[{") + ("useplength" "{")) + 'variable) + ;; Warning keywords + (font-latex-add-keywords '("cleardoublestandardpage" + "cleardoubleplainpage" + "cleardoubleemptypage") + 'warning))) + TeX-dialect) + +(defun TeX-arg-KOMA-scrlttr-vars (optional &optional prompt) + "Prompt for KOMA-Script's scrlttr2 predefined variables with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Variable") + '(("") + ("backaddress") ("backaddressseparator") + ("ccseparator") ("customer") + ("date") + ("emailseparator") ("enclseparator") + ("faxseparator") ("frombank") ("fromaddress") ("fromemail") + ("fromfax") ("fromlogo") ("fromname") ("fromphone") ("fromurl") + ("invoice") + ("location") + ("myref") + ("place") ("placeseparator") ("phoneseparator") + ("signature") ("specialmail") ("subject") ("subjectseparator") + ("title") ("toname") ("toaddress") + ("yourmail") ("yourref")) + nil nil) + optional)) + +(defun TeX-arg-KOMA-scrlttr-fontelements (optional &optional prompt) + "Prompt for KOMA-Script's scrlttr2 fontelements with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Element") + '(("") + ("backaddress") + ("descriptionlabel") + ("fromaddress") ("fromname") + ("pagefoot") ("pagehead") ("pagenumber") + ("subject") + ("title")) + nil t) + optional)) + +;;; scrlttr2.el ends here |