forked from pool/emacs-auctex
Accepting request 156135 from editors
- Make dinbrief work again OBS-URL: https://build.opensuse.org/request/show/156135 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/emacs-auctex?expand=0&rev=25
This commit is contained in:
Stephan Kulow
Git OBS Bridge
commit
141042ec00
312
auctex-11.86-dinbrief.dif
Normal file
312
auctex-11.86-dinbrief.dif
Normal file
@ -0,0 +1,312 @@
|
|||||||
|
--- style/dinbrief.el
|
||||||
|
+++ style/dinbrief.el 2013-02-22 17:00:33.501443992 +0000
|
||||||
|
@@ -1,93 +1,143 @@
|
||||||
|
-;;; dinbrief.el - Special code for LaTeX-Style dinbrief.
|
||||||
|
+;; Copyright (C) 1994, 2013 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
-;; Contributed by Werner Fink <tex@itap.physik.uni-stuttgart.de>
|
||||||
|
-;; Please direct comments to him.
|
||||||
|
+;; Author: Werner Fink <werner@suse.de>
|
||||||
|
+;; Maintainer: auctex-devel@gnu.org
|
||||||
|
+;; 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.
|
||||||
|
+
|
||||||
|
+;;; dinbrief.el - Special code for LaTeX class dinbrief.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
-;; LaTeX-Style: dinbrief.sty
|
||||||
|
-;; Server: rusinfo.rus.uni-stuttgart.de
|
||||||
|
-;; Directory: /pub/soft/tex/macros/latex/contrib/letters
|
||||||
|
+;; LaTeX Class: dinbrief.cls
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
+(require 'tex)
|
||||||
|
+
|
||||||
|
(TeX-add-style-hook "dinbrief"
|
||||||
|
(function
|
||||||
|
(lambda ()
|
||||||
|
+ (add-hook 'LaTeX-document-style-hook
|
||||||
|
+ 'LaTeX-dinbrief-style)
|
||||||
|
(LaTeX-add-environments
|
||||||
|
- '("letter" LaTeX-recipient-hook))
|
||||||
|
+ '("letter" LaTeX-dinbrief-env-recipient)
|
||||||
|
+ "dinquote")
|
||||||
|
(TeX-add-symbols
|
||||||
|
- '("Absender" "Absender: ")
|
||||||
|
- '("Postvermerk" "Postvermerk: ")
|
||||||
|
- '("Datum" "Datum: ")
|
||||||
|
- '("Betreff" "Betreff: ")
|
||||||
|
- '("Behandlungsvermerk" "Behandlungsvermerk: ")
|
||||||
|
- '("Verteiler" "Verteiler: ")
|
||||||
|
- "makelabel" "Retourlabel"
|
||||||
|
- '("Anlagen" "Anlagen: ")
|
||||||
|
- '("Fenster" "Fenster \(ja/nein\): ")
|
||||||
|
- '("Retouradresse" "Retouradresse: ")
|
||||||
|
+ '("address" "Absender: ")
|
||||||
|
+ '("postremark" "Postvermerk: ")
|
||||||
|
+ '("date" "Datum: ")
|
||||||
|
+ '("subject" "Betreff: ")
|
||||||
|
+ '("handling" "Behandlungsvermerk: ")
|
||||||
|
+ '("cc" "Verteiler: ")
|
||||||
|
+ '("place" "Heutiger Ort: ")
|
||||||
|
+ "makelabels"
|
||||||
|
+ "nowindowrules"
|
||||||
|
+ "windowrules"
|
||||||
|
+ "nowindowtics"
|
||||||
|
+ "windowtics"
|
||||||
|
+ "disabledraftstandard"
|
||||||
|
+ "enabledraftstandard"
|
||||||
|
+ "centeraddress"
|
||||||
|
+ "normaladdress"
|
||||||
|
+ '("encl" "Anlagen: ")
|
||||||
|
+ '("backaddress" "Retouradresse: ")
|
||||||
|
'("signature" "Unterschrift: ")
|
||||||
|
'("opening" "Anrede: ")
|
||||||
|
- '("closing" "Schlu\"s: ")))))
|
||||||
|
+ '("closing" "Schluss: ")))))
|
||||||
|
+
|
||||||
|
+(defmacro LaTeX-dinbrief-insert (&rest args)
|
||||||
|
+ "Insert text ignoring active markers."
|
||||||
|
+ `(progn (if (TeX-mark-active) (TeX-deactivate-mark))
|
||||||
|
+ (insert ,@args)))
|
||||||
|
+
|
||||||
|
+(defun LaTeX-dinbrief-style ()
|
||||||
|
+ "Insert some useful packages for writing german letters."
|
||||||
|
+ (save-excursion
|
||||||
|
+ (goto-char (point-min)) ; insert before \begin{document}
|
||||||
|
+ (if (re-search-forward ".begin.document." (point-max) t)
|
||||||
|
+ (beginning-of-line 1))
|
||||||
|
+ (open-line 2)
|
||||||
|
+ (indent-relative-maybe)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "usepackage"
|
||||||
|
+ LaTeX-optop "latin1,utf8" LaTeX-optcl
|
||||||
|
+ TeX-grop "inputenc" TeX-grcl)
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "usepackage"
|
||||||
|
+ LaTeX-optop "T1" LaTeX-optcl
|
||||||
|
+ TeX-grop "fontenc" TeX-grcl)
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "usepackage"
|
||||||
|
+ TeX-grop "ngerman" TeX-grcl)
|
||||||
|
+ (TeX-run-style-hooks "inputenc")
|
||||||
|
+ (TeX-run-style-hooks "fontenc")
|
||||||
|
+ (TeX-run-style-hooks "ngerman")))
|
||||||
|
|
||||||
|
-(defun LaTeX-recipient-hook (environment)
|
||||||
|
+(defun LaTeX-dinbrief-env-recipient (environment)
|
||||||
|
"Insert ENVIRONMENT and prompt for recipient and address."
|
||||||
|
- (let ((sender (read-string "Absender: " (user-full-name)))
|
||||||
|
- (recipient (read-string "Empf\"anger: "))
|
||||||
|
- (address (read-string "Anschrift: "))
|
||||||
|
- (postvermerk (read-string "Postvermerk: "))
|
||||||
|
- (date (read-string "Datum: " (LaTeX-today)))
|
||||||
|
- (betreff (read-string "Betreff: "))
|
||||||
|
+ (let (
|
||||||
|
+ (sender (LaTeX-dinbrief-sender))
|
||||||
|
+ (recipient (read-string "Empfänger: "))
|
||||||
|
+ (address (LaTeX-dinbrief-recipient))
|
||||||
|
+ (date (read-string "Datum: " (LaTeX-dinbrief-today)))
|
||||||
|
+ (postremark (read-string "Postvermerk: "))
|
||||||
|
+ (fenster (read-string "Fenster \(ja/nein\): "))
|
||||||
|
(vermerk (read-string "Behandlungsvermerk: "))
|
||||||
|
(verteil (read-string "Verteiler: "))
|
||||||
|
- (anlage (read-string "Anlagen: "))
|
||||||
|
+ (betreff (read-string "Betreff: "))
|
||||||
|
(opening (read-string "Anrede: "))
|
||||||
|
- (closing (read-string "Schlu\"s: "))
|
||||||
|
- (fenster (read-string "Fenster \(ja/nein\): "))
|
||||||
|
+ (closing (read-string "Schluss: "))
|
||||||
|
(signature (read-string "Unterschrift: "))
|
||||||
|
- )
|
||||||
|
+ (anlage (read-string "Anlagen: ")))
|
||||||
|
|
||||||
|
- (if (not (zerop (length sender)))
|
||||||
|
- (progn
|
||||||
|
- (insert TeX-esc "Absender" TeX-grop sender TeX-grcl)
|
||||||
|
- (newline-and-indent)))
|
||||||
|
- (if (not (zerop (length postvermerk)))
|
||||||
|
- (progn
|
||||||
|
- (insert TeX-esc "Postvermerk" TeX-grop postvermerk TeX-grcl)
|
||||||
|
- (newline-and-indent)))
|
||||||
|
- (if (not (zerop (length betreff)))
|
||||||
|
- (progn
|
||||||
|
- (insert TeX-esc "Betreff" TeX-grop betreff TeX-grcl)
|
||||||
|
- (newline-and-indent)))
|
||||||
|
- (if (not (zerop (length vermerk)))
|
||||||
|
- (progn
|
||||||
|
- (insert TeX-esc "Behandlungsvermerk" TeX-grop vermerk TeX-grcl)
|
||||||
|
- (newline-and-indent)))
|
||||||
|
- (if (not (zerop (length verteil)))
|
||||||
|
- (progn
|
||||||
|
- (insert TeX-esc "Verteiler" TeX-grop verteil TeX-grcl)
|
||||||
|
- (newline-and-indent)))
|
||||||
|
- (if (not (zerop (length anlage)))
|
||||||
|
- (progn
|
||||||
|
- (insert TeX-esc "Anlagen" TeX-grop anlage TeX-grcl)
|
||||||
|
- (newline-and-indent)))
|
||||||
|
(if (string= fenster "ja")
|
||||||
|
(progn
|
||||||
|
- (insert TeX-esc "Fenster")
|
||||||
|
- (let ((retouradr (read-string "Retouradresse: " (user-full-name))))
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "enabledraftstandard")
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "centeraddress")
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "nowindowrules")
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "windowtics")
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (let ((retouradr (read-string "Retouradresse: " sender)))
|
||||||
|
(newline-and-indent)
|
||||||
|
(if (not (zerop (length retouradr)))
|
||||||
|
(progn
|
||||||
|
- (insert TeX-esc "Retouradresse" TeX-grop retouradr TeX-grcl)
|
||||||
|
- (newline-and-indent))))))
|
||||||
|
+ (if (TeX-mark-active) (TeX-deactivate-mark))
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "backaddress" TeX-grop retouradr TeX-grcl)
|
||||||
|
+ (newline-and-indent)))))
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "enabledraftstandard")
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "centeraddress")
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "nowindowrules")
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "windowtics"))
|
||||||
|
+ (newline-and-indent)
|
||||||
|
(if (not (zerop (length signature)))
|
||||||
|
(progn
|
||||||
|
- (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "signature" TeX-grop signature TeX-grcl)
|
||||||
|
(newline-and-indent)))
|
||||||
|
(if (not (zerop (length date)))
|
||||||
|
(progn
|
||||||
|
- (insert TeX-esc "Datum" TeX-grop date TeX-grcl)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "date" TeX-grop date TeX-grcl)
|
||||||
|
(newline-and-indent)))
|
||||||
|
(newline-and-indent)
|
||||||
|
|
||||||
|
@@ -112,9 +162,30 @@
|
||||||
|
(progn
|
||||||
|
(newline)
|
||||||
|
(indent-to addr-column))))))))
|
||||||
|
- (insert "\n")
|
||||||
|
+ (LaTeX-dinbrief-insert "\n")
|
||||||
|
(indent-to indentation))
|
||||||
|
- (insert TeX-esc "opening"
|
||||||
|
+ (if (not (zerop (length postremark)))
|
||||||
|
+ (progn
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "postremark" TeX-grop postremark TeX-grcl)
|
||||||
|
+ (newline-and-indent)))
|
||||||
|
+ (if (not (zerop (length betreff)))
|
||||||
|
+ (progn
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "subject" TeX-grop)
|
||||||
|
+ (LaTeX-dinbrief-insert betreff TeX-grcl)
|
||||||
|
+ (newline-and-indent)))
|
||||||
|
+ (if (not (zerop (length vermerk)))
|
||||||
|
+ (progn
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "handling" TeX-grop vermerk TeX-grcl)
|
||||||
|
+ (newline-and-indent)))
|
||||||
|
+ (if (not (zerop (length verteil)))
|
||||||
|
+ (progn
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "cc" TeX-grop verteil TeX-grcl)
|
||||||
|
+ (newline-and-indent)))
|
||||||
|
+ (if (not (zerop (length anlage)))
|
||||||
|
+ (progn
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "encl" TeX-grop anlage TeX-grcl)
|
||||||
|
+ (newline-and-indent)))
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "opening"
|
||||||
|
TeX-grop
|
||||||
|
(if (zerop (length opening))
|
||||||
|
(concat TeX-esc " ")
|
||||||
|
@@ -123,7 +194,7 @@
|
||||||
|
|
||||||
|
(indent-relative-maybe)
|
||||||
|
(save-excursion
|
||||||
|
- (insert "\n" TeX-esc "closing"
|
||||||
|
+ (LaTeX-dinbrief-insert "\n" TeX-esc "closing"
|
||||||
|
TeX-grop
|
||||||
|
(if (zerop (length closing))
|
||||||
|
(concat TeX-esc " ")
|
||||||
|
@@ -131,7 +202,47 @@
|
||||||
|
TeX-grcl "\n")
|
||||||
|
(indent-relative-maybe))))
|
||||||
|
|
||||||
|
-(defun LaTeX-today nil
|
||||||
|
+(defun LaTeX-dinbrief-sender nil
|
||||||
|
+ "Read and writes the senders address"
|
||||||
|
+ (interactive)
|
||||||
|
+ (let ((name (read-string "Absender: " (user-full-name)))
|
||||||
|
+ (str (read-string "Meine Strasse: "))
|
||||||
|
+ (ort (read-string "Mein Wohnort: ")))
|
||||||
|
+ (if (not (zerop (length name)))
|
||||||
|
+ (progn
|
||||||
|
+ (goto-char (point-min)) ; insert before \end{document}
|
||||||
|
+ (if (re-search-forward ".end.document." (point-max) t)
|
||||||
|
+ (beginning-of-line 1))
|
||||||
|
+ (previous-line 1)
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-esc "address" TeX-grop name)
|
||||||
|
+ (if (not (zerop (length str)))
|
||||||
|
+ (progn
|
||||||
|
+ (LaTeX-dinbrief-insert " " TeX-esc TeX-esc)
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert str)))
|
||||||
|
+ (if (not (zerop (length ort)))
|
||||||
|
+ (progn
|
||||||
|
+ (LaTeX-dinbrief-insert " " TeX-esc "par")
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (LaTeX-dinbrief-insert ort)))
|
||||||
|
+ (LaTeX-dinbrief-insert TeX-grcl)
|
||||||
|
+ (newline-and-indent)
|
||||||
|
+ (concat name ", " str ", " ort)))))
|
||||||
|
+
|
||||||
|
+(defun LaTeX-dinbrief-recipient nil
|
||||||
|
+ "Read and returns the recipient address"
|
||||||
|
+ (interactive)
|
||||||
|
+ (let ((str (read-string "Wohnhaft in Strasse: "))
|
||||||
|
+ (ort (read-string "Aus der Ortschaft: ")))
|
||||||
|
+ (if (not (zerop (length str)))
|
||||||
|
+ (if (not (zerop (length ort)))
|
||||||
|
+ (concat str " " TeX-esc TeX-esc " " ort)
|
||||||
|
+ str)
|
||||||
|
+ (if (not (zerop (length ort)))
|
||||||
|
+ ort))
|
||||||
|
+ ))
|
||||||
|
+
|
||||||
|
+(defun LaTeX-dinbrief-today nil
|
||||||
|
"Return a string representing todays date according to flavor."
|
||||||
|
(interactive)
|
||||||
|
(let ((ctime-string (current-time-string))
|
||||||
|
@@ -152,12 +263,13 @@
|
||||||
|
ctime-string)
|
||||||
|
(let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
|
||||||
|
(month (substring ctime-string (match-beginning 1) (match-end 1)))
|
||||||
|
- (day (substring ctime-string (match-beginning 2) (match-end 2))))
|
||||||
|
+ (day (substring ctime-string (match-beginning 2) (match-end 2)))
|
||||||
|
+ (place (read-string "Heutiger Ort: ")))
|
||||||
|
(if (assoc month month-alist)
|
||||||
|
(progn
|
||||||
|
(setq month (cdr (assoc month month-alist)))
|
||||||
|
(if (> 2 (length day))
|
||||||
|
(setq day (concat "0" day)))))
|
||||||
|
- (format "Stuttgart, den %s. %s %s" day month year))))
|
||||||
|
+ (format "%s, den %s. %s %s" place day month year))))
|
||||||
|
|
||||||
|
;;; dinbrief.el ends here
|
||||||
291
auctex-11.86.dif
291
auctex-11.86.dif
@ -30,294 +30,3 @@
|
|||||||
"*Command used to print a file.
|
"*Command used to print a file.
|
||||||
|
|
||||||
First `%p' is expanded to the printer name, then ordinary expansion is
|
First `%p' is expanded to the printer name, then ordinary expansion is
|
||||||
--- style/dinbrief.el
|
|
||||||
+++ style/dinbrief.el 2006-06-29 18:40:59.000000000 +0200
|
|
||||||
@@ -2,6 +2,9 @@
|
|
||||||
|
|
||||||
;; Contributed by Werner Fink <tex@itap.physik.uni-stuttgart.de>
|
|
||||||
;; Please direct comments to him.
|
|
||||||
+;;
|
|
||||||
+;; Change to new dinbrief.sty -- Werner Fink <werner@suse.de>
|
|
||||||
+;; ... yes, we are identical
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
@@ -14,80 +17,120 @@
|
|
||||||
(TeX-add-style-hook "dinbrief"
|
|
||||||
(function
|
|
||||||
(lambda ()
|
|
||||||
+ (add-hook 'LaTeX-document-style-hook
|
|
||||||
+ 'LaTeX-style-dinbrief)
|
|
||||||
(LaTeX-add-environments
|
|
||||||
- '("letter" LaTeX-recipient-hook))
|
|
||||||
+ '("letter" LaTeX-recipient-hook)
|
|
||||||
+ "dinquote")
|
|
||||||
(TeX-add-symbols
|
|
||||||
- '("Absender" "Absender: ")
|
|
||||||
- '("Postvermerk" "Postvermerk: ")
|
|
||||||
- '("Datum" "Datum: ")
|
|
||||||
- '("Betreff" "Betreff: ")
|
|
||||||
- '("Behandlungsvermerk" "Behandlungsvermerk: ")
|
|
||||||
- '("Verteiler" "Verteiler: ")
|
|
||||||
- "makelabel" "Retourlabel"
|
|
||||||
- '("Anlagen" "Anlagen: ")
|
|
||||||
- '("Fenster" "Fenster \(ja/nein\): ")
|
|
||||||
- '("Retouradresse" "Retouradresse: ")
|
|
||||||
+ '("address" "Absender: ")
|
|
||||||
+ '("postremark" "Postvermerk: ")
|
|
||||||
+ '("date" "Datum: ")
|
|
||||||
+ '("subject" "Betreff: ")
|
|
||||||
+ '("handling" "Behandlungsvermerk: ")
|
|
||||||
+ '("cc" "Verteiler: ")
|
|
||||||
+ '("place" "Heutiger Ort: ")
|
|
||||||
+ "makelabels"
|
|
||||||
+ "nowindowrules"
|
|
||||||
+ "windowrules"
|
|
||||||
+ "nowindowtics"
|
|
||||||
+ "windowtics"
|
|
||||||
+ "disabledraftstandard"
|
|
||||||
+ "enabledraftstandard"
|
|
||||||
+ "centeraddress"
|
|
||||||
+ "normaladdress"
|
|
||||||
+ '("encl" "Anlagen: ")
|
|
||||||
+ '("backaddress" "Retouradresse: ")
|
|
||||||
'("signature" "Unterschrift: ")
|
|
||||||
'("opening" "Anrede: ")
|
|
||||||
- '("closing" "Schlu\"s: ")))))
|
|
||||||
+ '("closing" "Schluss: ")))))
|
|
||||||
+
|
|
||||||
+(if (string-match "XEmacs" emacs-version)
|
|
||||||
+ (defun TeX-deactivate-mark () (zmacs-deactivate-region))
|
|
||||||
+ (defun TeX-deactivate-mark () (deactivate-mark)))
|
|
||||||
+
|
|
||||||
+(defmacro din-insert (&rest args)
|
|
||||||
+ "Insert text ignoring active markers."
|
|
||||||
+ `(progn (if (TeX-mark-active) (TeX-deactivate-mark))
|
|
||||||
+ (insert ,@args)))
|
|
||||||
+
|
|
||||||
+(defun LaTeX-style-dinbrief ()
|
|
||||||
+ "Insert some useful packages for writing german letters."
|
|
||||||
+ (if (equal LaTeX-version "2e")
|
|
||||||
+ (save-excursion
|
|
||||||
+ (goto-char (point-min)) ; insert before \begin{document}
|
|
||||||
+ (if (re-search-forward ".begin.document." (point-max) t)
|
|
||||||
+ (beginning-of-line 1))
|
|
||||||
+ (open-line 2)
|
|
||||||
+ (indent-relative-maybe)
|
|
||||||
+ (din-insert TeX-esc "usepackage"
|
|
||||||
+ LaTeX-optop "latin1" LaTeX-optcl
|
|
||||||
+ TeX-grop "inputenc" TeX-grcl)
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "usepackage"
|
|
||||||
+ LaTeX-optop "T1" LaTeX-optcl
|
|
||||||
+ TeX-grop "fontenc" TeX-grcl)
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "usepackage"
|
|
||||||
+ TeX-grop "ngerman" TeX-grcl)
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "usepackage"
|
|
||||||
+ TeX-grop "umlaut" TeX-grcl)
|
|
||||||
+ (TeX-run-style-hooks "inputenc")
|
|
||||||
+ (TeX-run-style-hooks "fontenc")
|
|
||||||
+ (TeX-run-style-hooks "ngerman")
|
|
||||||
+ (TeX-run-style-hooks "umlaut"))))
|
|
||||||
|
|
||||||
(defun LaTeX-recipient-hook (environment)
|
|
||||||
"Insert ENVIRONMENT and prompt for recipient and address."
|
|
||||||
- (let ((sender (read-string "Absender: " (user-full-name)))
|
|
||||||
- (recipient (read-string "Empf\"anger: "))
|
|
||||||
- (address (read-string "Anschrift: "))
|
|
||||||
- (postvermerk (read-string "Postvermerk: "))
|
|
||||||
+ (let (
|
|
||||||
+ (sender (LaTeX-sender))
|
|
||||||
+ (recipient (read-string "Empfänger: "))
|
|
||||||
+ (address (LaTeX-recipient))
|
|
||||||
(date (read-string "Datum: " (LaTeX-today)))
|
|
||||||
- (betreff (read-string "Betreff: "))
|
|
||||||
+ (postremark (read-string "Postvermerk: "))
|
|
||||||
+ (fenster (read-string "Fenster \(ja/nein\): "))
|
|
||||||
(vermerk (read-string "Behandlungsvermerk: "))
|
|
||||||
(verteil (read-string "Verteiler: "))
|
|
||||||
- (anlage (read-string "Anlagen: "))
|
|
||||||
+ (betreff (read-string "Betreff: "))
|
|
||||||
(opening (read-string "Anrede: "))
|
|
||||||
- (closing (read-string "Schlu\"s: "))
|
|
||||||
- (fenster (read-string "Fenster \(ja/nein\): "))
|
|
||||||
+ (closing (read-string "Schluss: "))
|
|
||||||
(signature (read-string "Unterschrift: "))
|
|
||||||
+ (anlage (read-string "Anlagen: "))
|
|
||||||
)
|
|
||||||
|
|
||||||
- (if (not (zerop (length sender)))
|
|
||||||
- (progn
|
|
||||||
- (insert TeX-esc "Absender" TeX-grop sender TeX-grcl)
|
|
||||||
- (newline-and-indent)))
|
|
||||||
- (if (not (zerop (length postvermerk)))
|
|
||||||
- (progn
|
|
||||||
- (insert TeX-esc "Postvermerk" TeX-grop postvermerk TeX-grcl)
|
|
||||||
- (newline-and-indent)))
|
|
||||||
- (if (not (zerop (length betreff)))
|
|
||||||
- (progn
|
|
||||||
- (insert TeX-esc "Betreff" TeX-grop betreff TeX-grcl)
|
|
||||||
- (newline-and-indent)))
|
|
||||||
- (if (not (zerop (length vermerk)))
|
|
||||||
- (progn
|
|
||||||
- (insert TeX-esc "Behandlungsvermerk" TeX-grop vermerk TeX-grcl)
|
|
||||||
- (newline-and-indent)))
|
|
||||||
- (if (not (zerop (length verteil)))
|
|
||||||
- (progn
|
|
||||||
- (insert TeX-esc "Verteiler" TeX-grop verteil TeX-grcl)
|
|
||||||
- (newline-and-indent)))
|
|
||||||
- (if (not (zerop (length anlage)))
|
|
||||||
- (progn
|
|
||||||
- (insert TeX-esc "Anlagen" TeX-grop anlage TeX-grcl)
|
|
||||||
- (newline-and-indent)))
|
|
||||||
(if (string= fenster "ja")
|
|
||||||
(progn
|
|
||||||
- (insert TeX-esc "Fenster")
|
|
||||||
- (let ((retouradr (read-string "Retouradresse: " (user-full-name))))
|
|
||||||
+ (din-insert TeX-esc "enabledraftstandard")
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "centeraddress")
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "nowindowrules")
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "windowtics")
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (let ((retouradr (read-string "Retouradresse: " sender)))
|
|
||||||
(newline-and-indent)
|
|
||||||
(if (not (zerop (length retouradr)))
|
|
||||||
(progn
|
|
||||||
- (insert TeX-esc "Retouradresse" TeX-grop retouradr TeX-grcl)
|
|
||||||
- (newline-and-indent))))))
|
|
||||||
+ (if (TeX-mark-active) (TeX-deactivate-mark))
|
|
||||||
+ (din-insert TeX-esc "backaddress" TeX-grop retouradr TeX-grcl)
|
|
||||||
+ (newline-and-indent)))))
|
|
||||||
+ (din-insert TeX-esc "enabledraftstandard")
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "centeraddress")
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "nowindowrules")
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert TeX-esc "windowtics"))
|
|
||||||
+ (newline-and-indent)
|
|
||||||
(if (not (zerop (length signature)))
|
|
||||||
(progn
|
|
||||||
- (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
|
|
||||||
+ (din-insert TeX-esc "signature" TeX-grop signature TeX-grcl)
|
|
||||||
(newline-and-indent)))
|
|
||||||
(if (not (zerop (length date)))
|
|
||||||
(progn
|
|
||||||
- (insert TeX-esc "Datum" TeX-grop date TeX-grcl)
|
|
||||||
+ (din-insert TeX-esc "date" TeX-grop date TeX-grcl)
|
|
||||||
(newline-and-indent)))
|
|
||||||
(newline-and-indent)
|
|
||||||
|
|
||||||
@@ -112,9 +155,32 @@
|
|
||||||
(progn
|
|
||||||
(newline)
|
|
||||||
(indent-to addr-column))))))))
|
|
||||||
- (insert "\n")
|
|
||||||
+ (din-insert "\n")
|
|
||||||
(indent-to indentation))
|
|
||||||
- (insert TeX-esc "opening"
|
|
||||||
+ (if (not (zerop (length postremark)))
|
|
||||||
+ (progn
|
|
||||||
+ (din-insert TeX-esc "postremark" TeX-grop postremark TeX-grcl)
|
|
||||||
+ (newline-and-indent)))
|
|
||||||
+ (if (not (zerop (length betreff)))
|
|
||||||
+ (progn
|
|
||||||
+ (din-insert TeX-esc "subject" TeX-grop)
|
|
||||||
+ (if (equal LaTeX-version "2e")
|
|
||||||
+ (din-insert TeX-esc "textbf" TeX-grop betreff TeX-grcl TeX-grcl)
|
|
||||||
+ (din-insert betreff TeX-grcl))
|
|
||||||
+ (newline-and-indent)))
|
|
||||||
+ (if (not (zerop (length vermerk)))
|
|
||||||
+ (progn
|
|
||||||
+ (din-insert TeX-esc "handling" TeX-grop vermerk TeX-grcl)
|
|
||||||
+ (newline-and-indent)))
|
|
||||||
+ (if (not (zerop (length verteil)))
|
|
||||||
+ (progn
|
|
||||||
+ (din-insert TeX-esc "cc" TeX-grop verteil TeX-grcl)
|
|
||||||
+ (newline-and-indent)))
|
|
||||||
+ (if (not (zerop (length anlage)))
|
|
||||||
+ (progn
|
|
||||||
+ (din-insert TeX-esc "encl" TeX-grop anlage TeX-grcl)
|
|
||||||
+ (newline-and-indent)))
|
|
||||||
+ (din-insert TeX-esc "opening"
|
|
||||||
TeX-grop
|
|
||||||
(if (zerop (length opening))
|
|
||||||
(concat TeX-esc " ")
|
|
||||||
@@ -123,7 +189,7 @@
|
|
||||||
|
|
||||||
(indent-relative-maybe)
|
|
||||||
(save-excursion
|
|
||||||
- (insert "\n" TeX-esc "closing"
|
|
||||||
+ (din-insert "\n" TeX-esc "closing"
|
|
||||||
TeX-grop
|
|
||||||
(if (zerop (length closing))
|
|
||||||
(concat TeX-esc " ")
|
|
||||||
@@ -131,6 +197,47 @@
|
|
||||||
TeX-grcl "\n")
|
|
||||||
(indent-relative-maybe))))
|
|
||||||
|
|
||||||
+(defun LaTeX-sender nil
|
|
||||||
+ "Read and writes the senders address"
|
|
||||||
+ (interactive)
|
|
||||||
+ (let ((name (read-string "Absender: " (user-full-name)))
|
|
||||||
+ (str (read-string "Meine Strasse: "))
|
|
||||||
+ (ort (read-string "Mein Wohnort: ")))
|
|
||||||
+ (if (not (zerop (length name)))
|
|
||||||
+ (progn
|
|
||||||
+ (goto-char (point-min)) ; insert before \end{document}
|
|
||||||
+ (if (re-search-forward ".end.document." (point-max) t)
|
|
||||||
+ (beginning-of-line 1))
|
|
||||||
+ (previous-line 1)
|
|
||||||
+ (din-insert TeX-esc "address" TeX-grop name)
|
|
||||||
+ (if (not (zerop (length str)))
|
|
||||||
+ (progn
|
|
||||||
+ (din-insert " " TeX-esc TeX-esc)
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert str)))
|
|
||||||
+ (if (not (zerop (length ort)))
|
|
||||||
+ (progn
|
|
||||||
+ (din-insert " " TeX-esc "par")
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (din-insert ort)))
|
|
||||||
+ (din-insert TeX-grcl)
|
|
||||||
+ (newline-and-indent)
|
|
||||||
+ (concat name ", " str ", " ort)))))
|
|
||||||
+
|
|
||||||
+(defun LaTeX-recipient nil
|
|
||||||
+ "Read and returns the recipient address"
|
|
||||||
+ (interactive)
|
|
||||||
+ (let ((str (read-string "Wohnhaft in Strasse: "))
|
|
||||||
+ (ort (read-string "Aus der Ortschaft: ")))
|
|
||||||
+ (if (not (zerop (length str)))
|
|
||||||
+ (if (not (zerop (length ort)))
|
|
||||||
+ (concat str " " TeX-esc TeX-esc " " ort)
|
|
||||||
+ str)
|
|
||||||
+ (if (not (zerop (length ort)))
|
|
||||||
+ ort))
|
|
||||||
+ )
|
|
||||||
+)
|
|
||||||
+
|
|
||||||
(defun LaTeX-today nil
|
|
||||||
"Return a string representing todays date according to flavor."
|
|
||||||
(interactive)
|
|
||||||
@@ -152,12 +259,13 @@
|
|
||||||
ctime-string)
|
|
||||||
(let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
|
|
||||||
(month (substring ctime-string (match-beginning 1) (match-end 1)))
|
|
||||||
- (day (substring ctime-string (match-beginning 2) (match-end 2))))
|
|
||||||
+ (day (substring ctime-string (match-beginning 2) (match-end 2)))
|
|
||||||
+ (place (read-string "Heutiger Ort: ")))
|
|
||||||
(if (assoc month month-alist)
|
|
||||||
(progn
|
|
||||||
(setq month (cdr (assoc month month-alist)))
|
|
||||||
(if (> 2 (length day))
|
|
||||||
(setq day (concat "0" day)))))
|
|
||||||
- (format "Stuttgart, den %s. %s %s" day month year))))
|
|
||||||
+ (format "%s, den %s. %s %s" place day month year))))
|
|
||||||
|
|
||||||
;;; dinbrief.el ends here
|
|
||||||
|
|||||||
@ -1,3 +1,8 @@
|
|||||||
|
-------------------------------------------------------------------
|
||||||
|
Fri Feb 22 17:08:38 UTC 2013 - werner@suse.de
|
||||||
|
|
||||||
|
- Make dinbrief work again
|
||||||
|
|
||||||
-------------------------------------------------------------------
|
-------------------------------------------------------------------
|
||||||
Mon Jul 23 10:04:12 UTC 2012 - werner@suse.de
|
Mon Jul 23 10:04:12 UTC 2012 - werner@suse.de
|
||||||
|
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
#
|
#
|
||||||
# spec file for package emacs-auctex
|
# spec file for package emacs-auctex
|
||||||
#
|
#
|
||||||
# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
|
# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
|
||||||
#
|
#
|
||||||
# All modifications and additions to the file contributed by third parties
|
# All modifications and additions to the file contributed by third parties
|
||||||
# remain the property of their copyright owners, unless otherwise agreed
|
# remain the property of their copyright owners, unless otherwise agreed
|
||||||
@ -49,6 +49,7 @@ Source: ftp://ftp.gnu.org/pub/gnu/auctex/auctex-%{version}.tar.bz2
|
|||||||
Url: http://www.gnu.org/software/auctex
|
Url: http://www.gnu.org/software/auctex
|
||||||
Patch: auctex-11.86.dif
|
Patch: auctex-11.86.dif
|
||||||
Patch1: auctex-11.85-preview.dif
|
Patch1: auctex-11.85-preview.dif
|
||||||
|
Patch2: auctex-11.86-dinbrief.dif
|
||||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||||
BuildArch: noarch
|
BuildArch: noarch
|
||||||
|
|
||||||
@ -73,6 +74,7 @@ you cannot use this package for XEmacs.
|
|||||||
%setup -n auctex-%{version}
|
%setup -n auctex-%{version}
|
||||||
%patch
|
%patch
|
||||||
%patch1
|
%patch1
|
||||||
|
%patch2
|
||||||
|
|
||||||
%build
|
%build
|
||||||
unset ${!LC_*}
|
unset ${!LC_*}
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user