284 lines
11 KiB
EmacsLisp
284 lines
11 KiB
EmacsLisp
;;; dinbrief.el --- Special code for LaTeX-Style dinbrief. -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 1994-2021 Free Software Foundation, Inc.
|
|
|
|
;; 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.
|
|
|
|
;;; Commentary:
|
|
|
|
;; LaTeX Class: dinbrief.cls
|
|
|
|
;;; Code:
|
|
|
|
(require 'tex)
|
|
(require 'latex)
|
|
|
|
(TeX-add-style-hook
|
|
"dinbrief"
|
|
(lambda ()
|
|
(add-hook 'LaTeX-document-style-hook
|
|
#'LaTeX-dinbrief-style)
|
|
(LaTeX-add-environments
|
|
'("letter" LaTeX-dinbrief-env-recipient)
|
|
"dinquote")
|
|
(TeX-add-symbols
|
|
'("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" "Schluss")))
|
|
TeX-dialect)
|
|
|
|
(defmacro LaTeX-dinbrief-insert (&rest args)
|
|
"Insert text ignoring active markers."
|
|
`(progn (if mark-active (deactivate-mark))
|
|
(insert ,@args)))
|
|
|
|
(defun LaTeX-dinbrief-style ()
|
|
"Insert some useful packages for writing german letters."
|
|
;; COMPATIBILITY for EMACS<26
|
|
(let ((func (if (fboundp 'indent-relative-first-indent-point)
|
|
#'indent-relative-first-indent-point
|
|
;; Stay away from using #' to avoid compiler warning.
|
|
'indent-relative-maybe)))
|
|
(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)
|
|
(funcall func)
|
|
(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)
|
|
(funcall func)
|
|
(LaTeX-dinbrief-insert TeX-esc "usepackage"
|
|
TeX-grop "ngerman" TeX-grcl))
|
|
(TeX-run-style-hooks "inputenc" "fontenc" "ngerman")))
|
|
|
|
(defun LaTeX-dinbrief-env-recipient (environment)
|
|
"Insert ENVIRONMENT and prompt for recipient and address."
|
|
(let ((sender (LaTeX-dinbrief-sender))
|
|
(recipient (TeX-read-string "Empfänger: "))
|
|
(address (LaTeX-dinbrief-recipient))
|
|
(date (TeX-read-string "Datum: " (LaTeX-dinbrief-today)))
|
|
(postremark (TeX-read-string "Postvermerk: "))
|
|
(fenster (TeX-read-string "Fenster (ja/nein): "))
|
|
(vermerk (TeX-read-string "Behandlungsvermerk: "))
|
|
(verteil (TeX-read-string "Verteiler: "))
|
|
(betreff (TeX-read-string "Betreff: "))
|
|
(opening (TeX-read-string "Anrede: "))
|
|
(closing (TeX-read-string "Schluss: "))
|
|
(signature (TeX-read-string "Unterschrift: "))
|
|
(anlage (TeX-read-string "Anlagen: "))
|
|
;; COMPATIBILITY for EMACS<26
|
|
(func (if (fboundp 'indent-relative-first-indent-point)
|
|
#'indent-relative-first-indent-point
|
|
;; Stay away from using #' to avoid compiler warning.
|
|
'indent-relative-maybe)))
|
|
(if (string= fenster "ja")
|
|
(progn
|
|
(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 (TeX-read-string "Retouradresse: " sender)))
|
|
(newline-and-indent)
|
|
(if (not (zerop (length retouradr)))
|
|
(progn
|
|
(if mark-active (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
|
|
(LaTeX-dinbrief-insert TeX-esc "signature" TeX-grop signature TeX-grcl)
|
|
(newline-and-indent)))
|
|
(if (not (zerop (length date)))
|
|
(progn
|
|
(LaTeX-dinbrief-insert TeX-esc "date" TeX-grop date TeX-grcl)
|
|
(newline-and-indent)))
|
|
(newline-and-indent)
|
|
|
|
(let ((indentation (current-column)))
|
|
(LaTeX-insert-environment
|
|
environment
|
|
(concat TeX-grop recipient
|
|
(if (not (zerop (length address)))
|
|
(concat
|
|
(if (not (zerop (length recipient)))
|
|
(concat " " TeX-esc TeX-esc " "))
|
|
address))
|
|
TeX-grcl))
|
|
(save-excursion ; Fix indentation of address
|
|
(if (search-backward TeX-grcl nil 'move)
|
|
(let ((addr-end (point-marker)))
|
|
(if (search-backward TeX-grop nil 'move)
|
|
(let ((addr-column (current-column)))
|
|
(while (search-forward
|
|
(concat TeX-esc TeX-esc)
|
|
(marker-position addr-end) 'move)
|
|
(progn
|
|
(newline)
|
|
(indent-to addr-column)))))
|
|
(set-marker addr-end nil))))
|
|
(LaTeX-dinbrief-insert "\n")
|
|
(indent-to indentation))
|
|
(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 " ")
|
|
opening)
|
|
TeX-grcl "\n")
|
|
|
|
(funcall func)
|
|
(save-excursion
|
|
(LaTeX-dinbrief-insert "\n" TeX-esc "closing"
|
|
TeX-grop
|
|
(if (zerop (length closing))
|
|
(concat TeX-esc " ")
|
|
closing)
|
|
TeX-grcl "\n")
|
|
(funcall func))))
|
|
|
|
(defun LaTeX-dinbrief-sender ()
|
|
"Read and write the senders address."
|
|
(interactive)
|
|
(let ((name (TeX-read-string "Absender: " (user-full-name)))
|
|
(str (TeX-read-string "Meine Strasse: "))
|
|
(ort (TeX-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))
|
|
(forward-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 ()
|
|
"Read and return the recipient address."
|
|
(interactive)
|
|
(let ((str (TeX-read-string "Wohnhaft in Strasse: "))
|
|
(ort (TeX-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 ()
|
|
"Return a string representing todays date according to flavor."
|
|
(interactive)
|
|
(let ((ctime-string (current-time-string))
|
|
(month-alist '(("Jan" . "Januar")
|
|
("Feb" . "Februar")
|
|
("Mar" . "M\\\"arz")
|
|
("Apr" . "April")
|
|
("May" . "Mai")
|
|
("Jun" . "Juni")
|
|
("Jul" . "Juli")
|
|
("Aug" . "August")
|
|
("Sep" . "September")
|
|
("Oct" . "Oktober")
|
|
("Nov" . "November")
|
|
("Dec" . "Dezember"))))
|
|
(string-match
|
|
"^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
|
|
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)))
|
|
(place (TeX-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 "%s, den %s. %s %s" place day month year))))
|
|
|
|
;;; dinbrief.el ends here
|