--- /dev/null
+;;; letter.el - Special code for letter style.
+
+;; $Id: letter.el,v 1.4 2008/05/25 06:50:33 angeli Exp $
+
+;;; Code:
+
+;; You may want to define this in tex-site.el to contain your
+;; organizations address.
+(defvar LaTeX-letter-sender-address ""
+ "Initial value when prompting for a sender address in the letter style.")
+
+(TeX-add-style-hook "letter"
+ (function
+ (lambda ()
+ (LaTeX-add-environments
+ '("letter" LaTeX-env-recipient))
+ (TeX-add-symbols
+ '("name" "Sender: ")
+ '("address" "Sender address: ")
+ '("signature" "Signature: ")
+ '("opening" "Opening: ")
+ '("closing" "Closing: ")))))
+
+(defun LaTeX-env-recipient (environment)
+ "Insert ENVIRONMENT and prompt for recipient and address."
+ (let ((sender (read-string "Sender: " (user-full-name)))
+ (sender-address (read-string "Sender address: "
+ LaTeX-letter-sender-address))
+ (recipient (read-string "Recipient: "))
+ (address (read-string "Recipient address: "))
+ (signature (read-string "Signature: "))
+ (opening (read-string "Opening: "))
+ (closing (read-string "Closing: "))
+ (date (read-string "Date: " (LaTeX-today))))
+
+ (insert TeX-esc "name" TeX-grop sender TeX-grcl)
+ (newline-and-indent)
+ (if (not (zerop (length sender-address)))
+ (progn
+ (setq LaTeX-letter-sender-address sender-address)
+ (insert TeX-esc "address" TeX-grop sender-address TeX-grcl)
+ (newline-and-indent)))
+ (if (not (zerop (length signature)))
+ (progn
+ (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
+ (newline-and-indent)))
+ (if (not (zerop (length date)))
+ (progn
+ (insert TeX-esc "def" TeX-esc "today" 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))))))))
+ (insert "\n")
+ (indent-to indentation))
+ (insert TeX-esc "opening"
+ TeX-grop
+ (if (zerop (length opening))
+ (concat TeX-esc " ")
+ opening)
+ TeX-grcl "\n")
+
+ (indent-relative-maybe)
+ (save-excursion
+ (insert "\n" TeX-esc "closing"
+ TeX-grop
+ (if (zerop (length closing))
+ (concat TeX-esc " ")
+ closing)
+ TeX-grcl "\n")
+ (indent-relative-maybe))))
+
+(defun LaTeX-today nil
+ "Return a string representing todays date according to flavor."
+ (interactive)
+ (let ((ctime-string (current-time-string))
+ (month-alist '(("Jan". "01")
+ ("Feb" . "02")
+ ("Mar" . "03")
+ ("Apr" . "04")
+ ("May" . "05")
+ ("Jun" . "06")
+ ("Jul" . "07")
+ ("Aug" . "08")
+ ("Sep" . "09")
+ ("Oct" . "10")
+ ("Nov" . "11")
+ ("Dec" . "12"))))
+ (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))))
+ (if (assoc month month-alist)
+ (progn
+ (setq month (cdr (assoc month month-alist)))
+ (if (> 2 (length day))
+ (setq day (concat "0" day)))))
+ (format "%s-%s-%s" year month day))))
+
+;;; letter.el ends here