X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/675826ae239d2fd710ffcc57e1b4cbb2fc300542..ebecf964123ab7b4e6deec85aa2f2fd58eddea29:/packages/auctex/style/scrbase.el diff --git a/packages/auctex/style/scrbase.el b/packages/auctex/style/scrbase.el deleted file mode 100644 index 5a8b41ff7..000000000 --- a/packages/auctex/style/scrbase.el +++ /dev/null @@ -1,222 +0,0 @@ -;;; scrbase.el --- AUCTeX style for the KOMA-Script bundle. - -;; Copyright (C) 2002, 2004, 2005, 2007 Free Software Foundation, Inc. - -;; Author: Mark Trettin -;; Created: 2002-09-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 the KOMA-Script bundle. This file -;; contains the base definitions that work with all KOMA-Script -;; classes (scrarctl.cls, scrreprt.cls, scrbook.cls and scrlttr2.cls). -;; You need this file since it's loaded from the class-styles. - -;;; Code: -(TeX-add-style-hook "scrbase" - (lambda () - (TeX-add-symbols - "appendixmore" - "autodot" - '("addtokomafont" TeX-arg-KOMA-fontelements t) - '("areaset" [ "BCOR" ] "Width" "Height") - '("captionabove" [ "Lof entry" ] "Caption") - '("captionbelow" [ "Lof entry" ] "Caption") - '("cleardoubleemptypage") - '("cleardoubleplainpage") - '("cleardoublestandardpage") - '("dedication" t) - '("deffootnote" [ "Mark width" ] "Indent" "Parindent" "Definition") - '("deffootnotemark" "Definition") - '("extratitle" t) - '("ifpdfoutput" t nil) - '("ifthispageodd" t nil) - '("lowertitleback" t) - '("maketitle" [ "Pagenumber" ]) - '("marginline" t) - '("publishers" "Publishers") - '("sectionmark" "Running head") - '("setbibpreamble" "Preamble") - '("setcaphanging") - '("setcapindent" "Indent") - '("setcapindent*" "X-Indent") - '("setcapmargin" [ "Margin left" ] "Margin") - '("setcapmargin*" [ "Margin inside" ] "Margin") - '("setcapwidth" [ TeX-arg-KOMA-capjust ] "Width") - '("setindexpreamble" "Preamble") - '("setkomafont" TeX-arg-KOMA-fontelements t) - '("subject" "Subject") - '("subsectionmark" "Running head") - '("textsubscript" "Text") - '("thanks" "Footnote") - '("thefootnotemark") - '("titlehead" t) - '("uppertitleback" t) - '("usekomafont" TeX-arg-KOMA-fontelements)) - (LaTeX-add-environments - '("labeling" (lambda (env &rest ignore) - (LaTeX-insert-environment - env - (let ((delim (read-string "(Optional) Delimiter: ")) - (width (read-string "Longest item: "))) - (concat - (if (not (zerop (length delim))) - (format "[%s]" delim)) - (format "{%s}" width)))) - (LaTeX-find-matching-begin) - (end-of-line 1) - (LaTeX-insert-item))) - '("addmargin" (lambda (env &rest ignore) - (LaTeX-insert-environment - env - (let ((leftin (read-string "(Optional) Left Indentation: ")) - (indent (read-string "Indentation: "))) - (concat - (if (not (zerop (length leftin))) - (format "[%s]" leftin)) - (format "{%s}" indent)))))) - '("addmargin*" (lambda (env &rest ignore) - (LaTeX-insert-environment - env - (let ((innin (read-string "(Optional) Inner Indentation: ")) - (indent (read-string "Indentation: "))) - (concat - (if (not (zerop (length innin))) - (format "[%s]" innin)) - (format "{%s}" indent)))))) - '("captionbeside" (lambda (env &rest ignore) - (LaTeX-insert-environment - env - (let ((lofent (read-string "(Optional) Lof Entry: ")) - (title (read-string "Caption: ")) - (place (read-string "(Optional) Placement (l,r,o,i): ")) - (width (read-string "(Optional) Width: ")) - (offset (read-string "(Optional) Offset: "))) - (concat - (if (not (zerop (length lofent))) - (format "[%s]" lofent)) - (format "{%s}" title) - (if (not (zerop (length place))) - (format "[%s]" place)) - (if (not (zerop (length width))) - (format "[%s]" width)) - (and - (not (zerop (length place))) - (not (zerop (length offset))) - (format "[%s]%s" offset - (if (y-or-n-p "Starred? ") - "*" ""))))))))) - (LaTeX-section-list-add-locally '(("addpart" 0) - ("addsec" 2) - ("minisec" 7))) - ;; This doesn't work. Maybe it's RefTeX's label insertion? - (make-local-variable 'LaTeX-section-label) - (setq LaTeX-section-label (append - LaTeX-section-label - '(("addpart" . nil) - ("addsec" . nil) - ("minisec" . nil)))) - ;; Fontification - (when (and (featurep 'font-latex) - (eq TeX-install-font-lock 'font-latex-setup)) - ;; Textual keywords - (font-latex-add-keywords '(("captionabove" "[{") - ("captionbelow" "[{") - ("dedication" "{") - ("extratitle" "{") - ("lowertitleback" "{") - ("maketitle" "[") - ("marginline" "{") - ("publishers" "{") - ("subject" "{") - ("sectionmark" "{") - ("setbibpreamble" "{") - ("setindexpreamble" "{") - ("subsectionmark" "{") - ("textsubscript" "{") - ("titlehead" "{") - ("uppertitleback" "{")) - 'textual) - ;; Function keywords - (font-latex-add-keywords '(("deffootnote" "[{{{") - ("deffootnotemark" "{") - ("ifpdfoutput" "{{") - ("ifthispageodd" "{{")) - 'function) - ;; Variable keywords - (font-latex-add-keywords '(("addtokomafont" "{{") - ("areaset" "[{{") - ("setcaphanging" "") - ("setcapindent" "{") - ("setcapmargin" "*[{") - ("setcapwidth" "[{") - ("setkomafont" "{{") - ("typearea" "[{") - ("usekomafont" "{")) - 'variable) - ;; Warning keywords - (font-latex-add-keywords '("cleardoublestandardpage" - "cleardoubleplainpage" - "cleardoubleemptypage") - 'warning) - ;; Sectioning keywords - (font-latex-add-keywords '(("addpart" "[{")) 'sectioning-1) - (font-latex-add-keywords '(("addsec" "[{")) 'sectioning-2) - (font-latex-add-keywords '(("minisec" "[{")) 'sectioning-4)))) - -(defun TeX-arg-KOMA-setpreamble (optional &optional prompt) - "Prompt for KOMA-Script's \\set*preamble position with completion." - (TeX-argument-insert - (completing-read - (TeX-argument-prompt optional prompt "Position") - '(("") ("l") ("r") ("c") ("o") ("u") - ("lo") ("lu") ("ro") ("ru") ("co") ("cu")) - nil t) - optional)) - -(defun TeX-arg-KOMA-capjust (optional &optional prompt) - "Prompt for KOMA-Script's \\setcapwidth justification with completion." - (TeX-argument-insert - (completing-read - (TeX-argument-prompt optional prompt "Justification") - '(("") ("l") ("r") ("c") ("i") ("o")) - nil t) - optional)) - -(defun TeX-arg-KOMA-fontelements (optional &optional prompt) - "Prompt for KOMA-Script's fontelements with completion." - (TeX-argument-insert - (completing-read - (TeX-argument-prompt optional prompt "Element") - '(("") - ("caption") ("captionlabel") - ("descriptionlabel") ("dictum") ("dictumauthor") ("dictumtext") - ("footnote") ("footnotelabel") ("footnotereference") - ("pagefoot") ("pagehead") ("pagenumber") ("pagination") - ("sectioning") ("part") ("partnumber") ("chapter") ("section") - ("subsection") ("subsubsection") ("paragraph") ("subparagraph") - ("title") ("disposition") ("minisec")) - nil t) - optional)) - -(add-to-list 'LaTeX-item-list '("labeling" . LaTeX-item-argument)) - -;;; scrbase.el ends here