code.delx.au - gnu-emacs-elpa/blob - packages/auctex/style/dinbrief.el

   1 ;;; dinbrief.el - Special code for LaTeX-Style dinbrief.
   2
   3 ;; Contributed by Werner Fink <tex@itap.physik.uni-stuttgart.de>
   4 ;; Please direct comments to him.
   5
   6 ;;; Commentary:
   7
   8 ;; LaTeX-Style: dinbrief.sty
   9 ;;      Server: rusinfo.rus.uni-stuttgart.de
  10 ;;   Directory: /pub/soft/tex/macros/latex/contrib/letters
  11
  12 ;;; Code:
  13
  14 (TeX-add-style-hook "dinbrief"
  15  (function
  16   (lambda ()
  17     (LaTeX-add-environments
  18      '("letter" LaTeX-recipient-hook))
  19     (TeX-add-symbols
  20      '("Absender" "Absender: ")
  21      '("Postvermerk" "Postvermerk: ")
  22      '("Datum" "Datum: ")
  23      '("Betreff" "Betreff: ")
  24      '("Behandlungsvermerk" "Behandlungsvermerk: ")
  25      '("Verteiler" "Verteiler: ")
  26      "makelabel" "Retourlabel"
  27      '("Anlagen" "Anlagen: ")
  28      '("Fenster" "Fenster \(ja/nein\): ")
  29      '("Retouradresse" "Retouradresse: ")
  30      '("signature" "Unterschrift: ")
  31      '("opening" "Anrede: ")
  32      '("closing" "Schlu\"s: ")))))
  33
  34 (defun LaTeX-recipient-hook (environment)
  35   "Insert ENVIRONMENT and prompt for recipient and address."
  36   (let ((sender (read-string "Absender: " (user-full-name)))
  37         (recipient (read-string "Empf\"anger: "))
  38         (address (read-string "Anschrift: "))
  39         (postvermerk (read-string "Postvermerk: "))
  40         (date (read-string "Datum: " (LaTeX-today)))
  41         (betreff (read-string "Betreff: "))
  42         (vermerk (read-string "Behandlungsvermerk: "))
  43         (verteil (read-string "Verteiler: "))
  44         (anlage (read-string "Anlagen: "))
  45         (opening (read-string "Anrede: "))
  46         (closing (read-string "Schlu\"s: "))
  47         (fenster (read-string "Fenster \(ja/nein\): "))
  48         (signature (read-string "Unterschrift: "))
  49         )
  50
  51     (if (not (zerop (length sender)))
  52         (progn
  53           (insert TeX-esc "Absender" TeX-grop sender TeX-grcl)
  54           (newline-and-indent)))
  55     (if (not (zerop (length postvermerk)))
  56         (progn
  57           (insert TeX-esc "Postvermerk" TeX-grop postvermerk TeX-grcl)
  58           (newline-and-indent)))
  59     (if (not (zerop (length betreff)))
  60         (progn
  61           (insert TeX-esc "Betreff" TeX-grop betreff TeX-grcl)
  62           (newline-and-indent)))
  63     (if (not (zerop (length vermerk)))
  64         (progn
  65           (insert TeX-esc "Behandlungsvermerk" TeX-grop vermerk TeX-grcl)
  66           (newline-and-indent)))
  67     (if (not (zerop (length verteil)))
  68         (progn
  69           (insert TeX-esc "Verteiler" TeX-grop verteil TeX-grcl)
  70           (newline-and-indent)))
  71     (if (not (zerop (length anlage)))
  72         (progn
  73           (insert TeX-esc "Anlagen" TeX-grop anlage TeX-grcl)
  74           (newline-and-indent)))
  75     (if (string= fenster "ja")
  76         (progn
  77           (insert TeX-esc "Fenster")
  78           (let ((retouradr (read-string "Retouradresse: " (user-full-name))))
  79             (newline-and-indent)
  80           (if (not (zerop (length retouradr)))
  81               (progn
  82                 (insert TeX-esc "Retouradresse" TeX-grop retouradr TeX-grcl)
  83                 (newline-and-indent))))))
  84     (if (not (zerop (length signature)))
  85         (progn
  86           (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
  87           (newline-and-indent)))
  88     (if (not (zerop (length date)))
  89         (progn
  90           (insert TeX-esc "Datum" TeX-grop date TeX-grcl)
  91           (newline-and-indent)))
  92     (newline-and-indent)
  93
  94     (let ((indentation (current-column)))
  95       (LaTeX-insert-environment
  96        environment
  97        (concat TeX-grop recipient
  98                (if (not (zerop (length address)))
  99                    (concat
 100                     (if (not (zerop (length recipient)))
 101                         (concat " " TeX-esc TeX-esc " "))
 102                     address))
 103                TeX-grcl))
 104       (save-excursion                   ; Fix indentation of address
 105         (if (search-backward TeX-grcl nil 'move)
 106             (let ((addr-end (point-marker)))
 107               (if (search-backward TeX-grop nil 'move)
 108                   (let ((addr-column (current-column)))
 109                     (while (search-forward
 110                             (concat TeX-esc TeX-esc)
 111                             (marker-position addr-end) 'move)
 112                       (progn
 113                         (newline)
 114                         (indent-to addr-column))))))))
 115       (insert "\n")
 116       (indent-to indentation))
 117     (insert TeX-esc "opening"
 118             TeX-grop
 119             (if (zerop (length opening))
 120                 (concat TeX-esc " ")
 121               opening)
 122             TeX-grcl "\n")
 123
 124     (indent-relative-maybe)
 125     (save-excursion
 126       (insert "\n" TeX-esc "closing"
 127               TeX-grop
 128               (if (zerop (length closing))
 129                   (concat TeX-esc " ")
 130                 closing)
 131               TeX-grcl "\n")
 132       (indent-relative-maybe))))
 133
 134 (defun LaTeX-today nil
 135   "Return a string representing todays date according to flavor."
 136   (interactive)
 137    (let ((ctime-string (current-time-string))
 138         (month-alist '(("Jan" . "Januar")
 139                        ("Feb" . "Februar")
 140                        ("Mar" . "M\\\"arz")
 141                        ("Apr" . "April")
 142                        ("May" . "Mai")
 143                        ("Jun" . "Juni")
 144                        ("Jul" . "Juli")
 145                        ("Aug" . "August")
 146                        ("Sep" . "September")
 147                        ("Oct" . "Oktober")
 148                        ("Nov" . "November")
 149                        ("Dec" . "Dezember"))))
 150     (string-match
 151      "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
 152      ctime-string)
 153     (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
 154           (month (substring ctime-string (match-beginning 1) (match-end 1)))
 155           (day (substring ctime-string (match-beginning 2) (match-end 2))))
 156       (if (assoc month month-alist)
 157           (progn
 158             (setq month (cdr (assoc month month-alist)))
 159             (if (> 2 (length day))
 160                 (setq day (concat "0" day)))))
 161       (format "Stuttgart, den %s. %s %s" day month year))))
 162
 163 ;;; dinbrief.el ends here