1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
;;; letter.el - Special code for letter style.
;; $Id: letter.el,v 1.3 1994/01/05 19:09:22 amanda 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-input "Sender: " (user-full-name)))
(sender-address (read-input "Sender address: "
LaTeX-letter-sender-address))
(recipient (read-input "Recipient: "))
(address (read-input "Recipient address: "))
(signature (read-input "Signature: "))
(opening (read-input "Opening: "))
(closing (read-input "Closing: "))
(date (read-input "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
|
