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

   1 ;;; letter.el - Special code for letter style.
   2
   3 ;; $Id: letter.el,v 1.4 2008/05/25 06:50:33 angeli Exp $
   4
   5 ;;; Code:
   6
   7 ;; You may want to define this in tex-site.el to contain your
   8 ;; organizations address.
   9 (defvar LaTeX-letter-sender-address ""
  10   "Initial value when prompting for a sender address in the letter style.")
  11
  12 (TeX-add-style-hook "letter"
  13  (function
  14   (lambda ()
  15     (LaTeX-add-environments
  16      '("letter" LaTeX-env-recipient))
  17     (TeX-add-symbols
  18      '("name" "Sender: ")
  19      '("address" "Sender address: ")
  20      '("signature" "Signature: ")
  21      '("opening" "Opening: ")
  22      '("closing" "Closing: ")))))
  23
  24 (defun LaTeX-env-recipient (environment)
  25   "Insert ENVIRONMENT and prompt for recipient and address."
  26   (let ((sender (read-string "Sender: " (user-full-name)))
  27         (sender-address (read-string "Sender address: "
  28                                     LaTeX-letter-sender-address))
  29         (recipient (read-string "Recipient: "))
  30         (address (read-string "Recipient address: "))
  31         (signature (read-string "Signature: "))
  32         (opening (read-string "Opening: "))
  33         (closing (read-string "Closing: "))
  34         (date (read-string "Date: " (LaTeX-today))))
  35
  36     (insert TeX-esc "name" TeX-grop sender TeX-grcl)
  37     (newline-and-indent)
  38     (if (not (zerop (length sender-address)))
  39         (progn
  40           (setq LaTeX-letter-sender-address sender-address)
  41           (insert TeX-esc "address" TeX-grop sender-address TeX-grcl)
  42           (newline-and-indent)))
  43     (if (not (zerop (length signature)))
  44         (progn
  45           (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
  46           (newline-and-indent)))
  47     (if (not (zerop (length date)))
  48         (progn
  49           (insert TeX-esc "def" TeX-esc "today" TeX-grop date TeX-grcl)
  50           (newline-and-indent)))
  51     (newline-and-indent)
  52
  53     (let ((indentation (current-column)))
  54       (LaTeX-insert-environment
  55        environment
  56        (concat TeX-grop recipient
  57                (if (not (zerop (length address)))
  58                    (concat
  59                     (if (not (zerop (length recipient)))
  60                         (concat " " TeX-esc TeX-esc " "))
  61                     address))
  62                TeX-grcl))
  63       (save-excursion                   ; Fix indentation of address
  64         (if (search-backward TeX-grcl nil 'move)
  65             (let ((addr-end (point-marker)))
  66               (if (search-backward TeX-grop nil 'move)
  67                   (let ((addr-column (current-column)))
  68                     (while (search-forward
  69                             (concat TeX-esc TeX-esc)
  70                             (marker-position addr-end) 'move)
  71                       (progn
  72                         (newline)
  73                         (indent-to addr-column))))))))
  74       (insert "\n")
  75       (indent-to indentation))
  76     (insert TeX-esc "opening"
  77             TeX-grop
  78             (if (zerop (length opening))
  79                 (concat TeX-esc " ")
  80               opening)
  81             TeX-grcl "\n")
  82
  83     (indent-relative-maybe)
  84     (save-excursion
  85       (insert "\n" TeX-esc "closing"
  86               TeX-grop
  87               (if (zerop (length closing))
  88                   (concat TeX-esc " ")
  89                 closing)
  90               TeX-grcl "\n")
  91       (indent-relative-maybe))))
  92
  93 (defun LaTeX-today nil
  94   "Return a string representing todays date according to flavor."
  95   (interactive)
  96   (let ((ctime-string (current-time-string))
  97         (month-alist '(("Jan". "01")
  98                        ("Feb" . "02")
  99                        ("Mar" . "03")
 100                        ("Apr" . "04")
 101                        ("May" . "05")
 102                        ("Jun" . "06")
 103                        ("Jul" . "07")
 104                        ("Aug" . "08")
 105                        ("Sep" . "09")
 106                        ("Oct" . "10")
 107                        ("Nov" . "11")
 108                        ("Dec" . "12"))))
 109     (string-match
 110      "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
 111      ctime-string)
 112     (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
 113           (month (substring ctime-string (match-beginning 1) (match-end 1)))
 114           (day (substring ctime-string (match-beginning 2) (match-end 2))))
 115       (if (assoc month month-alist)
 116           (progn
 117             (setq month (cdr (assoc month month-alist)))
 118             (if (> 2 (length day))
 119                 (setq day (concat "0" day)))))
 120       (format "%s-%s-%s" year month day))))
 121
 122 ;;; letter.el ends here