1 ;;; letter.el - Special code for letter style.
3 ;; $Id: letter.el,v 1.4 2008/05/25 06:50:33 angeli Exp $
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.")
12 (TeX-add-style-hook "letter"
15 (LaTeX-add-environments
16 '("letter" LaTeX-env-recipient))
19 '("address" "Sender address: ")
20 '("signature" "Signature: ")
21 '("opening" "Opening: ")
22 '("closing" "Closing: ")))))
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))))
36 (insert TeX-esc "name" TeX-grop sender TeX-grcl)
38 (if (not (zerop (length sender-address)))
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)))
45 (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
46 (newline-and-indent)))
47 (if (not (zerop (length date)))
49 (insert TeX-esc "def" TeX-esc "today" TeX-grop date TeX-grcl)
50 (newline-and-indent)))
53 (let ((indentation (current-column)))
54 (LaTeX-insert-environment
56 (concat TeX-grop recipient
57 (if (not (zerop (length address)))
59 (if (not (zerop (length recipient)))
60 (concat " " TeX-esc TeX-esc " "))
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)
73 (indent-to addr-column))))))))
75 (indent-to indentation))
76 (insert TeX-esc "opening"
78 (if (zerop (length opening))
83 (indent-relative-maybe)
85 (insert "\n" TeX-esc "closing"
87 (if (zerop (length closing))
91 (indent-relative-maybe))))
93 (defun LaTeX-today nil
94 "Return a string representing todays date according to flavor."
96 (let ((ctime-string (current-time-string))
97 (month-alist '(("Jan". "01")
110 "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
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)
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))))
122 ;;; letter.el ends here