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