Mercurial > emacs
changeset 13195:b558ab9fbef4
Initial revision
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Thu, 12 Oct 1995 15:28:46 +0000 |
| parents | 7e90c5fce35f |
| children | 95fbb5bd0a5a |
| files | lisp/calendar/cal-tex.el |
| diffstat | 1 files changed, 1603 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/calendar/cal-tex.el Thu Oct 12 15:28:46 1995 +0000 @@ -0,0 +1,1603 @@ +;;; cal-tex.el --- calendar functions for printing calendars with LaTeX. + +;; Copyright (C) 1995 Free Software Foundation, Inc. + +;; Author: Steve Fisk <fisk@bowdoin.edu> +;; Edward M. Reingold <reingold@cs.uiuc.edu> +;; Keywords: calendar +;; Human-Keywords: Calendar, LaTeX + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +;;; Commentary: + +;; This collection of functions implements the features of calendar.el that +;; deal with printing the calendar. + +;;; TO DO +;;; +;;; (*) Add holidays and diary entries to daily calendar. +;;; +;;; (*) Add diary entries to weekly calendar functions. +;;; +;;; (*) Make calendar styles for A4 paper. +;;; +;;; (*) Make daily and monthly styles Filofax paper. +;;; +;;; (*) Improve the LaTeX command that produces the boxes in the monthly +;;; calendar to eliminate slight gap--what causes it?! + +;;; Code: + +(require 'calendar) + +(autoload 'list-diary-entries "diary" nil t) +(autoload 'calendar-holiday-list "holidays" nil t) +(autoload 'calendar-iso-from-absolute "cal-iso" nil t) + + +(defun cal-tex-version () + (interactive) + (message "Version 1, October 11, 1995")) + +;;; +;;; Customizable variables +;;; + +(defvar cal-tex-which-days '(0 1 2 3 4 5 6) + "*The days of the week that are displayed on the portrait monthly calendar. +Sunday is 0, Monday is 1, and so on. The default is to print from Sunday to +Saturday. For example, use + + (setq cal-tex-which-days '(1 3 5)) + +to only print Monday, Wednesday, Friday.") + +(defvar cal-tex-holidays t + "*If t (default), then the holidays are also printed. +If finding the holidays is too slow, set this to nil.") + +(defvar cal-tex-diary nil + "*If t, the diary entries are printed in the calendar.") + +(defvar cal-tex-daily-string + '(let* ((year (extract-calendar-year date)) + (day (calendar-day-number date)) + (days-remaining (- (calendar-day-number (list 12 31 year)) day))) + (format "%d/%d" day days-remaining)) + "*An expression in the variable `date' whose value is placed on date. +The string resulting from evaluating this expression is placed at the bottom +center of `date' on the monthly calendar, next to the date in the weekly +calendars, and in the top center of daily calendars. + +Default is ordinal day number of the year and the number of days remaining. +As an example of what you do, setting this to + + '(progn + (require 'cal-hebrew) + (calendar-hebrew-date-string date)) + +will put the Hebrew date at the bottom of each day.") + +(defvar cal-tex-buffer "calendar.tex" + "*The name for the tex-ed calendar.") + +(defvar cal-tex-24 nil + "*If t, use a 24 hour clock in the daily calendar.") + +(defvar cal-tex-daily-start 8 + "*The first hour of the daily calendar page.") + +(defvar cal-tex-daily-end 20 + "*The last hour of the daily calendar page.") + +;;; +;;; Definitions for LaTeX code +;;; + +(defvar cal-tex-day-prefix "\\caldate{%s}{%s}" + "The initial LaTeX code for a day. +The holidays, diary entries, bottom string, and the text follow.") + +(defvar cal-tex-day-name-format "\\myday{%s}%%" + "The format for LaTeX code for a day name. The names are taken from +calendar-day-name-array.") + +(defvar cal-tex-cal-one-month +"\\def\\calmonth#1#2% +{\\begin{center}% +\\Huge\\bf\\uppercase{#1} #2 \\\\[1cm]% +\\end{center}}% +\\vspace*{-1.5cm}% +% +" + "LaTeX code for the month header") + +(defvar cal-tex-cal-multi-month +"\\def\\calmonth#1#2#3#4% +{\\begin{center}% +\\Huge\\bf #1 #2---#3 #4\\\\[1cm]% +\\end{center}}% +\\vspace*{-1.5cm}% +% +" + "LaTeX code for the month header") + +(defvar cal-tex-myday +"\\renewcommand{\\myday}[1]% +{\\makebox[\\cellwidth]{\\hfill\\large\\bf#1\\hfill}} +% +" + "LaTeX code for a day heading") + +(defvar cal-tex-caldate +"\\fboxsep=0pt +\\long\\def\\caldate#1#2#3#4#5#6{% + \\fbox{\\hbox to\\cellwidth{% + \\vbox to\\cellheight{% + \\hbox to\\cellwidth{% + {\\hspace*{1mm}\\Large \\bf \\strut #2}\\hspace{.05\\cellwidth}% + \\raisebox{\\holidaymult\\cellheight}% + {\\parbox[t]{.75\\cellwidth}{\\tiny \\raggedright #4}}} + \\hbox to\\cellwidth{% + \\hspace*{1mm}\\parbox{.95\\cellwidth}{\\tiny \\raggedright #3}} + \\hspace*{1mm}% + \\hbox to\\cellwidth{#6}% + \\vfill% + \\hbox to\\cellwidth{\\hfill \\tiny #5 \\hfill}% + \\vskip 1.4pt}% + \\hskip -0.4pt}}} +" + "LaTeX code to insert one box with date info in calendar. +This definition is the heart of the calendar!") + +(defun cal-tex-list-holidays (d1 d2) + "Generate a list of all holidays from absolute date D1 to D2." + (let* ((result nil) + (start (calendar-gregorian-from-absolute d1)) + (start-month (extract-calendar-month start)) + (start-year (extract-calendar-year start))) + (increment-calendar-month start-month start-year 1) + (let* ((end (calendar-gregorian-from-absolute d2)) + (end-month (extract-calendar-month end)) + (end-year (extract-calendar-year end))) + (if (= (extract-calendar-day end) 1) + (increment-calendar-month end-month end-year -1)) + (let* ((s (calendar-absolute-from-gregorian + (list start-month 1 start-year))) + (e (calendar-absolute-from-gregorian + (list end-month 1 end-year))) + (d s) + (never t) + (displayed-month start-month) + (displayed-year start-year)) + (while (or never (<= d e)) + (setq result (append result (calendar-holiday-list))) + (setq never nil) + (increment-calendar-month displayed-month displayed-year 3) + (setq d (calendar-absolute-from-gregorian + (list displayed-month 1 displayed-year)))))) + (let ((in-range) + (p result)) + (while p + (and (car (car p)) + (let ((a (calendar-absolute-from-gregorian (car (car p))))) + (and (<= d1 a) (<= a d2))) + (setq in-range (append (list (car p)) in-range))) + (setq p (cdr p))) + in-range))) + +(defun cal-tex-list-diary-entries (d1 d2) + "Generate a list of all diary-entries from absolute date D1 to D2." + (let ((diary-display-hook nil)) + (list-diary-entries + (calendar-gregorian-from-absolute d1) + (1+ (- d2 d1))))) + +(defun cal-tex-preamble (&optional args) + "Insert the LaTeX preamble. +Preamble Includes initial definitions for various LaTeX commands. +Optional ARGS are included." + (set-buffer (get-buffer-create cal-tex-buffer)) + (erase-buffer) + (insert "\\documentstyle") + (if args + (insert "[" args "]")) + (insert "{article}\n" + "\\hbadness 20000 +\\vbadness 20000 +\\marginparwidth 0pt +\\oddsidemargin -2cm +\\evensidemargin -2cm +\\marginparsep 0pt +\\topmargin 0pt +\\textwidth 7.5in +\\textheight 9.5in +\\newlength{\\cellwidth} +\\newlength{\\cellheight} +\\newlength{\\boxwidth} +\\newlength{\\boxheight} +\\newlength{\\cellsize} +\\newcommand{\\myday}[1]{} +\\newcommand{\\caldate}[6]{} +\\newcommand{\\nocaldate}[6]{} +\\newcommand{\\calsmall}[6]{} +% +")) + +;;; +;;; Yearly calendars +;;; + +(defun cal-tex-cursor-year (&optional arg) + "Make a buffer with LaTeX commands for the year cursor is on. +Optional prefix argument specifies number of years." + (interactive "P") + (cal-tex-year (extract-calendar-year (calendar-cursor-to-date t)) + (if arg arg 1))) + +(defun cal-tex-cursor-year-landscape (&optional arg) + "Make a buffer with LaTeX commands for the year cursor is on. +Optional prefix argument specifies numeber of years." + (interactive "P") + (cal-tex-year (extract-calendar-year (calendar-cursor-to-date t)) + (if arg arg 1) + t)) + +(defun cal-tex-year (year n &optional landscape) + "Make a one page yearly calendar of YEAR; do this for N years. +There are four rows of three months each, unless optional LANDSCAPE is t, +in which case the calendar isprinted in landscape mode with three rows of +four months each." + (cal-tex-insert-preamble 1 landscape "12pt") + (if landscape + (cal-tex-vspace "-.6cm") + (cal-tex-vspace "-3.1cm")) + (calendar-for-loop j from 1 to n do + (insert "\\vfill%\n") + (cal-tex-b-center) + (cal-tex-Huge (number-to-string year)) + (cal-tex-e-center) + (cal-tex-vspace "1cm") + (cal-tex-b-center) + (cal-tex-b-parbox "l" (if landscape "5.9in" "4.3in")) + (insert "\n") + (cal-tex-noindent) + (cal-tex-nl) + (calendar-for-loop i from 1 to 12 do + (insert (cal-tex-mini-calendar i year "month" "1.1in" "1in")) + (insert "\\month") + (cal-tex-hspace "0.5in") + (if (zerop (mod i (if landscape 4 3))) + (cal-tex-nl "0.5in"))) + (cal-tex-e-parbox) + (cal-tex-e-center) + (insert "\\vfill%\n") + (setq year (1+ year)) + (if (/= j n) + (cal-tex-newpage) + (cal-tex-end-document)) + (run-hooks 'cal-tex-year-hook)) + (run-hooks 'cal-tex-hook)) + +(defun cal-tex-cursor-filofax-year (&optional arg) + "Make a Filofax one page yearly calendar of year indicated by cursor. +Optional parameter specifies number of years." + (interactive "P") + (let* ((n (if arg arg 1)) + (year (extract-calendar-year (calendar-cursor-to-date t)))) + (cal-tex-preamble "twoside") + (cal-tex-cmd "\\textwidth 3.25in") + (cal-tex-cmd "\\textheight 6.5in") + (cal-tex-cmd "\\oddsidemargin 1.6in") + (cal-tex-cmd "\\evensidemargin 1.55in") + (cal-tex-cmd "\\topmargin 0pt") + (cal-tex-cmd "\\headheight -0.875in") + (cal-tex-cmd "\\pagestyle{empty}") + (cal-tex-b-document) + (calendar-for-loop j from 1 to n do + (insert (format "\\hfil {\\Large \\bf %s} \\hfil\\\\\n" year)) + (cal-tex-b-center) + (cal-tex-b-parbox "l" "\\textwidth") + (insert "\n") + (cal-tex-noindent) + (cal-tex-nl) + (calendar-for-loop i from 1 to 12 do + (insert (cal-tex-mini-calendar i year + (calendar-month-name i) + "1.05in" ".8in" "tiny"))) + (insert +"\\noindent\\fbox{\\January}\\fbox{\\February}\\fbox{\\March}\\\\ +\\noindent\\fbox{\\April}\\fbox{\\May}\\fbox{\\June}\\\\ +\\noindent\\fbox{\\July}\\fbox{\\August}\\fbox{\\September}\\\\ +\\noindent\\fbox{\\October}\\fbox{\\November}\\fbox{\\December} +") + (cal-tex-e-parbox) + (cal-tex-e-center) + (setq year (1+ year)) + (if (/= j n) + (cal-tex-newpage) + (cal-tex-end-document)) + (run-hooks 'cal-tex-year-hook)) + (run-hooks 'cal-tex-hook))) + +;;; +;;; Monthly calendars +;;; + +(defun cal-tex-cursor-month-landscape (&optional arg) + "Make a buffer with LaTeX commands for the month cursor is on. +Optional prefix argument specifies number of months to be produced. +The output is in landscape format, one month to a page." + (interactive "P") + (let* ((n (if arg arg 1)) + (date (calendar-cursor-to-date t)) + (month (extract-calendar-month date)) + (year (extract-calendar-year date)) + (end-month month) + (end-year year) + (cal-tex-which-days '(0 1 2 3 4 5 6))) + (increment-calendar-month end-month end-year (1- n)) + (let ((diary-list (if cal-tex-diary + (cal-tex-list-diary-entries + (calendar-absolute-from-gregorian + (list month 1 year)) + (calendar-absolute-from-gregorian + (list end-month + (calendar-last-day-of-month + end-month end-year) + end-year))))) + (holidays (if cal-tex-holidays + (cal-tex-list-holidays + (calendar-absolute-from-gregorian + (list month 1 year)) + (calendar-absolute-from-gregorian + (list end-month + (calendar-last-day-of-month end-month end-year) + end-year))))) + (other-month) + (other-year) + (small-months-at-start)) + (cal-tex-insert-preamble (cal-tex-number-weeks month year 1) t "12pt") + (cal-tex-cmd cal-tex-cal-one-month) + (calendar-for-loop i from 1 to n do + (setq other-month month) + (setq other-year year) + (increment-calendar-month other-month other-year -1) + (insert (cal-tex-mini-calendar other-month other-year "lastmonth" + "\\cellwidth" "\\cellheight")) + (increment-calendar-month other-month other-year 2) + (insert (cal-tex-mini-calendar other-month other-year "nextmonth" + "\\cellwidth" "\\cellheight")) + (cal-tex-insert-month-header 1 month year month year) + (cal-tex-insert-day-names) + (cal-tex-nl ".2cm") + (setq small-months-at-start + (< 1 (mod (- (calendar-day-of-week (list month 1 year)) + calendar-week-start-day) + 7))) + (if small-months-at-start + (insert "\\lastmonth\\nextmonth\\hspace*{-2\\cellwidth}")) + (cal-tex-insert-blank-days month year cal-tex-day-prefix) + (cal-tex-insert-days month year diary-list holidays + cal-tex-day-prefix) + (cal-tex-insert-blank-days-at-end month year cal-tex-day-prefix) + (if (and (not small-months-at-start) + (< 1 (mod (- (1- calendar-week-start-day) + (calendar-day-of-week + (list month + (calendar-last-day-of-month month year) + year))) + 7))) + (insert "\\vspace*{-\\cellwidth}\\hspace*{-2\\cellwidth}" + "\\lastmonth\\nextmonth")) + (if (/= i n) + (progn + (run-hooks 'cal-tex-month-hook) + (cal-tex-newpage) + (increment-calendar-month month year 1) + (cal-tex-vspace "-2cm") + (cal-tex-insert-preamble + (cal-tex-number-weeks month year 1) t "12pt" t)))) + (cal-tex-end-document) + (run-hooks 'cal-tex-hook)))) + +(defun cal-tex-cursor-month (arg) + "Make a buffer with LaTeX commands for the month cursor is on. +Optional prefix argument specifies number of months to be produced. +Calendar is condensed onto one page." + (interactive "P") + (let* ((date (calendar-cursor-to-date t)) + (month (extract-calendar-month date)) + (year (extract-calendar-year date)) + (end-month month) + (end-year year) + (n (if arg arg 1))) + (increment-calendar-month end-month end-year (1- n)) + (let ((diary-list (if cal-tex-diary + (cal-tex-list-diary-entries + (calendar-absolute-from-gregorian + (list month 1 year)) + (calendar-absolute-from-gregorian + (list end-month + (calendar-last-day-of-month + end-month end-year) + end-year))))) + (holidays (if cal-tex-holidays + (cal-tex-list-holidays + (calendar-absolute-from-gregorian + (list month 1 year)) + (calendar-absolute-from-gregorian + (list end-month + (calendar-last-day-of-month end-month end-year) + end-year))))) + (other-month) + (other-year)) + (cal-tex-insert-preamble (cal-tex-number-weeks month year n) nil"12pt") + (if (> n 1) + (cal-tex-cmd cal-tex-cal-multi-month) + (cal-tex-cmd cal-tex-cal-one-month)) + (cal-tex-insert-month-header n month year end-month end-year) + (cal-tex-insert-day-names) + (cal-tex-nl ".2cm") + (cal-tex-insert-blank-days month year cal-tex-day-prefix) + (calendar-for-loop i from 1 to n do + (setq other-month month) + (setq other-year year) + (cal-tex-insert-days month year diary-list holidays + cal-tex-day-prefix) + (increment-calendar-month month year 1)) + (cal-tex-insert-blank-days-at-end end-month end-year cal-tex-day-prefix) + (cal-tex-end-document))) + (run-hooks 'cal-tex-hook)) + +(defun cal-tex-insert-days (month year diary-list holidays day-format) + "Insert LaTeX commands for a range of days in monthly calendars. +LaTeX commands are inserted for the days of the MONTH in YEAR. +Diary entries on DIARY-LIST are included. Holidays on HOLIDAYS are included. +Each day is formatted using format DAY-FORMAT." + (let* ((blank-days;; at start of month + (mod + (- (calendar-day-of-week (list month 1 year)) + calendar-week-start-day) + 7)) + (date) + (last (calendar-last-day-of-month month year))) + (calendar-for-loop i from 1 to last do + (setq date (list month i year)) + (if (memq (calendar-day-of-week date) cal-tex-which-days) + (progn + (insert (format day-format (calendar-month-name month) i)) + (cal-tex-arg (cal-tex-latexify-list diary-list date)) + (cal-tex-arg (cal-tex-latexify-list holidays date)) + (cal-tex-arg (eval cal-tex-daily-string)) + (cal-tex-arg) + (cal-tex-comment))) + (if (and (zerop (mod (+ i blank-days) 7)) + (/= i last)) + (progn + (cal-tex-hfill) + (cal-tex-nl)))))) + +(defun cal-tex-insert-day-names () + "Insert the names of the days at top of a monthly calendar." + (calendar-for-loop i from 0 to 6 do + (if (memq i cal-tex-which-days) + (insert (format cal-tex-day-name-format + (aref calendar-day-name-array + (mod (+ calendar-week-start-day i) 7))))) + (cal-tex-comment))) + +(defun cal-tex-insert-month-header (n month year end-month end-year) + "Create a title for a calendar. +A title is inserted for a calendar with N months starting with +MONTH YEAR and ending with END-MONTH END-YEAR." + (let ( (month-name (calendar-month-name month)) + (end-month-name (calendar-month-name end-month))) + (if (= 1 n) + (insert (format "\\calmonth{%s}{%s}\n\\vspace*{-0.5cm}" + month-name year) ) + (insert (format "\\calmonth{%s}{%s}{%s}{%s}\n\\vspace*{-0.5cm}" + month-name year end-month-name end-year)))) + (cal-tex-comment)) + +(defun cal-tex-insert-blank-days (month year day-format) + "Insert code for initial days not in calendar. +Insert LaTeX code for the blank days at the beginning of the MONTH in +YEAR. The entry is formatted using DAY-FORMAT. If the entire week is +blank, no days are inserted." + (if (cal-tex-first-blank-p month year) + (let* ((blank-days;; at start of month + (mod + (- (calendar-day-of-week (list month 1 year)) + calendar-week-start-day) + 7))) + (calendar-for-loop i from 0 to (1- blank-days) do + (if (memq i cal-tex-which-days) + (insert (format day-format " " " ") "{}{}{}{}%\n")))))) + +(defun cal-tex-insert-blank-days-at-end (month year day-format) + "Insert code for final days not in calendar. +Insert LaTeX code for the blank days at the end of the MONTH in YEAR. +The entry is formatted using DAY-FORMAT." + (if (cal-tex-last-blank-p month year) + (let* ((last-day (calendar-last-day-of-month month year)) + (blank-days;; at end of month + (mod + (- (calendar-day-of-week (list month last-day year)) + calendar-week-start-day) + 7))) + (calendar-for-loop i from (1+ blank-days) to 6 do + (if (memq i cal-tex-which-days) + (insert (format day-format "" "") "{}{}{}{}%\n")))))) + +(defun cal-tex-first-blank-p (month year) + "Determine if any days of the first week will be printed. +Return t if there will there be any days of the first week printed +in the calendar starting in MONTH YEAR." + (let ((any-days nil) + (the-saturday)) ;the day of week of 1st Saturday + (calendar-for-loop i from 1 to 7 do + (if (= 6 (calendar-day-of-week (list month i year))) + (setq the-saturday i))) + (calendar-for-loop i from 1 to the-saturday do + (if (memq (calendar-day-of-week (list month i year)) + cal-tex-which-days) + (setq any-days t))) + any-days)) + +(defun cal-tex-last-blank-p (month year) + "Determine if any days of the last week will be printed. +Return t if there will there be any days of the last week printed +in the calendar starting in MONTH YEAR." + (let ((any-days nil) + (last-day (calendar-last-day-of-month month year)) + (the-sunday)) ;the day of week of last Sunday + (calendar-for-loop i from (- last-day 6) to last-day do + (if (= 0 (calendar-day-of-week (list month i year))) + (setq the-sunday i))) + (calendar-for-loop i from the-sunday to last-day do + (if (memq (calendar-day-of-week (list month i year)) + cal-tex-which-days) + (setq any-days t))) + any-days)) + +(defun cal-tex-number-weeks (month year n) + "Determine the number of weeks in a range of dates. +Compute the number of weeks in the calendar starting with MONTH and YEAR, +and lasting N months, including only the days in WHICH-DAYS. As it stands, +this is only an upper bound." + (let ((d (list month 1 year))) + (increment-calendar-month month year (1- n)) + (/ (- (calendar-dayname-on-or-before + calendar-week-start-day + (+ 7 (calendar-absolute-from-gregorian + (list month (calendar-last-day-of-month month year) year)))) + (calendar-dayname-on-or-before + calendar-week-start-day + (calendar-absolute-from-gregorian d))) + 7))) + +;;; +;;; Weekly calendars +;;; + +(defun cal-tex-cursor-week (&optional arg) + "One page calendar for week indicated by cursor. +Optional prefix argument specifies number of weeks. +Holidays are included if `cal-tex-holidays' is t." + (interactive "P") + (let* ((n (if arg arg 1)) + (date (calendar-gregorian-from-absolute + (calendar-dayname-on-or-before + calendar-week-start-day + (calendar-absolute-from-gregorian + (calendar-cursor-to-date t))))) + (month (extract-calendar-month date)) + (year (extract-calendar-year date)) + (holidays (if cal-tex-holidays + (cal-tex-list-holidays + (calendar-absolute-from-gregorian date) + (+ (* 7 n) + (calendar-absolute-from-gregorian date)))))) + (cal-tex-preamble "11pt") + (cal-tex-cmd "\\textwidth 6.5in") + (cal-tex-cmd "\\textheight 10.5in") + (cal-tex-cmd "\\oddsidemargin 0in") + (cal-tex-cmd "\\evensidemargin 0in") + (insert cal-tex-LaTeX-hourbox) + (cal-tex-b-document) + (cal-tex-cmd "\\pagestyle{empty}") + (calendar-for-loop i from 1 to n do + (cal-tex-vspace "-1.5in") + (cal-tex-b-center) + (cal-tex-Huge-bf (format "\\uppercase{%s}" + (calendar-month-name month))) + (cal-tex-hspace "2em") + (cal-tex-Huge-bf (number-to-string year)) + (cal-tex-nl ".5cm") + (cal-tex-e-center) + (cal-tex-hspace "-.2in") + (cal-tex-b-parbox "l" "7in") + (calendar-for-loop j from 1 to 7 do + (cal-tex-week-hours date holidays "3.1") + (setq date (cal-tex-incr-date date))) + (cal-tex-e-parbox) + (setq month (extract-calendar-month date)) + (setq year (extract-calendar-year date)) + (if (/= i n) + (progn + (run-hooks 'cal-tex-week-hook) + (cal-tex-newpage)))) + (cal-tex-end-document) + (run-hooks 'cal-tex-hook))) + +(defun cal-tex-cursor-week2 (&optional arg) + "Make a buffer with LaTeX commands for the week cursor is on. +The printed output will be on two pages. +Optional prefix argument specifies number of weeks. +Holidays are included if `cal-tex-holidays' is t." + (interactive "P") + (let* ((n (if arg arg 1)) + (date (calendar-gregorian-from-absolute + (calendar-dayname-on-or-before + calendar-week-start-day + (calendar-absolute-from-gregorian + (calendar-cursor-to-date t))))) + (month (extract-calendar-month date)) + (year (extract-calendar-year date)) + (d date) + (holidays (if cal-tex-holidays + (cal-tex-list-holidays + (calendar-absolute-from-gregorian date) + (+ (* 7 n) + (calendar-absolute-from-gregorian date)))))) + (cal-tex-preamble "12pt") + (cal-tex-cmd "\\textwidth 6.5in") + (cal-tex-cmd "\\textheight 10.5in") + (cal-tex-cmd "\\oddsidemargin 0in") + (cal-tex-cmd "\\evensidemargin 0in") + (insert cal-tex-LaTeX-hourbox) + (cal-tex-b-document) + (cal-tex-cmd "\\pagestyle{empty}") + (calendar-for-loop i from 1 to n do + (cal-tex-vspace "-1.5in") + (cal-tex-b-center) + (cal-tex-Huge-bf (format "\\uppercase{%s}" + (calendar-month-name month))) + (cal-tex-hspace "2em") + (cal-tex-Huge-bf (number-to-string year)) + (cal-tex-nl ".5cm") + (cal-tex-e-center) + (cal-tex-hspace "-.2in") + (cal-tex-b-parbox "l" "\\textwidth") + (calendar-for-loop j from 1 to 3 do + (cal-tex-week-hours date holidays "5") + (setq date (cal-tex-incr-date date))) + (cal-tex-e-parbox) + (cal-tex-nl) + (insert (cal-tex-mini-calendar + (extract-calendar-month (cal-tex-previous-month date)) + (extract-calendar-year (cal-tex-previous-month date)) + "lastmonth" "1.1in" "1in")) + (insert (cal-tex-mini-calendar + (extract-calendar-month date) + (extract-calendar-year date) + "thismonth" "1.1in" "1in")) + (insert (cal-tex-mini-calendar + (extract-calendar-month (cal-tex-next-month date)) + (extract-calendar-year (cal-tex-next-month date)) + "nextmonth" "1.1in" "1in")) + (insert "\\hbox to \\textwidth{") + (cal-tex-hfill) + (insert "\\lastmonth") + (cal-tex-hfill) + (insert "\\thismonth") + (cal-tex-hfill) + (insert "\\nextmonth") + (cal-tex-hfill) + (insert "}") + (cal-tex-nl) + (cal-tex-b-parbox "l" "\\textwidth") + (calendar-for-loop j from 4 to 7 do + (cal-tex-week-hours date holidays "5") + (setq date (cal-tex-incr-date date))) + (cal-tex-e-parbox) + (setq month (extract-calendar-month date)) + (setq year (extract-calendar-year date)) + (if (/= i n) + (progn + (run-hooks 'cal-tex-week-hook) + (cal-tex-newpage)))) + (cal-tex-end-document) + (run-hooks 'cal-tex-hook))) + +(defun cal-tex-cursor-week3 (&optional arg) + "One page ISO style calendar for the ISO week indicated by cursor. +Optional prefix argument specifies number of weeks. +Diary entries are included if cal-tex-diary is t. +Holidays are included if `cal-tex-holidays' is t." + (interactive "P") + (let* ((n (if arg arg 1)) + (date (calendar-gregorian-from-absolute + (calendar-dayname-on-or-before + 1 + (calendar-absolute-from-gregorian + (calendar-cursor-to-date t))))) + (month (extract-calendar-month date)) + (year (extract-calendar-year date)) + (day (extract-calendar-day date)) + (holidays (if cal-tex-holidays + (cal-tex-list-holidays + (calendar-absolute-from-gregorian date) + (+ (* 7 n) + (calendar-absolute-from-gregorian date))))) + (diary-list (if cal-tex-diary + (cal-tex-list-diary-entries + (calendar-absolute-from-gregorian + (list month 1 year)) + (+ (* 7 n) + (calendar-absolute-from-gregorian date)))))) + (cal-tex-preamble "11pt") + (cal-tex-cmd "\\textwidth 6.5in") + (cal-tex-cmd "\\textheight 10.5in") + (cal-tex-cmd "\\oddsidemargin 0in") + (cal-tex-cmd "\\evensidemargin 0in") + (cal-tex-b-document) + (cal-tex-cmd "\\pagestyle{empty}") + (calendar-for-loop i from 1 to n do + (cal-tex-vspace "-1.5in") + (cal-tex-b-center) + (cal-tex-Huge-bf + (let* ((d (calendar-iso-from-absolute + (calendar-absolute-from-gregorian date)))) + (format "Week %d of %d" + (extract-calendar-month d) + (extract-calendar-year d)))) + (cal-tex-nl ".5cm") + (cal-tex-e-center) + (cal-tex-b-parbox "l" "\\textwidth") + (calendar-for-loop j from 1 to 7 do + (cal-tex-b-parbox "t" "\\textwidth") + (cal-tex-b-parbox "t" "\\textwidth") + (cal-tex-rule "0pt" "\\textwidth" ".2mm") + (cal-tex-nl) + (cal-tex-b-parbox "t" "\\textwidth") + (cal-tex-large-bf (calendar-day-name date)) + (insert ", ") + (cal-tex-large-bf (calendar-month-name month)) + (insert " ") + (cal-tex-large-bf (number-to-string day)) + (if (not (string= "" (cal-tex-latexify-list holidays date))) + (progn + (insert ": ") + (cal-tex-large-bf (cal-tex-latexify-list holidays date "; ")))) + (cal-tex-hfill) + (insert " " (eval cal-tex-daily-string)) + (cal-tex-e-parbox) + (cal-tex-nl) + (cal-tex-noindent) + (cal-tex-b-parbox "t" "\\textwidth") + (if (not (string= "" (cal-tex-latexify-list diary-list date))) + (progn + (insert "\\vbox to 0pt{") + (cal-tex-large-bf + (cal-tex-latexify-list diary-list date)) + (insert "}"))) + (cal-tex-e-parbox) + (cal-tex-nl) + (setq date (cal-tex-incr-date date)) + (setq month (extract-calendar-month date)) + (setq day (extract-calendar-day date)) + (cal-tex-e-parbox) + (cal-tex-e-parbox "2cm") + (cal-tex-nl) + (setq month (extract-calendar-month date)) + (setq year (extract-calendar-year date))) + (cal-tex-e-parbox)% + (if (/= i n) + (progn + (run-hooks 'cal-tex-week-hook) + (cal-tex-newpage)))) + (cal-tex-end-document) + (run-hooks 'cal-tex-hook))) + +(defvar cal-tex-LaTeX-hourbox + "\\newcommand{\\hourbox}[2]% +{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" + "One hour and a line on the right.") + +(defun cal-tex-week-hours (date holidays height) + "Insert hourly entries for DATE with HOLIDAYS, with line height HEIGHT." + (let ((month (extract-calendar-month date)) + (day (extract-calendar-day date)) + (year (extract-calendar-year date)) + (afternoon)) + (cal-tex-comment "begin cal-tex-week-hours") + (cal-tex-cmd "\\ \\\\[-.2cm]") + (cal-tex-cmd "\\noindent") + (cal-tex-b-parbox "l" "6.8in") + (cal-tex-large-bf (calendar-day-name date)) + (insert ", ") + (cal-tex-large-bf (calendar-month-name month)) + (insert " ") + (cal-tex-large-bf (number-to-string day)) + (if (not (string= "" (cal-tex-latexify-list holidays date))) + (progn + (insert ": ") + (cal-tex-large-bf (cal-tex-latexify-list holidays date "; ")))) + (cal-tex-hfill) + (insert " " (eval cal-tex-daily-string)) + (cal-tex-e-parbox) + (cal-tex-nl "-.3cm") + (cal-tex-rule "0pt" "6.8in" ".2mm") + (cal-tex-nl "-.1cm") + (calendar-for-loop i from 8 to 12 do + (if cal-tex-24 + (setq afternoon (+ i 5)) + (setq afternoon (- i 7))) + (cal-tex-cmd "\\hourbox" (number-to-string i)) + (cal-tex-arg height) + (cal-tex-hspace ".4cm") + (cal-tex-cmd "\\hourbox" (number-to-string afternoon)) + (cal-tex-arg height) + (cal-tex-nl)))) + +(defun cal-tex-cursor-week4 (&optional arg) + "One page calendar for week indicated by cursor. +Week begins on Monday. +Optional prefix argument specifies number of weeks." + (interactive "P") + (let* ((n (if arg arg 1)) + (date (calendar-gregorian-from-absolute + (calendar-dayname-on-or-before + 0 + (calendar-absolute-from-gregorian + (calendar-cursor-to-date t)))))) + (cal-tex-preamble "11pt") + (cal-tex-cmd "\\textwidth 6.5in") + (cal-tex-cmd "\\textheight 10.5in") + (cal-tex-cmd "\\oddsidemargin 0in") + (cal-tex-cmd "\\evensidemargin 0in") + (cal-tex-b-document) + (calendar-for-loop i from 1 to n do + (cal-tex-vspace "-1cm") + (insert "\\noindent ") + (cal-tex-weekly4-box (cal-tex-incr-date date) nil) + (cal-tex-weekly4-box (cal-tex-incr-date date 4) nil) + (cal-tex-nl ".2cm") + (cal-tex-weekly4-box (cal-tex-incr-date date 2) nil) + (cal-tex-weekly4-box (cal-tex-incr-date date 5) nil) + (cal-tex-nl ".2cm") + (cal-tex-weekly4-box (cal-tex-incr-date date 3) nil) + (cal-tex-weekly4-box (cal-tex-incr-date date 6) t) + (if (/= i n) + (progn + (run-hooks 'cal-tex-week-hook) + (setq date date7) + (cal-tex-newpage)))) + (cal-tex-end-document) + (run-hooks 'cal-tex-hook))) + +(defun cal-tex-weekly4-box (date weekend) + "make one box for DATE, different if WEEKEND" + (let* ( + (day (extract-calendar-day date)) + (month (extract-calendar-month date)) + (year (extract-calendar-year date)) + (dayname (calendar-day-name date)) + (date1 (cal-tex-incr-date date)) + (day1 (extract-calendar-day date1)) + (month1 (extract-calendar-month date1)) + (year1 (extract-calendar-year date1)) + (dayname1 (calendar-day-name date1)) + ) + (cal-tex-b-framebox "8cm" "l") + (cal-tex-b-parbox "b" "7.5cm") + (insert (format "{\\Large\\bf %s,} %s/%s/%s\\\\\n" + dayname month day year)) + (cal-tex-rule "0pt" "7.5cm" ".5mm") + (cal-tex-nl) + (if (not weekend) + (progn + (calendar-for-loop i from 8 to 12 do + (insert (format "{\\large\\sf %d}\\\\\n" i))) + (calendar-for-loop i from 1 to 5 do + (insert (format "{\\large\\sf %d}\\\\\n" i))))) + (cal-tex-nl ".5cm") + (if weekend + (progn + (cal-tex-vspace "1cm") + (insert "\\ \\vfill") + (insert (format "{\\Large\\bf %s,} %s/%s/%s\\\\\n" + dayname1 month1 day1 year1)) + (cal-tex-rule "0pt" "7.5cm" ".5mm") + (cal-tex-nl "1.5cm") + (cal-tex-vspace "1cm"))) + (cal-tex-e-parbox) + (cal-tex-e-framebox) + (cal-tex-hspace "1cm"))) + +(defun cal-tex-cursor-week5 (&optional arg) + "Two-weeks-at-a-glance Filofax style calendar for week indicated by cursor. +Optional prefix argument specifies number of weeks. +Diary entries are included if cal-tex-diary is t. +Holidays are included if `cal-tex-holidays' is t." + (interactive "P") + (let* ((n (if arg arg 1)) + (date (calendar-gregorian-from-absolute + (calendar-dayname-on-or-before + calendar-week-start-day + (calendar-absolute-from-gregorian + (calendar-cursor-to-date t))))) + (month (extract-calendar-month date)) + (year (extract-calendar-year date)) + (day (extract-calendar-day date)) + (holidays (if cal-tex-holidays + (cal-tex-list-holidays + (calendar-absolute-from-gregorian date) + (+ (* 7 n) + (calendar-absolute-from-gregorian date))))) + (diary-list (if cal-tex-diary + (cal-tex-list-diary-entries + (calendar-absolute-from-gregorian + (list month 1 year)) + (+ (* 7 n) + (calendar-absolute-from-gregorian date)))))) + (cal-tex-preamble "twoside") + (cal-tex-cmd "\\textwidth 3.25in") + (cal-tex-cmd "\\textheight 6.5in") + (cal-tex-cmd "\\oddsidemargin 1.75in") + (cal-tex-cmd "\\evensidemargin 1.5in") + (cal-tex-cmd "\\topmargin 0pt") + (cal-tex-cmd "\\headheight -0.875in") + (cal-tex-cmd "\\headsep 0.125in") + (cal-tex-cmd "\\footskip .125in") + (insert "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]} +\\long\\def\\rightday#1#2#3#4#5{% + \\rule{\\textwidth}{0.3pt}\\\\% + \\hbox to \\textwidth{% + \\vbox to 0.7in{% + \\vspace*{2pt}% + \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}% + \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}% + \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\} +\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]} +\\long\\def\\leftday#1#2#3#4#5{% + \\rule{\\textwidth}{0.3pt}\\\\% + \\hbox to \\textwidth{% + \\vbox to 0.7in{% + \\vspace*{2pt}% + \\hbox to \\textwidth{\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}% + \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize \\em #4}}% + \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\} +") + (cal-tex-b-document) + (cal-tex-cmd "\\pagestyle{empty}") + (calendar-for-loop i from 1 to n do + (if (= (mod i 2) 1) + (insert "\\righthead") + (insert "\\lefthead")) + (cal-tex-arg + (let ((d (cal-tex-incr-date date 6))) + (if (= (extract-calendar-month date) + (extract-calendar-month d)) + (format "%s %s" + (calendar-month-name + (extract-calendar-month date)) + (extract-calendar-year date)) + (if (= (extract-calendar-year date) + (extract-calendar-year d)) + (format "%s---%s %s" + (calendar-month-name + (extract-calendar-month date)) + (calendar-month-name + (extract-calendar-month d)) + (extract-calendar-year date)) + (format "%s %s---%s %s" + (calendar-month-name + (extract-calendar-month date)) + (extract-calendar-year date) + (calendar-month-name (extract-calendar-month d)) + (extract-calendar-year d)))))) + (insert "%\n") + (calendar-for-loop j from 1 to 7 do + (if (= (mod i 2) 1) + (insert "\\rightday") + (insert "\\leftday")) + (cal-tex-arg (calendar-day-name date)) + (cal-tex-arg (int-to-string (extract-calendar-day date))) + (cal-tex-arg (cal-tex-latexify-list diary-list date)) + (cal-tex-arg (cal-tex-latexify-list holidays date)) + (cal-tex-arg (eval cal-tex-daily-string)) + (insert "%\n") + (setq date (cal-tex-incr-date date))) + (if (/= i n) + (progn + (run-hooks 'cal-tex-week-hook) + (cal-tex-newpage)))) + (cal-tex-end-document) + (run-hooks 'cal-tex-hook))) + +(defun cal-tex-cursor-week6 (&optional arg) + "One-week-at-a-glance Filofax style calendar for week indicated by cursor. +Optional prefix argument specifies number of weeks. +Weeks start on Monday. +Diary entries are included if cal-tex-diary is t. +Holidays are included if `cal-tex-holidays' is t." + (interactive "P") + (let* ((n (if arg arg 1)) + (date (calendar-gregorian-from-absolute + (calendar-dayname-on-or-before + 1 + (calendar-absolute-from-gregorian + (calendar-cursor-to-date t))))) + (month (extract-calendar-month date)) + (year (extract-calendar-year date)) + (day (extract-calendar-day date)) + (holidays (if cal-tex-holidays + (cal-tex-list-holidays + (calendar-absolute-from-gregorian date) + (+ (* 7 n) + (calendar-absolute-from-gregorian date))))) + (diary-list (if cal-tex-diary + (cal-tex-list-diary-entries + (calendar-absolute-from-gregorian + (list month 1 year)) + (+ (* 7 n) + (calendar-absolute-from-gregorian date)))))) + (cal-tex-preamble "twoside") + (cal-tex-cmd "\\textwidth 3.25in") + (cal-tex-cmd "\\textheight 6.5in") + (cal-tex-cmd "\\oddsidemargin 1.75in") + (cal-tex-cmd "\\evensidemargin 1.5in") + (cal-tex-cmd "\\topmargin 0pt") + (cal-tex-cmd "\\headheight -0.875in") + (cal-tex-cmd "\\headsep 0.125in") + (cal-tex-cmd "\\footskip .125in") + (insert "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]} +\\long\\def\\rightday#1#2#3#4#5{% + \\rule{\\textwidth}{0.3pt}\\\\% + \\hbox to \\textwidth{% + \\vbox to 1.85in{% + \\vspace*{2pt}% + \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}% + \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}% + \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\} +\\long\\def\\weekend#1#2#3#4#5{% + \\rule{\\textwidth}{0.3pt}\\\\% + \\hbox to \\textwidth{% + \\vbox to .8in{% + \\vspace*{2pt}% + \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}% + \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}% + \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\} +\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]} +\\long\\def\\leftday#1#2#3#4#5{% + \\rule{\\textwidth}{0.3pt}\\\\% + \\hbox to \\textwidth{% + \\vbox to 1.85in{% + \\vspace*{2pt}% + \\hbox to \\textwidth{\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}% + \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize \\em #4}}% + \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\} +") + (cal-tex-b-document) + (cal-tex-cmd "\\pagestyle{empty}\\ ") + (cal-tex-newpage) + (calendar-for-loop i from 1 to n do + (insert "\\lefthead") + (cal-tex-arg + (let ((d (cal-tex-incr-date date 2))) + (if (= (extract-calendar-month date) + (extract-calendar-month d)) + (format "%s %s" + (calendar-month-name + (extract-calendar-month date)) + (extract-calendar-year date)) + (if (= (extract-calendar-year date) + (extract-calendar-year d)) + (format "%s---%s %s" + (calendar-month-name + (extract-calendar-month date)) + (calendar-month-name + (extract-calendar-month d)) + (extract-calendar-year date)) + (format "%s %s---%s %s" + (calendar-month-name + (extract-calendar-month date)) + (extract-calendar-year date) + (calendar-month-name (extract-calendar-month d)) + (extract-calendar-year d)))))) + (insert "%\n") + (calendar-for-loop j from 1 to 3 do + (insert "\\leftday") + (cal-tex-arg (calendar-day-name date)) + (cal-tex-arg (int-to-string (extract-calendar-day date))) + (cal-tex-arg (cal-tex-latexify-list diary-list date)) + (cal-tex-arg (cal-tex-latexify-list holidays date)) + (cal-tex-arg (eval cal-tex-daily-string)) + (insert "%\n") + (setq date (cal-tex-incr-date date))) + (insert "\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n") + (cal-tex-newpage) + (insert "\\righthead") + (cal-tex-arg + (let ((d (cal-tex-incr-date date 3))) + (if (= (extract-calendar-month date) + (extract-calendar-month d)) + (format "%s %s" + (calendar-month-name + (extract-calendar-month date)) + (extract-calendar-year date)) + (if (= (extract-calendar-year date) + (extract-calendar-year d)) + (format "%s---%s %s" + (calendar-month-name + (extract-calendar-month date)) + (calendar-month-name + (extract-calendar-month d)) + (extract-calendar-year date)) + (format "%s %s---%s %s" + (calendar-month-name + (extract-calendar-month date)) + (extract-calendar-year date) + (calendar-month-name (extract-calendar-month d)) + (extract-calendar-year d)))))) + (insert "%\n") + (calendar-for-loop j from 1 to 2 do + (insert "\\rightday") + (cal-tex-arg (calendar-day-name date)) + (cal-tex-arg (int-to-string (extract-calendar-day date))) + (cal-tex-arg (cal-tex-latexify-list diary-list date)) + (cal-tex-arg (cal-tex-latexify-list holidays date)) + (cal-tex-arg (eval cal-tex-daily-string)) + (insert "%\n") + (setq date (cal-tex-incr-date date))) + (calendar-for-loop j from 1 to 2 do + (insert "\\weekend") + (cal-tex-arg (calendar-day-name date)) + (cal-tex-arg (int-to-string (extract-calendar-day date))) + (cal-tex-arg (cal-tex-latexify-list diary-list date)) + (cal-tex-arg (cal-tex-latexify-list holidays date)) + (cal-tex-arg (eval cal-tex-daily-string)) + (insert "%\n") + (setq date (cal-tex-incr-date date))) + (if (/= i n) + (progn + (run-hooks 'cal-tex-week-hook) + (cal-tex-newpage)))) + (cal-tex-end-document) + (run-hooks 'cal-tex-hook))) +;;; +;;; Daily calendars +;;; + +(defun cal-tex-cursor-day (&optional arg) + "Make a buffer with LaTeX commands for the day cursor is on. +Optional prefix argument specifies number of days." + (interactive "P") + (let ((n (if arg arg 1)) + (date (calendar-absolute-from-gregorian (calendar-cursor-to-date t)))) + (cal-tex-preamble "12pt") + (cal-tex-cmd "\\textwidth 6.5in") + (cal-tex-cmd "\\textheight 10.5in") + (cal-tex-b-document) + (cal-tex-cmd "\\pagestyle{empty}") + (calendar-for-loop i from 1 to n do + (cal-tex-vspace "-1.7in") + (cal-tex-daily-page (calendar-gregorian-from-absolute date)) + (setq date (1+ date)) + (if (/= i n) + (progn + (cal-tex-newpage) + (run-hooks 'cal-tex-daily-hook)))) + (cal-tex-end-document) + (run-hooks 'cal-tex-hook))) + +(defun cal-tex-daily-page (date) + "Make a calendar page for Gregorian DATE on 8.5 by 11 paper." + (let* ((hour) + (month-name (calendar-month-name (extract-calendar-month date)))) + (cal-tex-banner "cal-tex-daily-page") + (cal-tex-b-makebox "4cm" "l") + (cal-tex-b-parbox "b" "3.8cm") + (cal-tex-rule "0mm" "0mm" "2cm") + (cal-tex-Huge (number-to-string (extract-calendar-day date))) + (cal-tex-nl ".5cm") + (cal-tex-bf month-name ) + (cal-tex-e-parbox) + (cal-tex-hspace "1cm") + (cal-tex-scriptsize (eval cal-tex-daily-string)) + (cal-tex-hspace "3.5cm") + (cal-tex-e-makebox) + (cal-tex-hfill) + (cal-tex-b-makebox "4cm" "r") + (cal-tex-bf (calendar-day-name date)) + (cal-tex-e-makebox) + (cal-tex-nl) + (cal-tex-hspace ".4cm") + (cal-tex-rule "0mm" "16.1cm" "1mm") + (cal-tex-nl ".1cm") + (calendar-for-loop i from cal-tex-daily-start to cal-tex-daily-end do + (cal-tex-cmd "\\noindent") + (setq hour (if cal-tex-24 + i + (mod i 12))) + (if (= 0 hour) (setq hour 12)) + (cal-tex-b-makebox "1cm" "c") + (cal-tex-arg (number-to-string hour)) + (cal-tex-e-makebox) + (cal-tex-rule "0mm" "15.5cm" ".2mm") + (cal-tex-nl ".2cm") + (cal-tex-b-makebox "1cm" "c") + (cal-tex-arg "$\\diamond$" ) + (cal-tex-e-makebox) + (cal-tex-rule "0mm" "15.5cm" ".2mm") + (cal-tex-nl ".2cm")) + (cal-tex-hfill) + (insert (cal-tex-mini-calendar + (extract-calendar-month (cal-tex-previous-month date)) + (extract-calendar-year (cal-tex-previous-month date)) + "lastmonth" "1.1in" "1in")) + (insert (cal-tex-mini-calendar + (extract-calendar-month date) + (extract-calendar-year date) + "thismonth" "1.1in" "1in")) + (insert (cal-tex-mini-calendar + (extract-calendar-month (cal-tex-next-month date)) + (extract-calendar-year (cal-tex-next-month date)) + "nextmonth" "1.1in" "1in")) + (insert "\\hbox to \\textwidth{") + (cal-tex-hfill) + (insert "\\lastmonth") + (cal-tex-hfill) + (insert "\\thismonth") + (cal-tex-hfill) + (insert "\\nextmonth") + (cal-tex-hfill) + (insert "}") + (cal-tex-banner "end of cal-tex-daily-page"))) + +;;; +;;; Mini calendars +;;; + +(defun cal-tex-mini-calendar (month year name width height &optional size) + "Produce mini-calendar for MONTH, YEAR in macro NAME with WIDTH and HEIGHT. +Optional SIZE gives the point size; scriptsize is the default," + (let* ((blank-days;; at start of month + (mod + (- (calendar-day-of-week (list month 1 year)) + calendar-week-start-day) + 7)) + (last (calendar-last-day-of-month month year)) + (str (concat "\\def\\" name "{\\hbox to" width "{%\n" + "\\vbox to" height "{%\n" + "\\vfil \\hbox to" width "{%\n" + "\\hfil\\" + (if size size "scriptsize") + "\\begin{tabular}" + "{@{\\hspace{1mm}}r@{\\hspace{1mm}}r@{\\hspace{1mm}}r@{\\hspace{1mm}}" + "r@{\\hspace{1mm}}r@{\\hspace{1mm}}r@{\\hspace{1mm}}r@{\\hspace{1mm}}}%\n" + "\\multicolumn{7}{c}{" + (calendar-month-name month) + " " + (int-to-string year) + "}\\\\[0.5mm]\n"))) + (calendar-for-loop i from 0 to 6 do + (setq str (concat str + (substring (aref calendar-day-name-array + (mod (+ calendar-week-start-day i) 7)) + 0 2) + (if (/= i 6) + " & " + "\\\\[0.5mm]\n")))) + (calendar-for-loop i from 1 to blank-days do + (setq str (concat str " & "))) + (calendar-for-loop i from 1 to last do + (setq str (concat str (int-to-string i))) + (setq str (concat str (if (zerop (mod (+ i blank-days) 7)) + (if (/= i last) "\\\\[0.5mm]\n" "") + " & ")))) + (setq str (concat str "\n\\end{tabular}\\hfil}\\vfil}}}%\n")) + str)) + +;;; +;;; Various calendar functions +;;; + +(defun cal-tex-incr-date (date &optional n) + "The date of the day following DATE. +If optional N is given, the date of N days after DATE." + (calendar-gregorian-from-absolute + (+ (if n n 1) (calendar-absolute-from-gregorian date)))) + +(defun cal-tex-latexify-list (date-list date &optional separator) + "Return string with concatenated, LaTeXified entries in DATE_LIST for DATE. +Use double backslash as a separator unless optional SEPARATOR is given." + (mapconcat '(lambda (x) (cal-tex-LaTeXify-string x)) + (let ((result) + (p date-list)) + (while p + (and (car (car p)) + (calendar-date-equal date (car (car p))) + (setq result (append (cdr (car p)) result))) + (setq p (cdr p))) + result) + (if separator separator "\\\\"))) + +(defun cal-tex-previous-month (date) + "Return the date of the first day in the month previous to DATE." + (let* ((month (extract-calendar-month date)) + (year (extract-calendar-year date))) + (increment-calendar-month month year -1) + (list month 1 year))) + +(defun cal-tex-next-month (date) + "Return the date of the first day in the month following DATE." + (let* ((month (extract-calendar-month date)) + (year (extract-calendar-year date))) + (increment-calendar-month month year 1) + (list month 1 year))) + +;;; +;;; LaTeX Code +;;; + +(defun cal-tex-end-document () + "Finish the LaTeX document. +Insert the trailer to LaTeX document, pop to LaTeX buffer, add +informative header, and run HOOK." + (cal-tex-e-document) + (latex-mode) + (pop-to-buffer cal-tex-buffer) + (goto-char (point-min)) + (cal-tex-comment " This buffer was produced by cal-tex.el.") + (cal-tex-comment " To print a calendar, type") + (cal-tex-comment " M-x tex-buffer RET") + (cal-tex-comment " M-x tex-print RET") + (goto-char (point-min))) + +(defun cal-tex-insert-preamble (weeks landscape size &optional append) + "Initialize the output buffer. +Select the output buffer, and insert the preamble for a calendar of +WEEKS weeks. Insert code for landscape mode if LANDSCAPE is true. +Use pointsize SIZE. Optional argument APPEND, if t, means add to end of +without erasing current contents." + (let ((width "18cm") + (height "24cm")) + (if landscape + (progn + (setq width "24cm") + (setq height "18cm"))) + (if (not append) + (progn + (cal-tex-preamble size) + (if (not landscape) + (progn + (cal-tex-cmd "\\oddsidemargin -1.75cm") + (cal-tex-cmd "\\def\\holidaymult{.06}")) + (cal-tex-cmd "\\special{landscape}") + (cal-tex-cmd "\\textwidth 9.5in") + (cal-tex-cmd "\\textheight 7in") + (cal-tex-comment) + (cal-tex-cmd "\\def\\holidaymult{.08}")) + (cal-tex-cmd cal-tex-caldate) + (cal-tex-cmd cal-tex-myday) + (cal-tex-b-document) + (cal-tex-cmd "\\pagestyle{empty}"))) + (cal-tex-cmd "\\setlength{\\cellwidth}" width) + (insert (format "\\setlength{\\cellwidth}{%f\\cellwidth}\n" + (/ 1.1 (length cal-tex-which-days)))) + (cal-tex-cmd "\\setlength{\\cellheight}" height) + (insert (format "\\setlength{\\cellheight}{%f\\cellheight}\n" + (/ 1.0 weeks))) + (cal-tex-cmd "\\ \\par") + (cal-tex-vspace "-3cm"))) + +(defvar cal-tex-LaTeX-subst-list + '(("\"". "``") + ("\"". "''");; Quote changes meaning when list is reversed. + ("@" . "\\verb|@|") + ("&" . "\\&") + ("%" . "\\%") + ("$" . "\\$") + ("#" . "\\#") + ("_" . "\\_") + ("{" . "\\{") + ("}" . "\\}") + ("<" . "$<$") + (">" . "$>$") + ("\n" . "\\ \\\\")) ;\\ needed for e.g \begin{center}\n AA\end{center} + "List of symbols and their replacements.") + +(defun cal-tex-LaTeXify-string (string) + "Protect special characters in STRING from LaTeX." + (if (not string) + "" + (let ((head "") + (tail string) + (list cal-tex-LaTeX-subst-list)) + (while (not (string-equal tail "")) + (let* ((ch (substring tail 0 1)) + (pair (assoc ch list))) + (if (and pair (string-equal ch "\"")) + (setq list (reverse list)));; Quote changes meaning each time. + (setq tail (substring tail 1)) + (setq head (concat head (if pair (cdr pair) ch))))) + head))) + +(defun cal-tex-hfill () "Insert hfill." (insert "\\hfill")) + +(defun cal-tex-newpage () "Insert newpage." (insert "\\newpage%\n")) + +(defun cal-tex-noindent () "Insert noindent." (insert "\\noindent")) + +(defun cal-tex-vspace (space) + "Insert vspace command to move SPACE vertically." + (insert "\\vspace*{" space "}") + (cal-tex-comment)) + +(defun cal-tex-hspace (space) + "Insert hspace command to move SPACE horizontally." + (insert "\\hspace*{" space "}") + (cal-tex-comment)) + +(defun cal-tex-comment (&optional comment) + "Insert % at end of line, include COMMENT if present, and move + to next line." + (insert "% ") + (if comment + (insert comment)) + (insert "\n")) + +(defun cal-tex-banner (comment) + "Insert the COMMENT separated by blank lines." + (cal-tex-comment) + (cal-tex-comment) + (cal-tex-comment (concat "\t\t\t" comment)) + (cal-tex-comment)) + + +(defun cal-tex-nl (&optional skip comment) + "End a line with \\. If SKIP, then add that much spacing. + Add COMMENT if present" + (insert "\\\\") + (if skip + (insert "[" skip "]")) + (cal-tex-comment comment)) + +(defun cal-tex-arg (&optional text) + "Insert optional TEXT surrounded by braces." + (insert "{") + (if text (insert text)) + (insert "}")) + +(defun cal-tex-cmd (cmd &optional arg) + "Insert LaTeX CMD, with optional ARG, and end with %" + (insert cmd) + (cal-tex-arg arg) + (cal-tex-comment)) + +;;; +;;; Environments +;;; + +(defun cal-tex-b-document () + "Insert beginning of document." + (cal-tex-cmd "\\begin{document}")) + +(defun cal-tex-e-document () + "Insert end of document." + (cal-tex-cmd "\\end{document}")) + +(defun cal-tex-b-center () + "Insert beginning of centered block." + (cal-tex-cmd "\\begin{center}")) + +(defun cal-tex-e-center () + "Insert end of centered block." + (cal-tex-comment) + (cal-tex-cmd "\\end{center}")) + + +;;; +;;; Boxes +;;; + + +(defun cal-tex-b-parbox (position width) + "Insert parbox with parameters POSITION and WIDTH." + (insert "\\parbox[" position "]{" width "}{") + (cal-tex-comment)) + +(defun cal-tex-e-parbox (&optional height) + "Insert end of parbox. Force it to be a given HEIGHT." + (cal-tex-comment) + (if height + (cal-tex-rule "0mm" "0mm" height)) + (insert "}") + (cal-tex-comment "end parbox")) + +(defun cal-tex-b-framebox ( width position ) + "Insert framebox with parameters WIDTH and POSITION (clr)." + (insert "\\framebox[" width "][" position "]{" ) + (cal-tex-comment)) + +(defun cal-tex-e-framebox () + "Insert end of framebox." + (cal-tex-comment) + (insert "}") + (cal-tex-comment "end framebox")) + + +(defun cal-tex-b-makebox ( width position ) + "Insert makebox with parameters WIDTH and POSITION (clr)." + (insert "\\makebox[" width "][" position "]{" ) + (cal-tex-comment)) + +(defun cal-tex-e-makebox () + "Insert end of makebox." + (cal-tex-comment) + (insert "}") + (cal-tex-comment "end makebox")) + + +(defun cal-tex-rule (lower width height) + "Insert a rule with parameters LOWER WIDTH HEIGHT." + (insert "\\rule[" lower "]{" width "}{" height "}")) + +;;; +;;; Fonts +;;; + +(defun cal-tex-em (string) + "Insert STRING in bf font." + (insert "{\\em " string "}")) + +(defun cal-tex-bf (string) + "Insert STRING in bf font." + (insert "{\\bf " string "}")) + +(defun cal-tex-scriptsize (string) + "Insert STRING in scriptsize font." + (insert "{\\scriptsize " string "}")) + +(defun cal-tex-huge (string) + "Insert STRING in huge size." + (insert "{\\huge " string "}")) + +(defun cal-tex-Huge (string) + "Insert STRING in Huge size." + (insert "{\\Huge " string "}")) + +(defun cal-tex-Huge-bf (string) + "Insert STRING in Huge bf size." + (insert "{\\Huge\\bf " string "}")) + +(defun cal-tex-large (string) + "Insert STRING in large size." + (insert "{\\large " string "}")) + +(defun cal-tex-large-bf (string) + "Insert STRING in large bf size." + (insert "{\\large\\bf " string "}")) + +(provide 'cal-tex) + +;;; cal-tex.el ends here