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