|
38422
|
1 ;;; cal-tex.el --- calendar functions for printing calendars with LaTeX
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
2
|
|
75346
|
3 ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007
|
|
67465
|
4 ;; Free Software Foundation, Inc.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
5
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
6 ;; Author: Steve Fisk <fisk@bowdoin.edu>
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
7 ;; Edward M. Reingold <reingold@cs.uiuc.edu>
|
|
67465
|
8 ;; Maintainer: Glenn Morris <rgm@gnu.org>
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
9 ;; Keywords: calendar
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
10 ;; Human-Keywords: Calendar, LaTeX
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
11
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
12 ;; This file is part of GNU Emacs.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
13
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
15 ;; it under the terms of the GNU General Public License as published by
|
|
78216
|
16 ;; the Free Software Foundation; either version 3, or (at your option)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
17 ;; any later version.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
18
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
19 ;; GNU Emacs is distributed in the hope that it will be useful,
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
22 ;; GNU General Public License for more details.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
23
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
24 ;; You should have received a copy of the GNU General Public License
|
|
14169
|
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
64085
|
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
27 ;; Boston, MA 02110-1301, USA.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
28
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
29 ;;; Commentary:
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
30
|
|
13206
|
31 ;; This collection of functions implements the creation of LaTeX calendars
|
|
|
32 ;; based on the user's holiday choices and diary file.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
33
|
|
82105
|
34 ;; The user commands are:
|
|
|
35 ;; cal-tex-cursor-year
|
|
|
36 ;; cal-tex-cursor-year-landscape
|
|
|
37 ;; cal-tex-cursor-filofax-year
|
|
|
38 ;; cal-tex-cursor-month-landscape
|
|
|
39 ;; cal-tex-cursor-month
|
|
|
40 ;; cal-tex-cursor-week
|
|
|
41 ;; cal-tex-cursor-week2
|
|
|
42 ;; cal-tex-cursor-week-iso
|
|
|
43 ;; cal-tex-cursor-week-monday
|
|
|
44 ;; cal-tex-cursor-filofax-2week
|
|
|
45 ;; cal-tex-cursor-filofax-week
|
|
|
46 ;; cal-tex-cursor-filofax-daily
|
|
|
47 ;; cal-tex-cursor-day
|
|
|
48
|
|
14169
|
49 ;; TO DO
|
|
|
50 ;;
|
|
|
51 ;; (*) Add holidays and diary entries to daily calendar.
|
|
|
52 ;;
|
|
|
53 ;; (*) Add diary entries to weekly calendar functions.
|
|
|
54 ;;
|
|
|
55 ;; (*) Make calendar styles for A4 paper.
|
|
|
56 ;;
|
|
19973
|
57 ;; (*) Make monthly styles Filofax paper.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
58
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
59 ;;; Code:
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
60
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
61 (require 'calendar)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
62
|
|
70311
|
63 (autoload 'diary-list-entries "diary-lib" nil t)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
64 (autoload 'calendar-holiday-list "holidays" nil t)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
65 (autoload 'calendar-iso-from-absolute "cal-iso" nil t)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
66
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
67 ;;;
|
|
49598
|
68 ;;; Customizable variables
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
69 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
70
|
|
17626
|
71 (defcustom cal-tex-which-days '(0 1 2 3 4 5 6)
|
|
82080
|
72 "The days of the week that are displayed on the portrait monthly calendar.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
73 Sunday is 0, Monday is 1, and so on. The default is to print from Sunday to
|
|
82105
|
74 Saturday. For example, use '(1 3 5) to only print Monday, Wednesday, Friday."
|
|
17626
|
75 :type '(repeat integer)
|
|
|
76 :group 'calendar-tex)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
77
|
|
17626
|
78 (defcustom cal-tex-holidays t
|
|
78205
|
79 "Non-nil means holidays are printed in the LaTeX calendars that support it.
|
|
82105
|
80 Setting this to nil may speed up calendar generation."
|
|
17626
|
81 :type 'boolean
|
|
|
82 :group 'calendar-tex)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
83
|
|
17626
|
84 (defcustom cal-tex-diary nil
|
|
78205
|
85 "Non-nil means diary entries are printed in LaTeX calendars that support it.
|
|
|
86 At present, this only affects the monthly, filofax, and iso-week
|
|
82105
|
87 calendars (i.e. not the yearly, plain weekly, or daily calendars).
|
|
|
88 Setting this to nil may speed up calendar generation."
|
|
17626
|
89 :type 'boolean
|
|
|
90 :group 'calendar-tex)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
91
|
|
25130
|
92 (defcustom cal-tex-rules nil
|
|
78205
|
93 "Non-nil means pages will be ruled in some LaTeX calendar styles.
|
|
|
94 At present, this only affects the daily filofax calendar."
|
|
25130
|
95 :type 'boolean
|
|
|
96 :group 'calendar-tex)
|
|
|
97
|
|
17626
|
98 (defcustom cal-tex-daily-string
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
99 '(let* ((year (extract-calendar-year date))
|
|
82080
|
100 (day (calendar-day-number date))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
101 (days-remaining (- (calendar-day-number (list 12 31 year)) day)))
|
|
82080
|
102 (format "%d/%d" day days-remaining))
|
|
82105
|
103 "Lisp expression giving the date format to use in the LaTeX calendars.
|
|
|
104 This should be an expression involving the variable `date'. When
|
|
|
105 this expression is called, `date' is a list of the form '(MONTH DAY YEAR)'.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
106
|
|
82105
|
107 The string resulting from evaluating this expression is placed at
|
|
|
108 the bottom center of each date in monthly calendars, next to the
|
|
|
109 date in the weekly calendars, and in the top center of daily calendars.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
110
|
|
82105
|
111 The default is ordinal day number of the year and the number of
|
|
|
112 days remaining. As an example, setting this to
|
|
|
113
|
|
|
114 '(calendar-hebrew-date-string date)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
115
|
|
17626
|
116 will put the Hebrew date at the bottom of each day."
|
|
|
117 :type 'sexp
|
|
|
118 :group 'calendar-tex)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
119
|
|
17626
|
120 (defcustom cal-tex-buffer "calendar.tex"
|
|
78205
|
121 "The name for the output LaTeX calendar buffer."
|
|
17626
|
122 :type 'string
|
|
|
123 :group 'calendar-tex)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
124
|
|
17626
|
125 (defcustom cal-tex-24 nil
|
|
78205
|
126 "Non-nil means use a 24 hour clock in the daily calendar."
|
|
17626
|
127 :type 'boolean
|
|
|
128 :group 'calendar-tex)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
129
|
|
17626
|
130 (defcustom cal-tex-daily-start 8
|
|
82105
|
131 "The first hour of the daily LaTeX calendar page.
|
|
|
132 At present, this only affects `cal-tex-cursor-day'."
|
|
17626
|
133 :type 'integer
|
|
|
134 :group 'calendar-tex)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
135
|
|
17626
|
136 (defcustom cal-tex-daily-end 20
|
|
82105
|
137 "The last hour of the daily LaTeX calendar page.
|
|
|
138 At present, this only affects `cal-tex-cursor-day'"
|
|
17626
|
139 :type 'integer
|
|
|
140 :group 'calendar-tex)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
141
|
|
70311
|
142 (defcustom cal-tex-preamble-extra nil
|
|
|
143 "A string giving extra LaTeX commands to insert in the calendar preamble.
|
|
|
144 For example, to include extra packages:
|
|
|
145 \"\\\\usepackage{foo}\\n\\\\usepackage{bar}\\n\"."
|
|
|
146 :type 'string
|
|
|
147 :group 'calendar-tex
|
|
|
148 :version "22.1")
|
|
|
149
|
|
44368
|
150 (defcustom cal-tex-hook nil
|
|
82080
|
151 "List of functions called after any LaTeX calendar buffer is generated.
|
|
44368
|
152 You can use this to do postprocessing on the buffer. For example, to change
|
|
|
153 characters with diacritical marks to their LaTeX equivalents, use
|
|
82105
|
154 (add-hook 'cal-tex-hook
|
|
|
155 (lambda () (iso-iso2tex (point-min) (point-max))))"
|
|
44368
|
156 :type 'hook
|
|
|
157 :group 'calendar-tex)
|
|
|
158
|
|
|
159 (defcustom cal-tex-year-hook nil
|
|
82080
|
160 "List of functions called after a LaTeX year calendar buffer is generated."
|
|
44368
|
161 :type 'hook
|
|
|
162 :group 'calendar-tex)
|
|
|
163
|
|
|
164 (defcustom cal-tex-month-hook nil
|
|
82080
|
165 "List of functions called after a LaTeX month calendar buffer is generated."
|
|
44368
|
166 :type 'hook
|
|
|
167 :group 'calendar-tex)
|
|
|
168
|
|
|
169 (defcustom cal-tex-week-hook nil
|
|
82080
|
170 "List of functions called after a LaTeX week calendar buffer is generated."
|
|
44368
|
171 :type 'hook
|
|
|
172 :group 'calendar-tex)
|
|
|
173
|
|
|
174 (defcustom cal-tex-daily-hook nil
|
|
82080
|
175 "List of functions called after a LaTeX daily calendar buffer is generated."
|
|
44368
|
176 :type 'hook
|
|
|
177 :group 'calendar-tex)
|
|
|
178
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
179 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
180 ;;; Definitions for LaTeX code
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
181 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
182
|
|
82105
|
183 (defconst cal-tex-day-prefix "\\caldate{%s}{%s}"
|
|
49598
|
184 "The initial LaTeX code for a day.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
185 The holidays, diary entries, bottom string, and the text follow.")
|
|
49598
|
186
|
|
82105
|
187 (defconst cal-tex-day-name-format "\\myday{%s}%%"
|
|
82080
|
188 "The format for LaTeX code for a day name.
|
|
|
189 The names are taken from `calendar-day-name-array'.")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
190
|
|
82105
|
191 (defconst cal-tex-cal-one-month
|
|
82080
|
192 "\\def\\calmonth#1#2%
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
193 {\\begin{center}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
194 \\Huge\\bf\\uppercase{#1} #2 \\\\[1cm]%
|
|
49598
|
195 \\end{center}}%
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
196 \\vspace*{-1.5cm}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
197 %
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
198 "
|
|
82105
|
199 "LaTeX code for the month header, for a single month calendar.")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
200
|
|
82105
|
201 (defconst cal-tex-cal-multi-month
|
|
82080
|
202 "\\def\\calmonth#1#2#3#4%
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
203 {\\begin{center}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
204 \\Huge\\bf #1 #2---#3 #4\\\\[1cm]%
|
|
49598
|
205 \\end{center}}%
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
206 \\vspace*{-1.5cm}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
207 %
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
208 "
|
|
82105
|
209 "LaTeX code for the month header, for a multi-month calendar.")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
210
|
|
82105
|
211 (defconst cal-tex-myday
|
|
82080
|
212 "\\renewcommand{\\myday}[1]%
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
213 {\\makebox[\\cellwidth]{\\hfill\\large\\bf#1\\hfill}}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
214 %
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
215 "
|
|
82080
|
216 "LaTeX code for a day heading.")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
217
|
|
82105
|
218 (defconst cal-tex-caldate
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
219 "\\fboxsep=0pt
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
220 \\long\\def\\caldate#1#2#3#4#5#6{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
221 \\fbox{\\hbox to\\cellwidth{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
222 \\vbox to\\cellheight{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
223 \\hbox to\\cellwidth{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
224 {\\hspace*{1mm}\\Large \\bf \\strut #2}\\hspace{.05\\cellwidth}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
225 \\raisebox{\\holidaymult\\cellheight}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
226 {\\parbox[t]{.75\\cellwidth}{\\tiny \\raggedright #4}}}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
227 \\hbox to\\cellwidth{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
228 \\hspace*{1mm}\\parbox{.95\\cellwidth}{\\tiny \\raggedright #3}}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
229 \\hspace*{1mm}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
230 \\hbox to\\cellwidth{#6}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
231 \\vfill%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
232 \\hbox to\\cellwidth{\\hfill \\tiny #5 \\hfill}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
233 \\vskip 1.4pt}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
234 \\hskip -0.4pt}}}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
235 "
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
236 "LaTeX code to insert one box with date info in calendar.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
237 This definition is the heart of the calendar!")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
238
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
239 (defun cal-tex-list-holidays (d1 d2)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
240 "Generate a list of all holidays from absolute date D1 to D2."
|
22147
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
241 (let* ((start (calendar-gregorian-from-absolute d1))
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
242 (displayed-month (extract-calendar-month start))
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
243 (displayed-year (extract-calendar-year start))
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
244 (end (calendar-gregorian-from-absolute d2))
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
245 (end-month (extract-calendar-month end))
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
246 (end-year (extract-calendar-year end))
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
247 (number-of-intervals
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
248 (1+ (/ (calendar-interval displayed-month displayed-year
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
249 end-month end-year)
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
250 3)))
|
|
82080
|
251 holidays in-range a)
|
22147
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
252 (increment-calendar-month displayed-month displayed-year 1)
|
|
82080
|
253 (dotimes (idummy number-of-intervals)
|
22147
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
254 (setq holidays (append holidays (calendar-holiday-list)))
|
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
255 (increment-calendar-month displayed-month displayed-year 3))
|
|
82080
|
256 (dolist (hol holidays)
|
|
|
257 (and (car hol)
|
|
|
258 (setq a (calendar-absolute-from-gregorian (car hol)))
|
|
|
259 (and (<= d1 a) (<= a d2))
|
|
|
260 (setq in-range (append (list hol) in-range))))
|
22147
803bcc3c1a49
Rewrote cal-tex-list-holidays to get holidays in the range correctly (and more
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
261 in-range))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
262
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
263 (defun cal-tex-list-diary-entries (d1 d2)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
264 "Generate a list of all diary-entries from absolute date D1 to D2."
|
19312
d67c0dba233d
(cal-tex-latexify-list): Put the elements of RESULT in the proper order.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
265 (let ((diary-list-include-blanks nil)
|
22415
c9fa49047eb5
Prevent diary display from being corrupted on printed calendar generation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
266 (diary-display-hook 'ignore))
|
|
70311
|
267 (diary-list-entries
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
268 (calendar-gregorian-from-absolute d1)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
269 (1+ (- d2 d1)))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
270
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
271 (defun cal-tex-preamble (&optional args)
|
|
82105
|
272 "Insert the LaTeX calendar preamble into `cal-tex-buffer'.
|
|
82080
|
273 Preamble includes initial definitions for various LaTeX commands.
|
|
82105
|
274 Optional string ARGS are included as options for the article document class."
|
|
|
275 ;; FIXME use generate-new-buffer, and adjust cal-tex-end-document.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
276 (set-buffer (get-buffer-create cal-tex-buffer))
|
|
82105
|
277 (insert (format "\\documentclass%s{article}\n"
|
|
|
278 (if (stringp args)
|
|
|
279 (format "[%s]" args)
|
|
|
280 "")))
|
|
70311
|
281 (if (stringp cal-tex-preamble-extra)
|
|
|
282 (insert cal-tex-preamble-extra "\n"))
|
|
|
283 (insert "\\hbadness 20000
|
14268
28face32932e
Add \hfuzz=1000pt to get rid of overfull box messages.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
284 \\hfuzz=1000pt
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
285 \\vbadness 20000
|
|
17196
|
286 \\lineskip 0pt
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
287 \\marginparwidth 0pt
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
288 \\oddsidemargin -2cm
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
289 \\evensidemargin -2cm
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
290 \\marginparsep 0pt
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
291 \\topmargin 0pt
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
292 \\textwidth 7.5in
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
293 \\textheight 9.5in
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
294 \\newlength{\\cellwidth}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
295 \\newlength{\\cellheight}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
296 \\newlength{\\boxwidth}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
297 \\newlength{\\boxheight}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
298 \\newlength{\\cellsize}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
299 \\newcommand{\\myday}[1]{}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
300 \\newcommand{\\caldate}[6]{}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
301 \\newcommand{\\nocaldate}[6]{}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
302 \\newcommand{\\calsmall}[6]{}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
303 %
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
304 "))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
305
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
306 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
307 ;;; Yearly calendars
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
308 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
309
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
310 (defun cal-tex-cursor-year (&optional arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
311 "Make a buffer with LaTeX commands for the year cursor is on.
|
|
82080
|
312 Optional prefix argument ARG specifies number of years."
|
|
44368
|
313 (interactive "p")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
314 (cal-tex-year (extract-calendar-year (calendar-cursor-to-date t))
|
|
82080
|
315 (or arg 1)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
316
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
317 (defun cal-tex-cursor-year-landscape (&optional arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
318 "Make a buffer with LaTeX commands for the year cursor is on.
|
|
82080
|
319 Optional prefix argument ARG specifies number of years."
|
|
44368
|
320 (interactive "p")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
321 (cal-tex-year (extract-calendar-year (calendar-cursor-to-date t))
|
|
82080
|
322 (or arg 1) t))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
323
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
324 (defun cal-tex-year (year n &optional landscape)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
325 "Make a one page yearly calendar of YEAR; do this for N years.
|
|
82105
|
326 There are four rows of three months each, unless optional
|
|
|
327 LANDSCAPE is non-nil, in which case the calendar is printed in
|
|
|
328 landscape mode with three rows of four months each."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
329 (cal-tex-insert-preamble 1 landscape "12pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
330 (if landscape
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
331 (cal-tex-vspace "-.6cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
332 (cal-tex-vspace "-3.1cm"))
|
|
82080
|
333 (dotimes (j n)
|
|
78205
|
334 (insert "\\vfill%\n")
|
|
|
335 (cal-tex-b-center)
|
|
|
336 (cal-tex-Huge (number-to-string year))
|
|
|
337 (cal-tex-e-center)
|
|
|
338 (cal-tex-vspace "1cm")
|
|
|
339 (cal-tex-b-center)
|
|
|
340 (cal-tex-b-parbox "l" (if landscape "5.9in" "4.3in"))
|
|
|
341 (insert "\n")
|
|
|
342 (cal-tex-noindent)
|
|
|
343 (cal-tex-nl)
|
|
82080
|
344 (dotimes (i 12)
|
|
|
345 (insert (cal-tex-mini-calendar (1+ i) year "month" "1.1in" "1in"))
|
|
|
346 (insert "\\month")
|
|
|
347 (cal-tex-hspace "0.5in")
|
|
|
348 (if (zerop (mod (1+ i) (if landscape 4 3)))
|
|
|
349 (cal-tex-nl "0.5in")))
|
|
78205
|
350 (cal-tex-e-parbox)
|
|
|
351 (cal-tex-e-center)
|
|
|
352 (insert "\\vfill%\n")
|
|
|
353 (setq year (1+ year))
|
|
82080
|
354 (if (= j (1- n))
|
|
|
355 (cal-tex-end-document)
|
|
|
356 (cal-tex-newpage))
|
|
78205
|
357 (run-hooks 'cal-tex-year-hook))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
358 (run-hooks 'cal-tex-hook))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
359
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
360 (defun cal-tex-cursor-filofax-year (&optional arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
361 "Make a Filofax one page yearly calendar of year indicated by cursor.
|
|
82080
|
362 Optional prefix argument ARG specifies number of years."
|
|
44368
|
363 (interactive "p")
|
|
82080
|
364 (let ((n (or arg 1))
|
|
|
365 (year (extract-calendar-year (calendar-cursor-to-date t))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
366 (cal-tex-preamble "twoside")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
367 (cal-tex-cmd "\\textwidth 3.25in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
368 (cal-tex-cmd "\\textheight 6.5in")
|
15433
172725d0d2d5
A bit more fiddling with layout of Filofax year page.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
369 (cal-tex-cmd "\\oddsidemargin 1.675in")
|
172725d0d2d5
A bit more fiddling with layout of Filofax year page.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
370 (cal-tex-cmd "\\evensidemargin 1.675in")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
371 (cal-tex-cmd "\\topmargin 0pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
372 (cal-tex-cmd "\\headheight -0.875in")
|
15432
c76e8e8fdb0a
Fix Filofax year output so that it's the correct size.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
373 (cal-tex-cmd "\\fboxsep 0.5mm")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
374 (cal-tex-cmd "\\pagestyle{empty}")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
375 (cal-tex-b-document)
|
15432
c76e8e8fdb0a
Fix Filofax year output so that it's the correct size.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
376 (cal-tex-cmd "\\vspace*{0.25in}")
|
|
82080
|
377 (dotimes (j n)
|
|
82105
|
378 (insert (format "\\hfil \\textbf{\\Large %s} \\hfil\\\\\n" year))
|
|
78205
|
379 (cal-tex-b-center)
|
|
|
380 (cal-tex-b-parbox "l" "\\textwidth")
|
|
|
381 (insert "\n")
|
|
|
382 (cal-tex-noindent)
|
|
|
383 (cal-tex-nl)
|
|
|
384 (let ((month-names; don't use default in case user changed it
|
|
|
385 ;; These are only used to define the command names, not
|
|
|
386 ;; the names of the months they insert.
|
|
|
387 ["January" "February" "March" "April" "May" "June"
|
|
|
388 "July" "August" "September" "October" "November" "December"]))
|
|
82080
|
389 (dotimes (i 12)
|
|
|
390 (insert (cal-tex-mini-calendar (1+ i) year (aref month-names i)
|
|
78205
|
391 "1in" ".9in" "tiny" "0.6mm"))))
|
|
|
392 (insert
|
|
|
393 "\\noindent\\fbox{\\January}\\fbox{\\February}\\fbox{\\March}\\\\
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
394 \\noindent\\fbox{\\April}\\fbox{\\May}\\fbox{\\June}\\\\
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
395 \\noindent\\fbox{\\July}\\fbox{\\August}\\fbox{\\September}\\\\
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
396 \\noindent\\fbox{\\October}\\fbox{\\November}\\fbox{\\December}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
397 ")
|
|
78205
|
398 (cal-tex-e-parbox)
|
|
|
399 (cal-tex-e-center)
|
|
|
400 (setq year (1+ year))
|
|
82080
|
401 (if (= j (1- n))
|
|
78205
|
402 (cal-tex-end-document)
|
|
|
403 (cal-tex-newpage)
|
|
|
404 (cal-tex-cmd "\\vspace*{0.25in}"))
|
|
|
405 (run-hooks 'cal-tex-year-hook))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
406 (run-hooks 'cal-tex-hook)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
407
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
408 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
409 ;;; Monthly calendars
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
410 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
411
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
412 (defun cal-tex-cursor-month-landscape (&optional arg)
|
|
78205
|
413 "Make a LaTeX calendar buffer for the month the cursor is on.
|
|
82080
|
414 Optional prefix argument ARG specifies number of months to be
|
|
78205
|
415 produced (default 1). The output is in landscape format, one
|
|
|
416 month to a page. It shows holiday and diary entries if
|
|
82080
|
417 `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil."
|
|
44368
|
418 (interactive "p")
|
|
82080
|
419 (let* ((n (or arg 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
420 (date (calendar-cursor-to-date t))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
421 (month (extract-calendar-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
422 (year (extract-calendar-year date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
423 (end-month month)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
424 (end-year year)
|
|
82080
|
425 (cal-tex-which-days '(0 1 2 3 4 5 6))
|
|
|
426 (d1 (calendar-absolute-from-gregorian (list month 1 year)))
|
|
|
427 (d2 (calendar-absolute-from-gregorian
|
|
|
428 (list end-month
|
|
|
429 (calendar-last-day-of-month end-month end-year)
|
|
|
430 end-year))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
431 (increment-calendar-month end-month end-year (1- n))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
432 (let ((diary-list (if cal-tex-diary
|
|
82080
|
433 (cal-tex-list-diary-entries d1 d2)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
434 (holidays (if cal-tex-holidays
|
|
82080
|
435 (cal-tex-list-holidays d1 d2)))
|
|
|
436 other-month other-year small-months-at-start)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
437 (cal-tex-insert-preamble (cal-tex-number-weeks month year 1) t "12pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
438 (cal-tex-cmd cal-tex-cal-one-month)
|
|
82080
|
439 (dotimes (i n)
|
|
|
440 (setq other-month month
|
|
|
441 other-year year)
|
|
78205
|
442 (increment-calendar-month other-month other-year -1)
|
|
|
443 (insert (cal-tex-mini-calendar other-month other-year "lastmonth"
|
|
|
444 "\\cellwidth" "\\cellheight"))
|
|
|
445 (increment-calendar-month other-month other-year 2)
|
|
|
446 (insert (cal-tex-mini-calendar other-month other-year "nextmonth"
|
|
|
447 "\\cellwidth" "\\cellheight"))
|
|
|
448 (cal-tex-insert-month-header 1 month year month year)
|
|
|
449 (cal-tex-insert-day-names)
|
|
|
450 (cal-tex-nl ".2cm")
|
|
82080
|
451 (if (setq small-months-at-start
|
|
78205
|
452 (< 1 (mod (- (calendar-day-of-week (list month 1 year))
|
|
|
453 calendar-week-start-day)
|
|
|
454 7)))
|
|
|
455 (insert "\\lastmonth\\nextmonth\\hspace*{-2\\cellwidth}"))
|
|
|
456 (cal-tex-insert-blank-days month year cal-tex-day-prefix)
|
|
|
457 (cal-tex-insert-days month year diary-list holidays
|
|
|
458 cal-tex-day-prefix)
|
|
|
459 (cal-tex-insert-blank-days-at-end month year cal-tex-day-prefix)
|
|
|
460 (if (and (not small-months-at-start)
|
|
|
461 (< 1 (mod (- (1- calendar-week-start-day)
|
|
|
462 (calendar-day-of-week
|
|
|
463 (list month
|
|
|
464 (calendar-last-day-of-month month year)
|
|
|
465 year)))
|
|
|
466 7)))
|
|
|
467 (insert "\\vspace*{-\\cellwidth}\\hspace*{-2\\cellwidth}"
|
|
|
468 "\\lastmonth\\nextmonth%
|
|
44368
|
469 "))
|
|
82080
|
470 (unless (= i (1- n))
|
|
|
471 (run-hooks 'cal-tex-month-hook)
|
|
|
472 (cal-tex-newpage)
|
|
|
473 (increment-calendar-month month year 1)
|
|
|
474 (cal-tex-vspace "-2cm")
|
|
|
475 (cal-tex-insert-preamble
|
|
|
476 (cal-tex-number-weeks month year 1) t "12pt" t)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
477 (cal-tex-end-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
478 (run-hooks 'cal-tex-hook))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
479
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
480 (defun cal-tex-cursor-month (arg)
|
|
78205
|
481 "Make a LaTeX calendar buffer for the month the cursor is on.
|
|
82080
|
482 Optional prefix argument ARG specifies number of months to be
|
|
78205
|
483 produced (default 1). The calendar is condensed onto one page.
|
|
|
484 It shows holiday and diary entries if `cal-tex-holidays' and
|
|
|
485 `cal-tex-diary', respectively, are non-nil."
|
|
44368
|
486 (interactive "p")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
487 (let* ((date (calendar-cursor-to-date t))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
488 (month (extract-calendar-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
489 (year (extract-calendar-year date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
490 (end-month month)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
491 (end-year year)
|
|
82080
|
492 (n (or arg 1))
|
|
|
493 (d1 (calendar-absolute-from-gregorian (list month 1 year)))
|
|
|
494 (d2 (calendar-absolute-from-gregorian
|
|
|
495 (list end-month
|
|
|
496 (calendar-last-day-of-month end-month end-year)
|
|
|
497 end-year))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
498 (increment-calendar-month end-month end-year (1- n))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
499 (let ((diary-list (if cal-tex-diary
|
|
82080
|
500 (cal-tex-list-diary-entries d1 d2)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
501 (holidays (if cal-tex-holidays
|
|
82080
|
502 (cal-tex-list-holidays d1 d2)))
|
|
|
503 other-month other-year)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
504 (cal-tex-insert-preamble (cal-tex-number-weeks month year n) nil"12pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
505 (if (> n 1)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
506 (cal-tex-cmd cal-tex-cal-multi-month)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
507 (cal-tex-cmd cal-tex-cal-one-month))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
508 (cal-tex-insert-month-header n month year end-month end-year)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
509 (cal-tex-insert-day-names)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
510 (cal-tex-nl ".2cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
511 (cal-tex-insert-blank-days month year cal-tex-day-prefix)
|
|
82080
|
512 (dotimes (idummy n)
|
|
|
513 (setq other-month month
|
|
|
514 other-year year)
|
|
|
515 (cal-tex-insert-days month year diary-list holidays cal-tex-day-prefix)
|
|
|
516 (when (= (mod (calendar-absolute-from-gregorian
|
|
78205
|
517 (list month
|
|
|
518 (calendar-last-day-of-month month year)
|
|
|
519 year))
|
|
|
520 7)
|
|
82080
|
521 6) ; last day of month was Saturday
|
|
|
522 (cal-tex-hfill)
|
|
|
523 (cal-tex-nl))
|
|
78205
|
524 (increment-calendar-month month year 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
525 (cal-tex-insert-blank-days-at-end end-month end-year cal-tex-day-prefix)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
526 (cal-tex-end-document)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
527 (run-hooks 'cal-tex-hook))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
528
|
|
49598
|
529 (defun cal-tex-insert-days (month year diary-list holidays day-format)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
530 "Insert LaTeX commands for a range of days in monthly calendars.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
531 LaTeX commands are inserted for the days of the MONTH in YEAR.
|
|
78205
|
532 Diary entries on DIARY-LIST are included. Holidays on HOLIDAYS
|
|
|
533 are included. Each day is formatted using format DAY-FORMAT."
|
|
82080
|
534 (let ((blank-days ; at start of month
|
|
|
535 (mod
|
|
|
536 (- (calendar-day-of-week (list month 1 year))
|
|
|
537 calendar-week-start-day)
|
|
|
538 7))
|
|
|
539 (last (calendar-last-day-of-month month year))
|
|
|
540 date j)
|
|
|
541 (dotimes (i last)
|
|
|
542 (setq j (1+ i) ; 1-last, incl
|
|
|
543 date (list month j year))
|
|
|
544 (when (memq (calendar-day-of-week date) cal-tex-which-days)
|
|
|
545 (insert (format day-format (cal-tex-month-name month) j))
|
|
|
546 (cal-tex-arg (cal-tex-latexify-list diary-list date))
|
|
|
547 (cal-tex-arg (cal-tex-latexify-list holidays date))
|
|
|
548 (cal-tex-arg (eval cal-tex-daily-string))
|
|
|
549 (cal-tex-arg)
|
|
|
550 (cal-tex-comment))
|
|
|
551 (when (and (zerop (mod (+ j blank-days) 7))
|
|
|
552 (/= j last))
|
|
|
553 (cal-tex-hfill)
|
|
|
554 (cal-tex-nl)))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
555
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
556 (defun cal-tex-insert-day-names ()
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
557 "Insert the names of the days at top of a monthly calendar."
|
|
82080
|
558 (dotimes (i 7)
|
|
78205
|
559 (if (memq i cal-tex-which-days)
|
|
|
560 (insert (format cal-tex-day-name-format
|
|
|
561 (cal-tex-LaTeXify-string
|
|
|
562 (aref calendar-day-name-array
|
|
|
563 (mod (+ calendar-week-start-day i) 7))))))
|
|
|
564 (cal-tex-comment)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
565
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
566 (defun cal-tex-insert-month-header (n month year end-month end-year)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
567 "Create a title for a calendar.
|
|
49598
|
568 A title is inserted for a calendar with N months starting with
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
569 MONTH YEAR and ending with END-MONTH END-YEAR."
|
|
82080
|
570 (let ((month-name (cal-tex-month-name month))
|
|
|
571 (end-month-name (cal-tex-month-name end-month)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
572 (if (= 1 n)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
573 (insert (format "\\calmonth{%s}{%s}\n\\vspace*{-0.5cm}"
|
|
82080
|
574 month-name year) )
|
|
|
575 (insert (format "\\calmonth{%s}{%s}{%s}{%s}\n\\vspace*{-0.5cm}"
|
|
|
576 month-name year end-month-name end-year))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
577 (cal-tex-comment))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
578
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
579 (defun cal-tex-insert-blank-days (month year day-format)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
580 "Insert code for initial days not in calendar.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
581 Insert LaTeX code for the blank days at the beginning of the MONTH in
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
582 YEAR. The entry is formatted using DAY-FORMAT. If the entire week is
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
583 blank, no days are inserted."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
584 (if (cal-tex-first-blank-p month year)
|
|
82080
|
585 (let ((blank-days ; at start of month
|
|
|
586 (mod
|
|
|
587 (- (calendar-day-of-week (list month 1 year))
|
|
|
588 calendar-week-start-day)
|
|
|
589 7)))
|
|
|
590 (dotimes (i blank-days)
|
|
78205
|
591 (if (memq i cal-tex-which-days)
|
|
|
592 (insert (format day-format " " " ") "{}{}{}{}%\n"))))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
593
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
594 (defun cal-tex-insert-blank-days-at-end (month year day-format)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
595 "Insert code for final days not in calendar.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
596 Insert LaTeX code for the blank days at the end of the MONTH in YEAR.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
597 The entry is formatted using DAY-FORMAT."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
598 (if (cal-tex-last-blank-p month year)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
599 (let* ((last-day (calendar-last-day-of-month month year))
|
|
82080
|
600 (blank-days ; at end of month
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
601 (mod
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
602 (- (calendar-day-of-week (list month last-day year))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
603 calendar-week-start-day)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
604 7)))
|
|
49598
|
605 (calendar-for-loop i from (1+ blank-days) to 6 do
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
606 (if (memq i cal-tex-which-days)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
607 (insert (format day-format "" "") "{}{}{}{}%\n"))))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
608
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
609 (defun cal-tex-first-blank-p (month year)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
610 "Determine if any days of the first week will be printed.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
611 Return t if there will there be any days of the first week printed
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
612 in the calendar starting in MONTH YEAR."
|
|
82080
|
613 (let (any-days the-saturday) ; the day of week of 1st Saturday
|
|
|
614 (dotimes (i 7)
|
|
|
615 (if (= 6 (calendar-day-of-week (list month (1+ i) year)))
|
|
|
616 (setq the-saturday (1+ i))))
|
|
|
617 (dotimes (i the-saturday)
|
|
|
618 (if (memq (calendar-day-of-week (list month (1+ i) year))
|
|
|
619 cal-tex-which-days)
|
|
|
620 (setq any-days t)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
621 any-days))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
622
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
623 (defun cal-tex-last-blank-p (month year)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
624 "Determine if any days of the last week will be printed.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
625 Return t if there will there be any days of the last week printed
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
626 in the calendar starting in MONTH YEAR."
|
|
82080
|
627 (let ((last-day (calendar-last-day-of-month month year))
|
|
|
628 any-days the-sunday) ; the day of week of last Sunday
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
629 (calendar-for-loop i from (- last-day 6) to last-day do
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
630 (if (= 0 (calendar-day-of-week (list month i year)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
631 (setq the-sunday i)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
632 (calendar-for-loop i from the-sunday to last-day do
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
633 (if (memq (calendar-day-of-week (list month i year))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
634 cal-tex-which-days)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
635 (setq any-days t)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
636 any-days))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
637
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
638 (defun cal-tex-number-weeks (month year n)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
639 "Determine the number of weeks in a range of dates.
|
|
49598
|
640 Compute the number of weeks in the calendar starting with MONTH and YEAR,
|
|
82080
|
641 and lasting N months, including only the days in WHICH-DAYS. As it stands,
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
642 this is only an upper bound."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
643 (let ((d (list month 1 year)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
644 (increment-calendar-month month year (1- n))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
645 (/ (- (calendar-dayname-on-or-before
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
646 calendar-week-start-day
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
647 (+ 7 (calendar-absolute-from-gregorian
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
648 (list month (calendar-last-day-of-month month year) year))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
649 (calendar-dayname-on-or-before
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
650 calendar-week-start-day
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
651 (calendar-absolute-from-gregorian d)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
652 7)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
653
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
654 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
655 ;;; Weekly calendars
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
656 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
657
|
|
82105
|
658 (defconst cal-tex-LaTeX-hourbox
|
|
52114
|
659 "\\newcommand{\\hourbox}[2]%
|
|
|
660 {\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n"
|
|
|
661 "One hour and a line on the right.")
|
|
|
662
|
|
78205
|
663 ;; TODO cal-tex-diary-support.
|
|
82105
|
664 ;; TODO respect cal-tex-daily-start,end (see cal-tex-week-hours).
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
665 (defun cal-tex-cursor-week (&optional arg)
|
|
78205
|
666 "Make a LaTeX calendar buffer for a two-page one-week calendar.
|
|
|
667 It applies to the week that point is in. The optional prefix
|
|
82080
|
668 argument ARG specifies the number of weeks (default 1). The calendar
|
|
82105
|
669 shows holidays if `cal-tex-holidays' is non-nil (note that diary
|
|
|
670 entries are not shown). The calendar shows the hours 8-12am, 1-5pm."
|
|
44368
|
671 (interactive "p")
|
|
82080
|
672 (let* ((n (or arg 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
673 (date (calendar-gregorian-from-absolute
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
674 (calendar-dayname-on-or-before
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
675 calendar-week-start-day
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
676 (calendar-absolute-from-gregorian
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
677 (calendar-cursor-to-date t)))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
678 (month (extract-calendar-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
679 (year (extract-calendar-year date))
|
|
82080
|
680 (d1 (calendar-absolute-from-gregorian date))
|
|
|
681 (d2 (+ (* 7 n) d1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
682 (holidays (if cal-tex-holidays
|
|
82080
|
683 (cal-tex-list-holidays d1 d2))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
684 (cal-tex-preamble "11pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
685 (cal-tex-cmd "\\textwidth 6.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
686 (cal-tex-cmd "\\textheight 10.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
687 (cal-tex-cmd "\\oddsidemargin 0in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
688 (cal-tex-cmd "\\evensidemargin 0in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
689 (insert cal-tex-LaTeX-hourbox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
690 (cal-tex-b-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
691 (cal-tex-cmd "\\pagestyle{empty}")
|
|
82080
|
692 (dotimes (i n)
|
|
78205
|
693 (cal-tex-vspace "-1.5in")
|
|
|
694 (cal-tex-b-center)
|
|
|
695 (cal-tex-Huge-bf (format "\\uppercase{%s}"
|
|
|
696 (cal-tex-month-name month)))
|
|
|
697 (cal-tex-hspace "2em")
|
|
|
698 (cal-tex-Huge-bf (number-to-string year))
|
|
|
699 (cal-tex-nl ".5cm")
|
|
|
700 (cal-tex-e-center)
|
|
|
701 (cal-tex-hspace "-.2in")
|
|
|
702 (cal-tex-b-parbox "l" "7in")
|
|
82080
|
703 (dotimes (jdummy 7)
|
|
78205
|
704 (cal-tex-week-hours date holidays "3.1")
|
|
|
705 (setq date (cal-tex-incr-date date)))
|
|
|
706 (cal-tex-e-parbox)
|
|
82080
|
707 (setq month (extract-calendar-month date)
|
|
|
708 year (extract-calendar-year date))
|
|
|
709 (unless (= i (1- n))
|
|
|
710 (run-hooks 'cal-tex-week-hook)
|
|
|
711 (cal-tex-newpage)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
712 (cal-tex-end-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
713 (run-hooks 'cal-tex-hook)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
714
|
|
78205
|
715 ;; TODO cal-tex-diary support.
|
|
82105
|
716 ;; TODO respect cal-tex-daily-start,end (see cal-tex-week-hours).
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
717 (defun cal-tex-cursor-week2 (&optional arg)
|
|
78205
|
718 "Make a LaTeX calendar buffer for a two-page one-week calendar.
|
|
|
719 It applies to the week that point is in. Optional prefix
|
|
82080
|
720 argument ARG specifies number of weeks (default 1). The calendar
|
|
78205
|
721 shows holidays if `cal-tex-holidays' is non-nil (note that diary
|
|
82105
|
722 entries are not shown). The calendar shows the hours 8-12am, 1-5pm"
|
|
44368
|
723 (interactive "p")
|
|
82080
|
724 (let* ((n (or arg 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
725 (date (calendar-gregorian-from-absolute
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
726 (calendar-dayname-on-or-before
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
727 calendar-week-start-day
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
728 (calendar-absolute-from-gregorian
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
729 (calendar-cursor-to-date t)))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
730 (month (extract-calendar-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
731 (year (extract-calendar-year date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
732 (d date)
|
|
82080
|
733 (d1 (calendar-absolute-from-gregorian date))
|
|
|
734 (d2 (+ (* 7 n) d1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
735 (holidays (if cal-tex-holidays
|
|
82080
|
736 (cal-tex-list-holidays d1 d2))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
737 (cal-tex-preamble "12pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
738 (cal-tex-cmd "\\textwidth 6.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
739 (cal-tex-cmd "\\textheight 10.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
740 (cal-tex-cmd "\\oddsidemargin 0in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
741 (cal-tex-cmd "\\evensidemargin 0in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
742 (insert cal-tex-LaTeX-hourbox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
743 (cal-tex-b-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
744 (cal-tex-cmd "\\pagestyle{empty}")
|
|
82080
|
745 (dotimes (i n)
|
|
78205
|
746 (cal-tex-vspace "-1.5in")
|
|
|
747 (cal-tex-b-center)
|
|
|
748 (cal-tex-Huge-bf (format "\\uppercase{%s}"
|
|
|
749 (cal-tex-month-name month)))
|
|
|
750 (cal-tex-hspace "2em")
|
|
|
751 (cal-tex-Huge-bf (number-to-string year))
|
|
|
752 (cal-tex-nl ".5cm")
|
|
|
753 (cal-tex-e-center)
|
|
|
754 (cal-tex-hspace "-.2in")
|
|
|
755 (cal-tex-b-parbox "l" "\\textwidth")
|
|
82080
|
756 (dotimes (jdummy 3)
|
|
78205
|
757 (cal-tex-week-hours date holidays "5")
|
|
|
758 (setq date (cal-tex-incr-date date)))
|
|
|
759 (cal-tex-e-parbox)
|
|
|
760 (cal-tex-nl)
|
|
|
761 (insert (cal-tex-mini-calendar
|
|
|
762 (extract-calendar-month (cal-tex-previous-month date))
|
|
|
763 (extract-calendar-year (cal-tex-previous-month date))
|
|
|
764 "lastmonth" "1.1in" "1in"))
|
|
|
765 (insert (cal-tex-mini-calendar
|
|
|
766 (extract-calendar-month date)
|
|
|
767 (extract-calendar-year date)
|
|
|
768 "thismonth" "1.1in" "1in"))
|
|
|
769 (insert (cal-tex-mini-calendar
|
|
|
770 (extract-calendar-month (cal-tex-next-month date))
|
|
|
771 (extract-calendar-year (cal-tex-next-month date))
|
|
|
772 "nextmonth" "1.1in" "1in"))
|
|
|
773 (insert "\\hbox to \\textwidth{")
|
|
|
774 (cal-tex-hfill)
|
|
|
775 (insert "\\lastmonth")
|
|
|
776 (cal-tex-hfill)
|
|
|
777 (insert "\\thismonth")
|
|
|
778 (cal-tex-hfill)
|
|
|
779 (insert "\\nextmonth")
|
|
|
780 (cal-tex-hfill)
|
|
|
781 (insert "}")
|
|
|
782 (cal-tex-nl)
|
|
|
783 (cal-tex-b-parbox "l" "\\textwidth")
|
|
82080
|
784 (dotimes (jdummy 4)
|
|
78205
|
785 (cal-tex-week-hours date holidays "5")
|
|
|
786 (setq date (cal-tex-incr-date date)))
|
|
|
787 (cal-tex-e-parbox)
|
|
82080
|
788 (setq month (extract-calendar-month date)
|
|
|
789 year (extract-calendar-year date))
|
|
|
790 (unless (= i (1- n))
|
|
|
791 (run-hooks 'cal-tex-week-hook)
|
|
|
792 (cal-tex-newpage)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
793 (cal-tex-end-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
794 (run-hooks 'cal-tex-hook)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
795
|
|
13595
|
796 (defun cal-tex-cursor-week-iso (&optional arg)
|
|
78205
|
797 "Make a LaTeX calendar buffer for a one page ISO-style weekly calendar.
|
|
82080
|
798 Optional prefix argument ARG specifies number of weeks (default 1).
|
|
78205
|
799 The calendar shows holiday and diary entries if
|
|
82105
|
800 `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil.
|
|
|
801 It does not show hours of the day."
|
|
44368
|
802 (interactive "p")
|
|
82080
|
803 (let* ((n (or arg 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
804 (date (calendar-gregorian-from-absolute
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
805 (calendar-dayname-on-or-before
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
806 1
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
807 (calendar-absolute-from-gregorian
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
808 (calendar-cursor-to-date t)))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
809 (month (extract-calendar-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
810 (year (extract-calendar-year date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
811 (day (extract-calendar-day date))
|
|
82080
|
812 (d1 (calendar-absolute-from-gregorian date))
|
|
|
813 (d2 (+ (* 7 n) d1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
814 (holidays (if cal-tex-holidays
|
|
82080
|
815 (cal-tex-list-holidays d1 d2)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
816 (diary-list (if cal-tex-diary
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
817 (cal-tex-list-diary-entries
|
|
82080
|
818 ;; FIXME d1?
|
|
|
819 (calendar-absolute-from-gregorian (list month 1 year))
|
|
|
820 d2)))
|
|
|
821 s)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
822 (cal-tex-preamble "11pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
823 (cal-tex-cmd "\\textwidth 6.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
824 (cal-tex-cmd "\\textheight 10.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
825 (cal-tex-cmd "\\oddsidemargin 0in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
826 (cal-tex-cmd "\\evensidemargin 0in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
827 (cal-tex-b-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
828 (cal-tex-cmd "\\pagestyle{empty}")
|
|
82080
|
829 (dotimes (i n)
|
|
78205
|
830 (cal-tex-vspace "-1.5in")
|
|
|
831 (cal-tex-b-center)
|
|
|
832 (cal-tex-Huge-bf
|
|
82080
|
833 (let ((d (calendar-iso-from-absolute
|
|
|
834 (calendar-absolute-from-gregorian date))))
|
|
78205
|
835 (format "Week %d of %d"
|
|
|
836 (extract-calendar-month d)
|
|
|
837 (extract-calendar-year d))))
|
|
|
838 (cal-tex-nl ".5cm")
|
|
|
839 (cal-tex-e-center)
|
|
|
840 (cal-tex-b-parbox "l" "\\textwidth")
|
|
82080
|
841 (dotimes (j 7)
|
|
78205
|
842 (cal-tex-b-parbox "t" "\\textwidth")
|
|
|
843 (cal-tex-b-parbox "t" "\\textwidth")
|
|
|
844 (cal-tex-rule "0pt" "\\textwidth" ".2mm")
|
|
|
845 (cal-tex-nl)
|
|
|
846 (cal-tex-b-parbox "t" "\\textwidth")
|
|
|
847 (cal-tex-large-bf (cal-tex-LaTeXify-string (calendar-day-name date)))
|
|
|
848 (insert ", ")
|
|
|
849 (cal-tex-large-bf (cal-tex-month-name month))
|
|
|
850 (insert " ")
|
|
|
851 (cal-tex-large-bf (number-to-string day))
|
|
82080
|
852 (unless (string-equal "" (setq s (cal-tex-latexify-list
|
|
|
853 holidays date "; ")))
|
|
|
854 (insert ": ")
|
|
|
855 (cal-tex-large-bf s))
|
|
78205
|
856 (cal-tex-hfill)
|
|
|
857 (insert " " (eval cal-tex-daily-string))
|
|
|
858 (cal-tex-e-parbox)
|
|
|
859 (cal-tex-nl)
|
|
|
860 (cal-tex-noindent)
|
|
|
861 (cal-tex-b-parbox "t" "\\textwidth")
|
|
82080
|
862 (unless (string-equal "" (setq s (cal-tex-latexify-list
|
|
|
863 diary-list date)))
|
|
|
864 (insert "\\vbox to 0pt{")
|
|
|
865 (cal-tex-large-bf s)
|
|
|
866 (insert "}"))
|
|
78205
|
867 (cal-tex-e-parbox)
|
|
|
868 (cal-tex-nl)
|
|
82080
|
869 (setq date (cal-tex-incr-date date)
|
|
|
870 month (extract-calendar-month date)
|
|
|
871 day (extract-calendar-day date))
|
|
78205
|
872 (cal-tex-e-parbox)
|
|
|
873 (cal-tex-e-parbox "2cm")
|
|
|
874 (cal-tex-nl)
|
|
82080
|
875 (setq month (extract-calendar-month date)
|
|
|
876 year (extract-calendar-year date)))
|
|
78205
|
877 (cal-tex-e-parbox)
|
|
82080
|
878 (unless (= i (1- n))
|
|
|
879 (run-hooks 'cal-tex-week-hook)
|
|
|
880 (cal-tex-newpage)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
881 (cal-tex-end-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
882 (run-hooks 'cal-tex-hook)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
883
|
|
82105
|
884 ;; TODO respect cal-tex-daily-start,end?
|
|
|
885 ;; Using different numbers of hours will probably break some layouts.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
886 (defun cal-tex-week-hours (date holidays height)
|
|
78205
|
887 "Insert hourly entries for DATE with HOLIDAYS, with line height HEIGHT.
|
|
82105
|
888 Uses the 24-hour clock if `cal-tex-24' is non-nil. Note that the hours
|
|
|
889 shown are hard-coded to 8-12, 13-17."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
890 (let ((month (extract-calendar-month date))
|
|
82080
|
891 (day (extract-calendar-day date))
|
|
|
892 (year (extract-calendar-year date))
|
|
|
893 morning afternoon s)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
894 (cal-tex-comment "begin cal-tex-week-hours")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
895 (cal-tex-cmd "\\ \\\\[-.2cm]")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
896 (cal-tex-cmd "\\noindent")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
897 (cal-tex-b-parbox "l" "6.8in")
|
|
44368
|
898 (cal-tex-large-bf (cal-tex-LaTeXify-string (calendar-day-name date)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
899 (insert ", ")
|
|
44368
|
900 (cal-tex-large-bf (cal-tex-month-name month))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
901 (insert " ")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
902 (cal-tex-large-bf (number-to-string day))
|
|
82080
|
903 (unless (string-equal "" (setq s (cal-tex-latexify-list
|
|
|
904 holidays date "; ")))
|
|
|
905 (insert ": ")
|
|
|
906 (cal-tex-large-bf s))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
907 (cal-tex-hfill)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
908 (insert " " (eval cal-tex-daily-string))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
909 (cal-tex-e-parbox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
910 (cal-tex-nl "-.3cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
911 (cal-tex-rule "0pt" "6.8in" ".2mm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
912 (cal-tex-nl "-.1cm")
|
|
82080
|
913 (dotimes (i 5)
|
|
|
914 (setq morning (+ i 8) ; 8-12 incl
|
|
|
915 afternoon (if cal-tex-24
|
|
|
916 (+ i 13) ; 13-17 incl
|
|
|
917 (1+ i))) ; 1-5 incl
|
|
|
918 (cal-tex-cmd "\\hourbox" (number-to-string morning))
|
|
|
919 (cal-tex-arg height)
|
|
|
920 (cal-tex-hspace ".4cm")
|
|
|
921 (cal-tex-cmd "\\hourbox" (number-to-string afternoon))
|
|
|
922 (cal-tex-arg height)
|
|
|
923 (cal-tex-nl))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
924
|
|
78205
|
925 ;; TODO cal-tex-diary support.
|
|
82105
|
926 ;; TODO respect cal-tex-daily-start,end (see cal-tex-weekly4-box).
|
|
13595
|
927 (defun cal-tex-cursor-week-monday (&optional arg)
|
|
78205
|
928 "Make a LaTeX calendar buffer for a two-page one-week calendar.
|
|
13595
|
929 It applies to the week that point is in, and starts on Monday.
|
|
82080
|
930 Optional prefix argument ARG specifies number of weeks (default 1).
|
|
78205
|
931 The calendar shows holidays if `cal-tex-holidays' is
|
|
82105
|
932 non-nil (note that diary entries are not shown). The calendar shows
|
|
|
933 the hours 8-12am, 1-5pm."
|
|
44368
|
934 (interactive "p")
|
|
82080
|
935 (let ((n (or arg 1))
|
|
|
936 (date (calendar-gregorian-from-absolute
|
|
|
937 (calendar-dayname-on-or-before
|
|
|
938 0
|
|
|
939 (calendar-absolute-from-gregorian
|
|
|
940 (calendar-cursor-to-date t))))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
941 (cal-tex-preamble "11pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
942 (cal-tex-cmd "\\textwidth 6.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
943 (cal-tex-cmd "\\textheight 10.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
944 (cal-tex-cmd "\\oddsidemargin 0in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
945 (cal-tex-cmd "\\evensidemargin 0in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
946 (cal-tex-b-document)
|
|
82080
|
947 (dotimes (i n)
|
|
78205
|
948 (cal-tex-vspace "-1cm")
|
|
|
949 (insert "\\noindent ")
|
|
|
950 (cal-tex-weekly4-box (cal-tex-incr-date date) nil)
|
|
|
951 (cal-tex-weekly4-box (cal-tex-incr-date date 4) nil)
|
|
|
952 (cal-tex-nl ".2cm")
|
|
|
953 (cal-tex-weekly4-box (cal-tex-incr-date date 2) nil)
|
|
|
954 (cal-tex-weekly4-box (cal-tex-incr-date date 5) nil)
|
|
|
955 (cal-tex-nl ".2cm")
|
|
|
956 (cal-tex-weekly4-box (cal-tex-incr-date date 3) nil)
|
|
|
957 (cal-tex-weekly4-box (cal-tex-incr-date date 6) t)
|
|
82080
|
958 (unless (= i (1- n))
|
|
|
959 (run-hooks 'cal-tex-week-hook)
|
|
|
960 (setq date (cal-tex-incr-date date 7))
|
|
|
961 (cal-tex-newpage)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
962 (cal-tex-end-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
963 (run-hooks 'cal-tex-hook)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
964
|
|
82105
|
965 ;; TODO respect cal-tex-daily-start,end?
|
|
|
966 ;; Using different numbers of hours will probably break some layouts.
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
967 (defun cal-tex-weekly4-box (date weekend)
|
|
78205
|
968 "Make one box for DATE, different if WEEKEND.
|
|
82105
|
969 Uses the 24-hour clock if `cal-tex-24' is non-nil. Note that the hours
|
|
|
970 shown are hard-coded to 8-12, 13-17."
|
|
82080
|
971 (let* ((day (extract-calendar-day date))
|
|
|
972 (month (extract-calendar-month date))
|
|
|
973 (year (extract-calendar-year date))
|
|
|
974 (dayname (cal-tex-LaTeXify-string (calendar-day-name date)))
|
|
|
975 (date1 (cal-tex-incr-date date))
|
|
|
976 (day1 (extract-calendar-day date1))
|
|
|
977 (month1 (extract-calendar-month date1))
|
|
|
978 (year1 (extract-calendar-year date1))
|
|
|
979 (dayname1 (cal-tex-LaTeXify-string (calendar-day-name date1))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
980 (cal-tex-b-framebox "8cm" "l")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
981 (cal-tex-b-parbox "b" "7.5cm")
|
|
82105
|
982 (insert (format "\\textbf{\\Large %s,} %s/%s/%s\\\\\n"
|
|
|
983 dayname month day year))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
984 (cal-tex-rule "0pt" "7.5cm" ".5mm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
985 (cal-tex-nl)
|
|
82080
|
986 (unless weekend
|
|
|
987 (dotimes (i 5)
|
|
82105
|
988 (insert (format "\\textsf{\\large %d}\\\\\n" (+ i 8))))
|
|
82080
|
989 (dotimes (i 5)
|
|
82105
|
990 (insert (format "\\textsf{\\large %d}\\\\\n"
|
|
82080
|
991 (if cal-tex-24
|
|
|
992 (+ i 13) ; 13-17 incl
|
|
|
993 (1+ i)))))) ; 1-5 incl
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
994 (cal-tex-nl ".5cm")
|
|
82080
|
995 (when weekend
|
|
|
996 (cal-tex-vspace "1cm")
|
|
|
997 (insert "\\ \\vfill")
|
|
82105
|
998 (insert (format "\\textbf{\\Large %s,} %s/%s/%s\\\\\n"
|
|
82080
|
999 dayname1 month1 day1 year1))
|
|
|
1000 (cal-tex-rule "0pt" "7.5cm" ".5mm")
|
|
|
1001 (cal-tex-nl "1.5cm")
|
|
|
1002 (cal-tex-vspace "1cm"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1003 (cal-tex-e-parbox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1004 (cal-tex-e-framebox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1005 (cal-tex-hspace "1cm")))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1006
|
|
13595
|
1007 (defun cal-tex-cursor-filofax-2week (&optional arg)
|
|
78205
|
1008 "Two-weeks-at-a-glance Filofax style calendar for week cursor is in.
|
|
82080
|
1009 Optional prefix argument ARG specifies number of weeks (default 1).
|
|
78205
|
1010 The calendar shows holiday and diary entries if
|
|
|
1011 `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil."
|
|
44368
|
1012 (interactive "p")
|
|
82080
|
1013 (let* ((n (or arg 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1014 (date (calendar-gregorian-from-absolute
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1015 (calendar-dayname-on-or-before
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1016 calendar-week-start-day
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1017 (calendar-absolute-from-gregorian
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1018 (calendar-cursor-to-date t)))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1019 (month (extract-calendar-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1020 (year (extract-calendar-year date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1021 (day (extract-calendar-day date))
|
|
82080
|
1022 (d1 (calendar-absolute-from-gregorian date))
|
|
|
1023 (d2 (+ (* 7 n) d1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1024 (holidays (if cal-tex-holidays
|
|
82080
|
1025 (cal-tex-list-holidays d1 d2)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1026 (diary-list (if cal-tex-diary
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1027 (cal-tex-list-diary-entries
|
|
82080
|
1028 ;; FIXME d1?
|
|
|
1029 (calendar-absolute-from-gregorian (list month 1 year))
|
|
|
1030 d2))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1031 (cal-tex-preamble "twoside")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1032 (cal-tex-cmd "\\textwidth 3.25in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1033 (cal-tex-cmd "\\textheight 6.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1034 (cal-tex-cmd "\\oddsidemargin 1.75in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1035 (cal-tex-cmd "\\evensidemargin 1.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1036 (cal-tex-cmd "\\topmargin 0pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1037 (cal-tex-cmd "\\headheight -0.875in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1038 (cal-tex-cmd "\\headsep 0.125in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1039 (cal-tex-cmd "\\footskip .125in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1040 (insert "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1041 \\long\\def\\rightday#1#2#3#4#5{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1042 \\rule{\\textwidth}{0.3pt}\\\\%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1043 \\hbox to \\textwidth{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1044 \\vbox to 0.7in{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1045 \\vspace*{2pt}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1046 \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1047 \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1048 \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1049 \\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1050 \\long\\def\\leftday#1#2#3#4#5{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1051 \\rule{\\textwidth}{0.3pt}\\\\%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1052 \\hbox to \\textwidth{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1053 \\vbox to 0.7in{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1054 \\vspace*{2pt}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1055 \\hbox to \\textwidth{\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1056 \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize \\em #4}}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1057 \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1058 ")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1059 (cal-tex-b-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1060 (cal-tex-cmd "\\pagestyle{empty}")
|
|
82080
|
1061 (dotimes (i n)
|
|
|
1062 (if (zerop (mod i 2))
|
|
|
1063 (insert "\\righthead")
|
|
|
1064 (insert "\\lefthead"))
|
|
|
1065 (cal-tex-arg
|
|
|
1066 (let ((d (cal-tex-incr-date date 6)))
|
|
|
1067 (if (= (extract-calendar-month date)
|
|
|
1068 (extract-calendar-month d))
|
|
|
1069 (format "%s %s"
|
|
|
1070 (cal-tex-month-name (extract-calendar-month date))
|
|
|
1071 (extract-calendar-year date))
|
|
|
1072 (if (= (extract-calendar-year date)
|
|
|
1073 (extract-calendar-year d))
|
|
|
1074 (format "%s---%s %s"
|
|
|
1075 (cal-tex-month-name (extract-calendar-month date))
|
|
|
1076 (cal-tex-month-name (extract-calendar-month d))
|
|
|
1077 (extract-calendar-year date))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1078 (format "%s %s---%s %s"
|
|
82080
|
1079 (cal-tex-month-name (extract-calendar-month date))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1080 (extract-calendar-year date)
|
|
44368
|
1081 (cal-tex-month-name (extract-calendar-month d))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1082 (extract-calendar-year d))))))
|
|
82080
|
1083 (insert "%\n")
|
|
|
1084 (dotimes (jdummy 7)
|
|
|
1085 (if (zerop (mod i 2))
|
|
|
1086 (insert "\\rightday")
|
|
|
1087 (insert "\\leftday"))
|
|
|
1088 (cal-tex-arg (cal-tex-LaTeXify-string (calendar-day-name date)))
|
|
|
1089 (cal-tex-arg (int-to-string (extract-calendar-day date)))
|
|
|
1090 (cal-tex-arg (cal-tex-latexify-list diary-list date))
|
|
|
1091 (cal-tex-arg (cal-tex-latexify-list holidays date))
|
|
|
1092 (cal-tex-arg (eval cal-tex-daily-string))
|
|
|
1093 (insert "%\n")
|
|
|
1094 (setq date (cal-tex-incr-date date)))
|
|
|
1095 (unless (= i (1- n))
|
|
|
1096 (run-hooks 'cal-tex-week-hook)
|
|
|
1097 (cal-tex-newpage)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1098 (cal-tex-end-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1099 (run-hooks 'cal-tex-hook)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1100
|
|
13595
|
1101 (defun cal-tex-cursor-filofax-week (&optional arg)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1102 "One-week-at-a-glance Filofax style calendar for week indicated by cursor.
|
|
82080
|
1103 Optional prefix argument ARG specifies number of weeks (default 1),
|
|
78205
|
1104 starting on Mondays. The calendar shows holiday and diary entries
|
|
|
1105 if `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil."
|
|
44368
|
1106 (interactive "p")
|
|
82080
|
1107 (let* ((n (or arg 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1108 (date (calendar-gregorian-from-absolute
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1109 (calendar-dayname-on-or-before
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1110 1
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1111 (calendar-absolute-from-gregorian
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1112 (calendar-cursor-to-date t)))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1113 (month (extract-calendar-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1114 (year (extract-calendar-year date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1115 (day (extract-calendar-day date))
|
|
82080
|
1116 (d1 (calendar-absolute-from-gregorian date))
|
|
|
1117 (d2 (+ (* 7 n) d1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1118 (holidays (if cal-tex-holidays
|
|
82080
|
1119 (cal-tex-list-holidays d1 d2)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1120 (diary-list (if cal-tex-diary
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1121 (cal-tex-list-diary-entries
|
|
82080
|
1122 ;; FIXME d1?
|
|
|
1123 (calendar-absolute-from-gregorian (list month 1 year))
|
|
|
1124 d2))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1125 (cal-tex-preamble "twoside")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1126 (cal-tex-cmd "\\textwidth 3.25in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1127 (cal-tex-cmd "\\textheight 6.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1128 (cal-tex-cmd "\\oddsidemargin 1.75in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1129 (cal-tex-cmd "\\evensidemargin 1.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1130 (cal-tex-cmd "\\topmargin 0pt")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1131 (cal-tex-cmd "\\headheight -0.875in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1132 (cal-tex-cmd "\\headsep 0.125in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1133 (cal-tex-cmd "\\footskip .125in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1134 (insert "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1135 \\long\\def\\rightday#1#2#3#4#5{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1136 \\rule{\\textwidth}{0.3pt}\\\\%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1137 \\hbox to \\textwidth{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1138 \\vbox to 1.85in{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1139 \\vspace*{2pt}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1140 \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1141 \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1142 \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1143 \\long\\def\\weekend#1#2#3#4#5{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1144 \\rule{\\textwidth}{0.3pt}\\\\%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1145 \\hbox to \\textwidth{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1146 \\vbox to .8in{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1147 \\vspace*{2pt}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1148 \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1149 \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1150 \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1151 \\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1152 \\long\\def\\leftday#1#2#3#4#5{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1153 \\rule{\\textwidth}{0.3pt}\\\\%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1154 \\hbox to \\textwidth{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1155 \\vbox to 1.85in{%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1156 \\vspace*{2pt}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1157 \\hbox to \\textwidth{\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1158 \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize \\em #4}}%
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1159 \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1160 ")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1161 (cal-tex-b-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1162 (cal-tex-cmd "\\pagestyle{empty}\\ ")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1163 (cal-tex-newpage)
|
|
82080
|
1164 (dotimes (i n)
|
|
78205
|
1165 (insert "\\lefthead")
|
|
|
1166 (cal-tex-arg
|
|
|
1167 (let ((d (cal-tex-incr-date date 2)))
|
|
|
1168 (if (= (extract-calendar-month date)
|
|
|
1169 (extract-calendar-month d))
|
|
|
1170 (format "%s %s"
|
|
82080
|
1171 (cal-tex-month-name (extract-calendar-month date))
|
|
78205
|
1172 (extract-calendar-year date))
|
|
|
1173 (if (= (extract-calendar-year date)
|
|
|
1174 (extract-calendar-year d))
|
|
|
1175 (format "%s---%s %s"
|
|
82080
|
1176 (cal-tex-month-name (extract-calendar-month date))
|
|
|
1177 (cal-tex-month-name (extract-calendar-month d))
|
|
78205
|
1178 (extract-calendar-year date))
|
|
|
1179 (format "%s %s---%s %s"
|
|
82080
|
1180 (cal-tex-month-name (extract-calendar-month date))
|
|
78205
|
1181 (extract-calendar-year date)
|
|
|
1182 (cal-tex-month-name (extract-calendar-month d))
|
|
|
1183 (extract-calendar-year d))))))
|
|
|
1184 (insert "%\n")
|
|
82080
|
1185 (dotimes (jdummy 3)
|
|
78205
|
1186 (insert "\\leftday")
|
|
|
1187 (cal-tex-arg (cal-tex-LaTeXify-string (calendar-day-name date)))
|
|
|
1188 (cal-tex-arg (int-to-string (extract-calendar-day date)))
|
|
|
1189 (cal-tex-arg (cal-tex-latexify-list diary-list date))
|
|
|
1190 (cal-tex-arg (cal-tex-latexify-list holidays date))
|
|
|
1191 (cal-tex-arg (eval cal-tex-daily-string))
|
|
|
1192 (insert "%\n")
|
|
|
1193 (setq date (cal-tex-incr-date date)))
|
|
|
1194 (insert "\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n")
|
|
|
1195 (cal-tex-newpage)
|
|
|
1196 (insert "\\righthead")
|
|
|
1197 (cal-tex-arg
|
|
|
1198 (let ((d (cal-tex-incr-date date 3)))
|
|
|
1199 (if (= (extract-calendar-month date)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1200 (extract-calendar-month d))
|
|
78205
|
1201 (format "%s %s"
|
|
82080
|
1202 (cal-tex-month-name (extract-calendar-month date))
|
|
78205
|
1203 (extract-calendar-year date))
|
|
|
1204 (if (= (extract-calendar-year date)
|
|
|
1205 (extract-calendar-year d))
|
|
|
1206 (format "%s---%s %s"
|
|
82080
|
1207 (cal-tex-month-name (extract-calendar-month date))
|
|
|
1208 (cal-tex-month-name (extract-calendar-month d))
|
|
78205
|
1209 (extract-calendar-year date))
|
|
|
1210 (format "%s %s---%s %s"
|
|
82080
|
1211 (cal-tex-month-name (extract-calendar-month date))
|
|
78205
|
1212 (extract-calendar-year date)
|
|
|
1213 (cal-tex-month-name (extract-calendar-month d))
|
|
|
1214 (extract-calendar-year d))))))
|
|
|
1215 (insert "%\n")
|
|
82080
|
1216 (dotimes (jdummy 2)
|
|
78205
|
1217 (insert "\\rightday")
|
|
|
1218 (cal-tex-arg (cal-tex-LaTeXify-string (calendar-day-name date)))
|
|
|
1219 (cal-tex-arg (int-to-string (extract-calendar-day date)))
|
|
|
1220 (cal-tex-arg (cal-tex-latexify-list diary-list date))
|
|
|
1221 (cal-tex-arg (cal-tex-latexify-list holidays date))
|
|
|
1222 (cal-tex-arg (eval cal-tex-daily-string))
|
|
|
1223 (insert "%\n")
|
|
|
1224 (setq date (cal-tex-incr-date date)))
|
|
82080
|
1225 (dotimes (jdummy 2)
|
|
78205
|
1226 (insert "\\weekend")
|
|
|
1227 (cal-tex-arg (cal-tex-LaTeXify-string (calendar-day-name date)))
|
|
|
1228 (cal-tex-arg (int-to-string (extract-calendar-day date)))
|
|
|
1229 (cal-tex-arg (cal-tex-latexify-list diary-list date))
|
|
|
1230 (cal-tex-arg (cal-tex-latexify-list holidays date))
|
|
|
1231 (cal-tex-arg (eval cal-tex-daily-string))
|
|
|
1232 (insert "%\n")
|
|
|
1233 (setq date (cal-tex-incr-date date)))
|
|
82080
|
1234 (unless (= i (1- n))
|
|
|
1235 (run-hooks 'cal-tex-week-hook)
|
|
|
1236 (cal-tex-newpage)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1237 (cal-tex-end-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1238 (run-hooks 'cal-tex-hook)))
|
|
19973
|
1239
|
|
|
1240 (defun cal-tex-cursor-filofax-daily (&optional arg)
|
|
|
1241 "Day-per-page Filofax style calendar for week indicated by cursor.
|
|
82080
|
1242 Optional prefix argument ARG specifies number of weeks (default 1),
|
|
78205
|
1243 starting on Mondays. The calendar shows holiday and diary
|
|
|
1244 entries if `cal-tex-holidays' and `cal-tex-diary', respectively,
|
|
|
1245 are non-nil. Pages are ruled if `cal-tex-rules' is non-nil."
|
|
44368
|
1246 (interactive "p")
|
|
82080
|
1247 (let* ((n (or arg 1))
|
|
19973
|
1248 (date (calendar-gregorian-from-absolute
|
|
|
1249 (calendar-dayname-on-or-before
|
|
|
1250 1
|
|
|
1251 (calendar-absolute-from-gregorian
|
|
|
1252 (calendar-cursor-to-date t)))))
|
|
|
1253 (month (extract-calendar-month date))
|
|
|
1254 (year (extract-calendar-year date))
|
|
|
1255 (day (extract-calendar-day date))
|
|
82080
|
1256 (d1 (calendar-absolute-from-gregorian date))
|
|
|
1257 (d2 (+ (* 7 n) d1))
|
|
19973
|
1258 (holidays (if cal-tex-holidays
|
|
82080
|
1259 (cal-tex-list-holidays d1 d2)))
|
|
19973
|
1260 (diary-list (if cal-tex-diary
|
|
|
1261 (cal-tex-list-diary-entries
|
|
82080
|
1262 ;; FIXME d1?
|
|
|
1263 (calendar-absolute-from-gregorian (list month 1 year))
|
|
|
1264 d2))))
|
|
19973
|
1265 (cal-tex-preamble "twoside")
|
|
|
1266 (cal-tex-cmd "\\textwidth 3.25in")
|
|
|
1267 (cal-tex-cmd "\\textheight 6.5in")
|
|
|
1268 (cal-tex-cmd "\\oddsidemargin 1.75in")
|
|
|
1269 (cal-tex-cmd "\\evensidemargin 1.5in")
|
|
|
1270 (cal-tex-cmd "\\topmargin 0pt")
|
|
|
1271 (cal-tex-cmd "\\headheight -0.875in")
|
|
|
1272 (cal-tex-cmd "\\headsep 0.125in")
|
|
|
1273 (cal-tex-cmd "\\footskip .125in")
|
|
|
1274 (insert "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}
|
|
|
1275 \\long\\def\\rightday#1#2#3{%
|
|
|
1276 \\rule{\\textwidth}{0.3pt}\\\\%
|
|
|
1277 \\hbox to \\textwidth{%
|
|
25130
|
1278 \\vbox {%
|
|
19973
|
1279 \\vspace*{2pt}%
|
|
|
1280 \\hbox to \\textwidth{\\hfill \\small #3 \\hfill}%
|
|
|
1281 \\hbox to \\textwidth{\\vbox {\\raggedleft \\em #2}}%
|
|
25130
|
1282 \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize #1}}}}}
|
|
19973
|
1283 \\long\\def\\weekend#1#2#3{%
|
|
|
1284 \\rule{\\textwidth}{0.3pt}\\\\%
|
|
|
1285 \\hbox to \\textwidth{%
|
|
25130
|
1286 \\vbox {%
|
|
19973
|
1287 \\vspace*{2pt}%
|
|
|
1288 \\hbox to \\textwidth{\\hfill \\small #3 \\hfill}%
|
|
|
1289 \\hbox to \\textwidth{\\vbox {\\noindent \\em #2}}%
|
|
25130
|
1290 \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize #1}}}}}
|
|
19973
|
1291 \\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}
|
|
|
1292 \\long\\def\\leftday#1#2#3{%
|
|
|
1293 \\rule{\\textwidth}{0.3pt}\\\\%
|
|
|
1294 \\hbox to \\textwidth{%
|
|
25130
|
1295 \\vbox {%
|
|
19973
|
1296 \\vspace*{2pt}%
|
|
|
1297 \\hbox to \\textwidth{\\hfill \\small #3 \\hfill}%
|
|
|
1298 \\hbox to \\textwidth{\\vbox {\\noindent \\em #2}}%
|
|
25130
|
1299 \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize #1}}}}}
|
|
|
1300 \\newbox\\LineBox
|
|
|
1301 \\setbox\\LineBox=\\hbox to\\textwidth{%
|
|
|
1302 \\vrule height.2in width0pt\\leaders\\hrule\\hfill}
|
|
|
1303 \\def\\linesfill{\\par\\leaders\\copy\\LineBox\\vfill}
|
|
19973
|
1304 ")
|
|
|
1305 (cal-tex-b-document)
|
|
|
1306 (cal-tex-cmd "\\pagestyle{empty}")
|
|
82080
|
1307 (dotimes (i n)
|
|
|
1308 (dotimes (j 4)
|
|
|
1309 (let ((even (zerop (% j 2))))
|
|
|
1310 (insert (if even
|
|
|
1311 "\\righthead"
|
|
|
1312 "\\lefthead"))
|
|
|
1313 (cal-tex-arg (calendar-date-string date))
|
|
|
1314 (insert "%\n")
|
|
|
1315 (insert (if even
|
|
|
1316 "\\rightday"
|
|
|
1317 "\\leftday")))
|
|
|
1318 (cal-tex-arg (cal-tex-latexify-list diary-list date))
|
|
|
1319 (cal-tex-arg (cal-tex-latexify-list holidays date "\\\\" t))
|
|
|
1320 (cal-tex-arg (eval cal-tex-daily-string))
|
|
|
1321 (insert "%\n")
|
|
|
1322 (if cal-tex-rules
|
|
|
1323 (insert "\\linesfill\n")
|
|
|
1324 (insert "\\vfill\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n"))
|
|
|
1325 (cal-tex-newpage)
|
|
|
1326 (setq date (cal-tex-incr-date date)))
|
|
78205
|
1327 (insert "%\n")
|
|
82080
|
1328 (dotimes (jdummy 2)
|
|
78205
|
1329 (insert "\\lefthead")
|
|
|
1330 (cal-tex-arg (calendar-date-string date))
|
|
|
1331 (insert "\\weekend")
|
|
|
1332 (cal-tex-arg (cal-tex-latexify-list diary-list date))
|
|
|
1333 (cal-tex-arg (cal-tex-latexify-list holidays date "\\\\" t))
|
|
|
1334 (cal-tex-arg (eval cal-tex-daily-string))
|
|
|
1335 (insert "%\n")
|
|
|
1336 (if cal-tex-rules
|
|
|
1337 (insert "\\linesfill\n")
|
|
|
1338 (insert "\\vfill"))
|
|
|
1339 (setq date (cal-tex-incr-date date)))
|
|
82080
|
1340 (or cal-tex-rules
|
|
78205
|
1341 (insert "\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n"))
|
|
82080
|
1342 (unless (= i (1- n))
|
|
|
1343 (run-hooks 'cal-tex-week-hook)
|
|
|
1344 (cal-tex-newpage)))
|
|
19973
|
1345 (cal-tex-end-document)
|
|
|
1346 (run-hooks 'cal-tex-hook)))
|
|
|
1347
|
|
|
1348
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1349 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1350 ;;; Daily calendars
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1351 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1352
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1353 (defun cal-tex-cursor-day (&optional arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1354 "Make a buffer with LaTeX commands for the day cursor is on.
|
|
82105
|
1355 Optional prefix argument ARG specifies number of days. The calendar shows
|
|
|
1356 the hours between `cal-tex-daily-start' and `cal-tex-daily-end', using
|
|
|
1357 the 24-hour clock if `cal-tex-24' is non-nil."
|
|
44368
|
1358 (interactive "p")
|
|
82080
|
1359 (let ((n (or arg 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1360 (date (calendar-absolute-from-gregorian (calendar-cursor-to-date t))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1361 (cal-tex-preamble "12pt")
|
|
82105
|
1362 (cal-tex-cmd "\\textwidth 6.5in")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1363 (cal-tex-cmd "\\textheight 10.5in")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1364 (cal-tex-b-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1365 (cal-tex-cmd "\\pagestyle{empty}")
|
|
82080
|
1366 (dotimes (i n)
|
|
78205
|
1367 (cal-tex-vspace "-1.7in")
|
|
|
1368 (cal-tex-daily-page (calendar-gregorian-from-absolute date))
|
|
|
1369 (setq date (1+ date))
|
|
82080
|
1370 (unless (= i (1- n))
|
|
|
1371 (cal-tex-newpage)
|
|
|
1372 (run-hooks 'cal-tex-daily-hook)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1373 (cal-tex-end-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1374 (run-hooks 'cal-tex-hook)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1375
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1376 (defun cal-tex-daily-page (date)
|
|
78205
|
1377 "Make a calendar page for Gregorian DATE on 8.5 by 11 paper.
|
|
|
1378 Uses the 24-hour clock if `cal-tex-24' is non-nil. Produces
|
|
|
1379 hourly sections for the period specified by `cal-tex-daily-start'
|
|
|
1380 and `cal-tex-daily-end'."
|
|
82080
|
1381 (let ((month-name (cal-tex-month-name (extract-calendar-month date)))
|
|
|
1382 hour)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1383 (cal-tex-banner "cal-tex-daily-page")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1384 (cal-tex-b-makebox "4cm" "l")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1385 (cal-tex-b-parbox "b" "3.8cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1386 (cal-tex-rule "0mm" "0mm" "2cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1387 (cal-tex-Huge (number-to-string (extract-calendar-day date)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1388 (cal-tex-nl ".5cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1389 (cal-tex-bf month-name )
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1390 (cal-tex-e-parbox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1391 (cal-tex-hspace "1cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1392 (cal-tex-scriptsize (eval cal-tex-daily-string))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1393 (cal-tex-hspace "3.5cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1394 (cal-tex-e-makebox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1395 (cal-tex-hfill)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1396 (cal-tex-b-makebox "4cm" "r")
|
|
44368
|
1397 (cal-tex-bf (cal-tex-LaTeXify-string (calendar-day-name date)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1398 (cal-tex-e-makebox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1399 (cal-tex-nl)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1400 (cal-tex-hspace ".4cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1401 (cal-tex-rule "0mm" "16.1cm" "1mm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1402 (cal-tex-nl ".1cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1403 (calendar-for-loop i from cal-tex-daily-start to cal-tex-daily-end do
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1404 (cal-tex-cmd "\\noindent")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1405 (setq hour (if cal-tex-24
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1406 i
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1407 (mod i 12)))
|
|
82080
|
1408 (if (zerop hour) (setq hour 12))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1409 (cal-tex-b-makebox "1cm" "c")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1410 (cal-tex-arg (number-to-string hour))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1411 (cal-tex-e-makebox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1412 (cal-tex-rule "0mm" "15.5cm" ".2mm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1413 (cal-tex-nl ".2cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1414 (cal-tex-b-makebox "1cm" "c")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1415 (cal-tex-arg "$\\diamond$" )
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1416 (cal-tex-e-makebox)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1417 (cal-tex-rule "0mm" "15.5cm" ".2mm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1418 (cal-tex-nl ".2cm"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1419 (cal-tex-hfill)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1420 (insert (cal-tex-mini-calendar
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1421 (extract-calendar-month (cal-tex-previous-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1422 (extract-calendar-year (cal-tex-previous-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1423 "lastmonth" "1.1in" "1in"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1424 (insert (cal-tex-mini-calendar
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1425 (extract-calendar-month date)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1426 (extract-calendar-year date)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1427 "thismonth" "1.1in" "1in"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1428 (insert (cal-tex-mini-calendar
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1429 (extract-calendar-month (cal-tex-next-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1430 (extract-calendar-year (cal-tex-next-month date))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1431 "nextmonth" "1.1in" "1in"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1432 (insert "\\hbox to \\textwidth{")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1433 (cal-tex-hfill)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1434 (insert "\\lastmonth")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1435 (cal-tex-hfill)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1436 (insert "\\thismonth")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1437 (cal-tex-hfill)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1438 (insert "\\nextmonth")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1439 (cal-tex-hfill)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1440 (insert "}")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1441 (cal-tex-banner "end of cal-tex-daily-page")))
|
|
49598
|
1442
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1443 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1444 ;;; Mini calendars
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1445 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1446
|
15432
c76e8e8fdb0a
Fix Filofax year output so that it's the correct size.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
1447 (defun cal-tex-mini-calendar (month year name width height &optional ptsize colsep)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1448 "Produce mini-calendar for MONTH, YEAR in macro NAME with WIDTH and HEIGHT.
|
|
82080
|
1449 Optional string PTSIZE gives the point size (default \"scriptsize\").
|
|
|
1450 Optional string COLSEP gives the column separation (default \"1mm\")."
|
|
|
1451 (or colsep (setq colsep "1mm"))
|
|
|
1452 (or ptsize (setq ptsize "scriptsize"))
|
|
|
1453 (let ((blank-days ; at start of month
|
|
|
1454 (mod
|
|
|
1455 (- (calendar-day-of-week (list month 1 year))
|
|
|
1456 calendar-week-start-day)
|
|
|
1457 7))
|
|
|
1458 (last (calendar-last-day-of-month month year))
|
|
|
1459 (str (concat "\\def\\" name "{\\hbox to" width "{%\n"
|
|
|
1460 "\\vbox to" height "{%\n"
|
|
|
1461 "\\vfil \\hbox to" width "{%\n"
|
|
|
1462 "\\hfil\\" ptsize
|
|
|
1463 "\\begin{tabular}"
|
|
|
1464 "{@{\\hspace{0mm}}r@{\\hspace{" colsep
|
|
|
1465 "}}r@{\\hspace{" colsep "}}r@{\\hspace{" colsep
|
|
|
1466 "}}r@{\\hspace{" colsep "}}r@{\\hspace{" colsep
|
|
|
1467 "}}r@{\\hspace{" colsep "}}r@{\\hspace{0mm}}}%\n"
|
|
|
1468 "\\multicolumn{7}{c}{"
|
|
|
1469 (cal-tex-month-name month)
|
|
|
1470 " "
|
|
|
1471 (int-to-string year)
|
|
|
1472 "}\\\\[1mm]\n")))
|
|
82105
|
1473 (dotimes (i 7)
|
|
44368
|
1474 (setq str
|
|
|
1475 (concat str
|
|
|
1476 (cal-tex-LaTeXify-string
|
|
49598
|
1477 (substring (aref calendar-day-name-array
|
|
44368
|
1478 (mod (+ calendar-week-start-day i) 7))
|
|
82080
|
1479
|
|
44368
|
1480 0 2))
|
|
82080
|
1481 (if (= i 6)
|
|
|
1482 "\\\\[0.7mm]\n"
|
|
|
1483 " & "))))
|
|
|
1484 (dotimes (idummy blank-days)
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1485 (setq str (concat str " & ")))
|
|
82080
|
1486 (dotimes (i last)
|
|
|
1487 (setq str (concat str (int-to-string (1+ i)))
|
|
|
1488 str (concat str (if (zerop (mod (+ i 1 blank-days) 7))
|
|
82105
|
1489 (if (= i (1- last))
|
|
|
1490 ""
|
|
|
1491 "\\\\[0.5mm]\n")
|
|
82080
|
1492 " & "))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1493 (setq str (concat str "\n\\end{tabular}\\hfil}\\vfil}}}%\n"))
|
|
78205
|
1494 str))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1495
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1496 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1497 ;;; Various calendar functions
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1498 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1499
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1500 (defun cal-tex-incr-date (date &optional n)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1501 "The date of the day following DATE.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1502 If optional N is given, the date of N days after DATE."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1503 (calendar-gregorian-from-absolute
|
|
82080
|
1504 (+ (or n 1) (calendar-absolute-from-gregorian date))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1505
|
|
25130
|
1506 (defun cal-tex-latexify-list (date-list date &optional separator final-separator)
|
|
82080
|
1507 "Return string with concatenated, LaTeX-ified entries in DATE-LIST for DATE.
|
|
25130
|
1508 Use double backslash as a separator unless optional SEPARATOR is given.
|
|
|
1509 If resulting string is not empty, put separator at end if optional
|
|
82105
|
1510 FINAL-SEPARATOR is non-nil."
|
|
82080
|
1511 (or separator (setq separator "\\\\"))
|
|
82105
|
1512 (let (result)
|
|
|
1513 (setq result
|
|
|
1514 (mapconcat (lambda (x) (cal-tex-LaTeXify-string x))
|
|
|
1515 (dolist (d date-list (reverse result))
|
|
|
1516 (and (car d)
|
|
|
1517 (calendar-date-equal date (car d))
|
|
|
1518 (setq result (cons (cadr d) result))))
|
|
|
1519 separator))
|
|
82080
|
1520 (if (and final-separator
|
|
|
1521 (not (string-equal result "")))
|
|
|
1522 (concat result separator)
|
|
|
1523 result)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1524
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1525 (defun cal-tex-previous-month (date)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1526 "Return the date of the first day in the month previous to DATE."
|
|
82080
|
1527 (let ((month (extract-calendar-month date))
|
|
|
1528 (year (extract-calendar-year date)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1529 (increment-calendar-month month year -1)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1530 (list month 1 year)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1531
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1532 (defun cal-tex-next-month (date)
|
|
82080
|
1533 "Return the date of the first day in the month following DATE."
|
|
|
1534 (let ((month (extract-calendar-month date))
|
|
|
1535 (year (extract-calendar-year date)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1536 (increment-calendar-month month year 1)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1537 (list month 1 year)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1538
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1539 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1540 ;;; LaTeX Code
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1541 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1542
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1543 (defun cal-tex-end-document ()
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1544 "Finish the LaTeX document.
|
|
49598
|
1545 Insert the trailer to LaTeX document, pop to LaTeX buffer, add
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1546 informative header, and run HOOK."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1547 (cal-tex-e-document)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1548 (latex-mode)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1549 (pop-to-buffer cal-tex-buffer)
|
|
49598
|
1550 (goto-char (point-min))
|
|
82105
|
1551 ;; FIXME auctex equivalents?
|
|
|
1552 (cal-tex-comment
|
|
|
1553 (format "\tThis buffer was produced by cal-tex.el.
|
|
|
1554 \tTo print a calendar, type
|
|
|
1555 \t\tM-x tex-buffer RET
|
|
|
1556 \t\tM-x tex-print RET")))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1557
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1558 (defun cal-tex-insert-preamble (weeks landscape size &optional append)
|
|
82105
|
1559 "Initialize the output LaTeX calendar buffer, `cal-tex-buffer'.
|
|
|
1560 Select the output buffer, and insert the preamble for a calendar
|
|
|
1561 of WEEKS weeks. Insert code for landscape mode if LANDSCAPE is
|
|
|
1562 non-nil. Use pointsize SIZE. Optional argument APPEND, if
|
|
|
1563 non-nil, means add to end of buffer without erasing current contents."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1564 (let ((width "18cm")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1565 (height "24cm"))
|
|
82080
|
1566 (when landscape
|
|
|
1567 (setq width "24cm"
|
|
|
1568 height "18cm"))
|
|
|
1569 (unless append
|
|
|
1570 (cal-tex-preamble size)
|
|
|
1571 (if (not landscape)
|
|
|
1572 (progn
|
|
|
1573 (cal-tex-cmd "\\oddsidemargin -1.75cm")
|
|
|
1574 (cal-tex-cmd "\\def\\holidaymult{.06}"))
|
|
|
1575 (cal-tex-cmd "\\special{landscape}")
|
|
82105
|
1576 (cal-tex-cmd "\\textwidth 9.5in")
|
|
82080
|
1577 (cal-tex-cmd "\\textheight 7in")
|
|
|
1578 (cal-tex-comment)
|
|
|
1579 (cal-tex-cmd "\\def\\holidaymult{.08}"))
|
|
82105
|
1580 (cal-tex-cmd cal-tex-caldate)
|
|
|
1581 (cal-tex-cmd cal-tex-myday)
|
|
82080
|
1582 (cal-tex-b-document)
|
|
|
1583 (cal-tex-cmd "\\pagestyle{empty}"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1584 (cal-tex-cmd "\\setlength{\\cellwidth}" width)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1585 (insert (format "\\setlength{\\cellwidth}{%f\\cellwidth}\n"
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1586 (/ 1.1 (length cal-tex-which-days))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1587 (cal-tex-cmd "\\setlength{\\cellheight}" height)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1588 (insert (format "\\setlength{\\cellheight}{%f\\cellheight}\n"
|
|
49598
|
1589 (/ 1.0 weeks)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1590 (cal-tex-cmd "\\ \\par")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1591 (cal-tex-vspace "-3cm")))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1592
|
|
82105
|
1593 (defconst cal-tex-LaTeX-subst-list
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1594 '(("\"". "``")
|
|
82080
|
1595 ("\"". "''") ; quote changes meaning when list is reversed
|
|
|
1596 ;; Don't think this is necessary, and in any case, does not work:
|
|
|
1597 ;; "LaTeX Error: \verb illegal in command argument".
|
|
|
1598 ;;; ("@" . "\\verb|@|")
|
|
49598
|
1599 ("&" . "\\&")
|
|
|
1600 ("%" . "\\%")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1601 ("$" . "\\$")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1602 ("#" . "\\#")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1603 ("_" . "\\_")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1604 ("{" . "\\{")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1605 ("}" . "\\}")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1606 ("<" . "$<$")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1607 (">" . "$>$")
|
|
82080
|
1608 ("\n" . "\\ \\\\")) ; \\ needed for e.g \begin{center}\n AA\end{center}
|
|
82105
|
1609 "Alist of symbols and their LaTeX replacements.")
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1610
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1611 (defun cal-tex-LaTeXify-string (string)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1612 "Protect special characters in STRING from LaTeX."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1613 (if (not string)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1614 ""
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1615 (let ((head "")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1616 (tail string)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1617 (list cal-tex-LaTeX-subst-list))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1618 (while (not (string-equal tail ""))
|
|
82105
|
1619 (let* ((ch (substring-no-properties tail 0 1))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1620 (pair (assoc ch list)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1621 (if (and pair (string-equal ch "\""))
|
|
82080
|
1622 (setq list (reverse list))) ; quote changes meaning each time
|
|
82105
|
1623 (setq tail (substring-no-properties tail 1)
|
|
82080
|
1624 head (concat head (if pair (cdr pair) ch)))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1625 head)))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1626
|
|
44368
|
1627 (defun cal-tex-month-name (month)
|
|
|
1628 "The name of MONTH, LaTeXified."
|
|
|
1629 (cal-tex-LaTeXify-string (calendar-month-name month)))
|
|
|
1630
|
|
82080
|
1631 (defun cal-tex-hfill ()
|
|
|
1632 "Insert hfill."
|
|
|
1633 (insert "\\hfill"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1634
|
|
82080
|
1635 (defun cal-tex-newpage ()
|
|
|
1636 "Insert newpage."
|
|
|
1637 (insert "\\newpage%\n"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1638
|
|
82080
|
1639 (defun cal-tex-noindent ()
|
|
|
1640 "Insert noindent."
|
|
|
1641 (insert "\\noindent"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1642
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1643 (defun cal-tex-vspace (space)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1644 "Insert vspace command to move SPACE vertically."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1645 (insert "\\vspace*{" space "}")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1646 (cal-tex-comment))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1647
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1648 (defun cal-tex-hspace (space)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1649 "Insert hspace command to move SPACE horizontally."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1650 (insert "\\hspace*{" space "}")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1651 (cal-tex-comment))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1652
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1653 (defun cal-tex-comment (&optional comment)
|
|
82105
|
1654 "Insert `% ', followed by optional string COMMENT, followed by newline.
|
|
|
1655 COMMENT may contain newlines, which are prefixed by `% ' in the output."
|
|
|
1656 (insert (format "%% %s\n"
|
|
|
1657 (if comment
|
|
|
1658 (replace-regexp-in-string "\n" "\n% " comment)
|
|
|
1659 ""))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1660
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1661 (defun cal-tex-banner (comment)
|
|
82105
|
1662 "Insert string COMMENT, separated by blank lines."
|
|
|
1663 (cal-tex-comment (format "\n\n\n\t\t\t%s\n" comment)))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1664
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1665 (defun cal-tex-nl (&optional skip comment)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1666 "End a line with \\. If SKIP, then add that much spacing.
|
|
82105
|
1667 Add trailing COMMENT if present."
|
|
|
1668 (insert (format "\\\\%s"
|
|
|
1669 (if skip
|
|
|
1670 (format "[%s]" skip)
|
|
|
1671 "")))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1672 (cal-tex-comment comment))
|
|
49598
|
1673
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1674 (defun cal-tex-arg (&optional text)
|
|
82105
|
1675 "Insert a brace {} pair containing the optional string TEXT."
|
|
|
1676 (insert (format "{%s}" (or text ""))))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1677
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1678 (defun cal-tex-cmd (cmd &optional arg)
|
|
82080
|
1679 "Insert LaTeX CMD, with optional argument ARG, and end with %."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1680 (insert cmd)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1681 (cal-tex-arg arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1682 (cal-tex-comment))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1683
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1684 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1685 ;;; Environments
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1686 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1687
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1688 (defun cal-tex-b-document ()
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1689 "Insert beginning of document."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1690 (cal-tex-cmd "\\begin{document}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1691
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1692 (defun cal-tex-e-document ()
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1693 "Insert end of document."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1694 (cal-tex-cmd "\\end{document}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1695
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1696 (defun cal-tex-b-center ()
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1697 "Insert beginning of centered block."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1698 (cal-tex-cmd "\\begin{center}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1699
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1700 (defun cal-tex-e-center ()
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1701 "Insert end of centered block."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1702 (cal-tex-comment)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1703 (cal-tex-cmd "\\end{center}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1704
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1705
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1706 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1707 ;;; Boxes
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1708 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1709
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1710
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1711 (defun cal-tex-b-parbox (position width)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1712 "Insert parbox with parameters POSITION and WIDTH."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1713 (insert "\\parbox[" position "]{" width "}{")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1714 (cal-tex-comment))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1715
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1716 (defun cal-tex-e-parbox (&optional height)
|
|
82080
|
1717 "Insert end of parbox. Optionally, force it to be a given HEIGHT."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1718 (cal-tex-comment)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1719 (if height
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1720 (cal-tex-rule "0mm" "0mm" height))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1721 (insert "}")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1722 (cal-tex-comment "end parbox"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1723
|
|
82080
|
1724 (defun cal-tex-b-framebox (width position)
|
|
|
1725 "Insert framebox with parameters WIDTH and POSITION (clr)."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1726 (insert "\\framebox[" width "][" position "]{" )
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1727 (cal-tex-comment))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1728
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1729 (defun cal-tex-e-framebox ()
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1730 "Insert end of framebox."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1731 (cal-tex-comment)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1732 (insert "}")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1733 (cal-tex-comment "end framebox"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1734
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1735
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1736 (defun cal-tex-b-makebox ( width position )
|
|
82080
|
1737 "Insert makebox with parameters WIDTH and POSITION (clr)."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1738 (insert "\\makebox[" width "][" position "]{" )
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1739 (cal-tex-comment))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1740
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1741 (defun cal-tex-e-makebox ()
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1742 "Insert end of makebox."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1743 (cal-tex-comment)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1744 (insert "}")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1745 (cal-tex-comment "end makebox"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1746
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1747
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1748 (defun cal-tex-rule (lower width height)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1749 "Insert a rule with parameters LOWER WIDTH HEIGHT."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1750 (insert "\\rule[" lower "]{" width "}{" height "}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1751
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1752 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1753 ;;; Fonts
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1754 ;;;
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1755
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1756 (defun cal-tex-em (string)
|
|
82080
|
1757 "Insert STRING in italic font."
|
|
|
1758 (insert "\\textit{" string "}"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1759
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1760 (defun cal-tex-bf (string)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1761 "Insert STRING in bf font."
|
|
82080
|
1762 (insert "\\textbf{ " string "}"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1763
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1764 (defun cal-tex-scriptsize (string)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1765 "Insert STRING in scriptsize font."
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1766 (insert "{\\scriptsize " string "}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1767
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1768 (defun cal-tex-huge (string)
|
|
82105
|
1769 "Insert STRING in huge font."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1770 (insert "{\\huge " string "}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1771
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1772 (defun cal-tex-Huge (string)
|
|
82105
|
1773 "Insert STRING in Huge font."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1774 (insert "{\\Huge " string "}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1775
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1776 (defun cal-tex-Huge-bf (string)
|
|
82105
|
1777 "Insert STRING in Huge bf font."
|
|
82080
|
1778 (insert "\\textbf{\\Huge " string "}"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1779
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1780 (defun cal-tex-large (string)
|
|
82105
|
1781 "Insert STRING in large font."
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1782 (insert "{\\large " string "}"))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1783
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1784 (defun cal-tex-large-bf (string)
|
|
82105
|
1785 "Insert STRING in large bf font."
|
|
82080
|
1786 (insert "\\textbf{\\large " string "}"))
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1787
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1788
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1789 (provide 'cal-tex)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1790
|
|
52401
|
1791 ;;; arch-tag: ca8168a4-5a00-4508-a565-17e3bccce6d0
|
13195
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
1792 ;;; cal-tex.el ends here
|
