--- /dev/null
+;;; 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
projects / emacs.git / commitdiff