;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\311\312\313\314\315DD\316\317\320\310\303&\210\311\321\313\314\322DD\323\317\324\310\303&\210\311\325\313\314\326DD\327\317\324\310\303&\210\311\330\313\314\331DD\332\317\324\310\303&\210\311\333\313\314\334DD\335\317\336\310\303&\210\311\337\313\314\340DD\341\317\342\310\303&\210\311\343\313\314\344DD\345\317\324\310\303&\210\311\346\313\314\347DD\350\317\351\310\303&\210\311\352\313\314\353DD\354\317\351\310\303&\210\311\355\313\314\356DD\357\317\360\310\303\361\362& \210\311\363\313\314\364DD\365\317\366\310\303&\210\311\367\313\314\370DD\371\317\366\310\303&\210\311\372\313\314\373DD\374\317\366\310\303&\210\311\375\313\314\376DD\377\317\366\310\303&\210\311\201@\313\314\201ADD\201B\317\366\310\303&\207" [require calendar custom-declare-group calendar-tex nil "Options for printing calendar with LaTeX." :prefix "cal-tex-" :group custom-declare-variable cal-tex-which-days funcall function #[0 "\300\207" [(0 1 2 3 4 5 6)] 1 #1=""] "The days of the week that are displayed on the portrait monthly calendar.\nSunday is 0, Monday is 1, and so on. The default is to print from Sunday to\nSaturday. For example, (1 3 5) prints only Monday, Wednesday, Friday." :type (repeat integer) cal-tex-holidays #[0 "\300\207" [t] 1 #1#] "Non-nil means holidays are printed in the LaTeX calendars that support it.\nSetting this to nil may speed up calendar generation." boolean cal-tex-diary #[0 "\300\207" [nil] 1 #1#] "Non-nil means diary entries are printed in LaTeX calendars that support it.\nSetting this to nil may speed up calendar generation." cal-tex-rules #[0 "\300\207" [nil] 1 #1#] "Non-nil means pages will be ruled in some LaTeX calendar styles.\nAt present, this only affects the daily filofax calendar." cal-tex-daily-string #[0 "\300\207" [(let* ((year (calendar-extract-year date)) (day (calendar-day-number date)) (days-remaining (- (calendar-day-number (list 12 31 year)) day))) (format "%d/%d" day days-remaining))] 1 #1#] "Lisp expression giving the date format to use in the LaTeX calendars.\nThis should be an expression involving the variable `date'. When\nthis expression is called, `date' is a list of the form `(MONTH DAY YEAR)'.\n\nThe string resulting from evaluating this expression is placed at\nthe bottom center of each date in monthly calendars, next to the\ndate in the weekly calendars, and in the top center of daily calendars.\n\nThe default is ordinal day number of the year and the number of\ndays remaining. As an example, setting this to\n\n (calendar-hebrew-date-string date)\n\nwill put the Hebrew date at the bottom of each day." sexp cal-tex-buffer #[0 "\300\207" ["calendar.tex"] 1 #1#] "The name for the output LaTeX calendar buffer." string cal-tex-24 #[0 "\300\207" [nil] 1 #1#] "Non-nil means use a 24 hour clock in the daily calendar." cal-tex-daily-start #[0 "\300\207" [8] 1 #1#] "The first hour of the daily LaTeX calendar page.\nAt present, this only affects `cal-tex-cursor-day'." integer cal-tex-daily-end #[0 "\300\207" [20] 1 #1#] "The last hour of the daily LaTeX calendar page.\nAt present, this only affects `cal-tex-cursor-day'." cal-tex-preamble-extra #[0 "\300\207" [nil] 1 #1#] "A string giving extra LaTeX commands to insert in the calendar preamble.\nFor example, to include extra packages:\n\"\\\\usepackage{foo}\\n\\\\usepackage{bar}\\n\"." (choice (const nil) (string :value "\\usepackage{foo}\n\\usepackage{bar}\n")) :version "22.1" cal-tex-hook #[0 "\300\207" [nil] 1 #1#] "List of functions called after any LaTeX calendar buffer is generated.\nYou can use this to do post-processing on the buffer. For example, to change\ncharacters with diacritical marks to their LaTeX equivalents, use\n (add-hook \\='cal-tex-hook\n (lambda () (iso-iso2tex (point-min) (point-max))))" hook cal-tex-year-hook #[0 "\300\207" [nil] 1 #1#] "List of functions called after a LaTeX year calendar buffer is generated." cal-tex-month-hook #[0 "\300\207" [nil] 1 #1#] "List of functions called after a LaTeX month calendar buffer is generated." cal-tex-week-hook #[0 "\300\207" [nil] 1 #1#] "List of functions called after a LaTeX week calendar buffer is generated." cal-tex-daily-hook #[0 "\300\207" [nil] 1 #1#] "List of functions called after a LaTeX daily calendar buffer is generated."] 10) #@100 The initial LaTeX code for a day. The holidays, diary entries, bottom string, and the text follow. (defconst cal-tex-day-prefix "\\caldate{%s}{%s}" (#$ . 4439)) #@95 The format for LaTeX code for a day name. The names are taken from `calendar-day-name-array'. (defconst cal-tex-day-name-format "\\myday{%s}%%" (#$ . 4606)) #@63 LaTeX code for the month header, for a single month calendar. (defconst cal-tex-cal-one-month "\\def\\calmonth#1#2%\n{\\begin{center}%\n\\Huge\\bf\\uppercase{#1} #2 \\\\[1cm]%\n\\end{center}}%\n\\vspace*{-1.5cm}%\n%\n" (#$ . 4769)) #@62 LaTeX code for the month header, for a multi-month calendar. (defconst cal-tex-cal-multi-month "\\def\\calmonth#1#2#3#4%\n{\\begin{center}%\n\\Huge\\bf #1 #2---#3 #4\\\\[1cm]%\n\\end{center}}%\n\\vspace*{-1.5cm}%\n%\n" (#$ . 5007)) #@31 LaTeX code for a day heading. (defconst cal-tex-myday "\\renewcommand{\\myday}[1]%\n{\\makebox[\\cellwidth]{\\hfill\\large\\bf#1\\hfill}}\n%\n" (#$ . 5245)) #@104 LaTeX code to insert one box with date info in calendar. This definition is the heart of the calendar! (defconst cal-tex-caldate "\\fboxsep=0pt\n\\long\\def\\caldate#1#2#3#4#5#6{%\n \\fbox{\\hbox to\\cellwidth{%\n \\vbox to\\cellheight{%\n \\hbox to\\cellwidth{%\n {\\hspace*{1mm}\\Large \\bf \\strut #2}\\hspace{.05\\cellwidth}%\n \\raisebox{\\holidaymult\\cellheight}%\n {\\parbox[t]{.75\\cellwidth}{\\tiny \\raggedright #4}}}\n \\hbox to\\cellwidth{%\n \\hspace*{1mm}\\parbox{.95\\cellwidth}{\\tiny \\raggedright #3}}\n \\hspace*{1mm}%\n \\hbox to\\cellwidth{#6}%\n \\vfill%\n \\hbox to\\cellwidth{\\hfill \\tiny #5 \\hfill}%\n \\vskip 1.4pt}%\n \\hskip -0.4pt}}}\n" (#$ . 5409)) #@29 LaTeX code for left header. (defconst cal-tex-lefthead "\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}\n" (#$ . 6197)) #@30 LaTeX code for right header. (defconst cal-tex-righthead "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}\n" (#$ . 6345)) (byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload holiday-in-range "holidays" diary-list-entries "diary-lib"] 3) #@79 Generate a list of all diary-entries from absolute date D1 to D2. (fn D1 D2) (defalias 'cal-tex-list-diary-entries #[514 "\301\302\303!ZT\304#)\207" [diary-list-include-blanks nil diary-list-entries calendar-gregorian-from-absolute t] 6 (#$ . 6609)]) #@579 Insert the LaTeX calendar preamble into `cal-tex-buffer'. Preamble includes initial definitions for various LaTeX commands. Optional string ARGS are included as options for the article document class with inclusion of default values "12pt" for size, and "a4paper" for paper unless size or paper are already specified in ARGS. When ARGS is omitted, by default the option "12pt,a4paper" is passed. When ARGS has any other value, then no option is passed to the class. Insert the "\usepackage{geometry}" directive when ARGS contains the "landscape" string. (fn &optional ARGS) (defalias 'cal-tex-preamble #[256 "\302!q\210\303 \304\305\"\216\306\307;\203K\310\311\"\204\312P\262\310\313\"\204+\314P\262\315\316O\317\230\203:\316\320O\262\321\230\203D\321\202T\306\322\"\202T\204S\323\202T\321\"c\210;\203f\310\324\"\203f\325c\210)\210 ;\203r \326\261\210\327c\207" [cal-tex-buffer cal-tex-preamble-extra generate-new-buffer match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] format "\\documentclass%s{article}\n" string-match "\\(^\\|,\\) *[0-9]+pt *\\(,\\|$\\)" ",12pt" "\\(^\\|,\\) *\\([ab][4-5]\\|le\\(tter\\|gal\\)\\|executive\\)paper *\\(,\\|$\\)" ",a4paper" 0 1 "," nil "" "[%s]" "[12pt]" "\\" "\\usepackage{geometry}\n" "\n" "\\hbadness 20000\n\\hfuzz=1000pt\n\\vbadness 20000\n\\lineskip 0pt\n\\marginparwidth 0pt\n\\oddsidemargin -2cm\n\\evensidemargin -2cm\n\\marginparsep 0pt\n\\topmargin 0pt\n\\textwidth 7.5in\n\\textheight 9.5in\n\\newlength{\\cellwidth}\n\\newlength{\\cellheight}\n\\newlength{\\boxwidth}\n\\newlength{\\boxheight}\n\\newlength{\\cellsize}\n\\newcommand{\\myday}[1]{}\n\\newcommand{\\caldate}[6]{}\n\\newcommand{\\nocaldate}[6]{}\n\\newcommand{\\calsmall}[6]{}\n%\n"] 7 (#$ . 6872)]) #@208 Make a buffer with LaTeX commands for the year cursor is on. Optional prefix argument N specifies number of years. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-year #[512 "\300\301\302\"\3038\262\206\304\"\207" [cal-tex-year calendar-cursor-to-date t 2 1] 6 (#$ . 8688) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@208 Make a buffer with LaTeX commands for the year cursor is on. Optional prefix argument N specifies number of years. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-year-landscape #[512 "\300\301\302\"\3038\262\206\304\302#\207" [cal-tex-year calendar-cursor-to-date t 2 1] 6 (#$ . 9136) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@269 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 non-nil, in which case the calendar is printed in landscape mode with three rows of four months each. (fn YEAR N &optional LANDSCAPE) (defalias 'cal-tex-year #[770 "\300\301\205\302\"\210\211\203\303\304!\210\202\303\305!\210\306\211W\203\252\307c\210\310 \210\311\312!!\210\313 \210\303\314!\210\310 \210\315\316\203?\317\202@\320\"\210\321c\210\322 \210\323 \210\306\211\324W\203\201\325T\326\327\330%c\210\331c\210\332\333!\210\334T\203o\335\202p\336\"\306U\203z\323\333!\210\211T\262\202L\210\337 \210\313 \210\307c\210T\262\211SU\203\234\340 \210\202\237\341 \210\342\343!\210\211T\262\202\210\342\344!\207" [cal-tex-insert-preamble 1 "landscape" cal-tex-vspace "-.6cm" "-3.1cm" 0 "\\vfill%\n" cal-tex-b-center cal-tex-Huge number-to-string cal-tex-e-center "1cm" cal-tex-b-parbox "l" "5.9in" "4.3in" "\n" cal-tex-noindent cal-tex-nl 12 cal-tex-mini-calendar "month" "1.1in" "1in" "\\month" cal-tex-hspace "0.5in" mod 4 3 cal-tex-e-parbox cal-tex-end-document cal-tex-newpage run-hooks cal-tex-year-hook cal-tex-hook] 11 (#$ . 9597)]) #@74 Insert some page size settings for filofax layouts. (fn &optional YEAR) (defalias 'cal-tex-filofax-paper #[256 "\300c\210\211\203 \301\202\f\302c\207" ["\\textwidth 3.25in\n\\textheight 6.5in\n\\headheight -0.875in\n\\topmargin 0pt\n" "\\oddsidemargin 1.675in\n\\evensidemargin 1.675in\n" "\\oddsidemargin 1.75in\n\\evensidemargin 1.5in\n\\headsep 0.125in\n\\footskip 0.125in\n"] 2 (#$ . 10809)]) #@66 Insert LaTeX code for a long day function. (fn FUNCNAME HEIGHT) (defalias 'cal-tex-longday #[514 "\300\301\302\303\230\203\304\202\305\306\303\230\203\307\202\310\311\261 \207" ["\\long\\def\\" "#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to " "{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{" "leftday" "\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}%\n" "\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%\n" " \\hbox to \\textwidth{\\vbox {\\" "noindent" "raggedleft" " \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n"] 11 (#$ . 11215)]) #@60 Insert LaTeX code for a short day function. (fn FUNCNAME) (defalias 'cal-tex-shortday #[257 "\300\301\302\230\203 \303\202\304\305\261\207" ["\\long\\def\\" "#1#2#3{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox {%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\hfill \\small #3 \\hfill}%\n \\hbox to \\textwidth{\\vbox {\\" "rightday" "raggedleft" "noindent" " \\em #2}}%\n \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize #1}}}}}\n"] 6 (#$ . 11908)]) #@216 Make a Filofax one page yearly calendar of year indicated by cursor. Optional prefix argument N specifies number of years. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-filofax-year #[512 "\204\300\262\301\302\"\3038\262\304\305!\210\306\307!\210\310\311!\210\310\312\313\"\210\314 \210\315\316!\210\317\211W\203\222\320\321\"c\210\322 \210\323\324\325\"\210\326c\210\327 \210\330 \210\331\317\211\332W\203d\333TH\334\335\336\337&c\210\211T\262\202H\266\340c\210\341 \210\342 \210T\262\211SU\203\200\343 \210\202\207\344 \210\315\316!\210\345\346!\210\211T\262\202)\210\345\347!\207" [1 calendar-cursor-to-date t 2 cal-tex-preamble "twoside" cal-tex-filofax-paper year cal-tex-cmd "\\fboxsep 0.5mm" "\\pagestyle" "empty" cal-tex-b-document cal-tex-vspace "0.25in" 0 format "\\hfil \\textbf{\\Large %s} \\hfil\\\\\n" cal-tex-b-center cal-tex-b-parbox "l" "\\textwidth" "\n" cal-tex-noindent cal-tex-nl ["January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December"] 12 cal-tex-mini-calendar "1in" ".9in" "tiny" "0.6mm" "\\noindent\\fbox{\\January}\\fbox{\\February}\\fbox{\\March}\\\\\n\\noindent\\fbox{\\April}\\fbox{\\May}\\fbox{\\June}\\\\\n\\noindent\\fbox{\\July}\\fbox{\\August}\\fbox{\\September}\\\\\n\\noindent\\fbox{\\October}\\fbox{\\November}\\fbox{\\December}\n" cal-tex-e-parbox cal-tex-e-center cal-tex-end-document cal-tex-newpage run-hooks cal-tex-year-hook cal-tex-hook] 14 (#$ . 12447) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@399 Make a LaTeX calendar buffer for the month the cursor is on. Optional prefix argument N specifies number of months to be produced (default 1). The output is in landscape format, one month to a page. It shows holiday and diary entries if `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-month-landscape #[512 "\204\306\262\307\310\"\211\211@\262\3118\262\312\306E\211\3118\262\313\314U\2033\315\316!\266\203\202q\314V\203\251S\262\317\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\224\211\321\322_\\\323\245Z\262\211\314W\203u\324!S\262\211\322\246\314U\205\213\211\325\246\314U?\206\213\211\326\246\314U\262\203\224\211T\262\266\204\327_\322\245\325\245[\326\245%\266\203\202q\324T!\262\330\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\211\321\322_\\\323\245Z\262\211\314W\203\347\324!S\262\211\322\246\314U\205\375\211\325\246\314U?\206\375\211\326\246\314U\262\203\211T\262\266\204\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3118\262\320S_\\\311V\203k\211\321\322_\\\323\245Z\262\211\314W\203L\324!S\262\211\322\246\314U\205b\211\325\246\314U?\206b\211\326\246\314U\262\203k\211T\262\266\204&\266\203\313\314W\203|T\262\317\332_\333\fS$\262\334\332\"T\262\211\332\245\262\211\314W\203\245\306V\203\245S\262\306W\203\257S\262\210\211\311U\203\347\211\211\314W\203\306\324!S\262\211\322\246\314U\205\334\211\325\246\314U?\206\334\211\326\246\314U\262\203\347\266\335\202\355\336SH\266\202E\211\3118\262\313\314U\203\315\316!\266\203\202B\314V\203zS\262\317\211\211@\262\211A@\262\3118\262\320S_\\\311V\203e\211\321\322_\\\323\245Z\262\211\314W\203F\324!S\262\211\322\246\314U\205\\\211\325\246\314U?\206\\\211\326\246\314U\262\203e\211T\262\266\204\327_\322\245\325\245[\326\245%\266\203\202B\324T!\262\330\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\327\211\321\322_\\\323\245Z\262\211\314W\203\270\324!S\262\211\322\246\314U\205\316\211\325\246\314U?\206\316\211\326\246\314U\262\203\327\211T\262\266\204\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3118\262\320S_\\\311V\203<\211\321\322_\\\323\245Z\262\211\314W\203\324!S\262\211\322\246\314U\2053\211\325\246\314U?\2063\211\326\246\314U\262\203<\211T\262\266\204&\266\203 \205J\337\"\n\205R\340\"\313\211\211\341\342\f\f\306#\343\"\210\344 !\210\314\211W\203  \262\n\262\313\314W\203T\262\317\332_\333\211$\262\334\332\"T\262\211\332\245\262\211\314W\203\246\306V\203\246S\262\306W\203\260S\262\210\345\346\347\350%c\210\313\314W\203\305T\262\317\332_\333\311$\262\334\332\"T\262\211\332\245\262\211\314W\203\354\306V\203\354S\262\306W\203\366S\262\210\345\351\347\350%c\210\352\306  %\210\353 \210\354\355!\210\306\334\356\306E!\fZ\357\"W\211\262\203+\360c\210\361\f\f #\210\362\f\f %\210\363\f\f #\210\204\237\306\334\fS\356\211\311U\203\211\211\211\314W\203h\324!S\262\211\322\246\314U\205~\211\325\246\314U?\206~\211\326\246\314U\262\203\211\266\335\202\217\336SH\266\202E!Z\357\"W\203\237\364\365\261\210\211SU\204\366\367!\210\370 \210\313 \314W\203\273 T\262\f\317\f\332_\333\306$\262\334\332\"T\262 \211\332\245\262\f\211\314W\203\345\f\306V\203\345 S\262\f \306W\203\361 S\262\f\210\371\372!\210\341\342  \306#\343\310#\210\211T\262\202e\210)\266\f\373 \210\366\374!\207" [cal-tex-which-days cal-tex-diary cal-tex-holidays cal-tex-cal-one-month calendar-week-start-day cal-tex-day-prefix 1 calendar-cursor-to-date t 2 (0 1 2 3 4 5 6) nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 12 -1 mod 29 [31 28 31 30 31 30 31 31 30 31 30 31] cal-tex-list-diary-entries holiday-in-range cal-tex-insert-preamble cal-tex-number-weeks "landscape" cal-tex-cmd cal-tex-mini-calendar "lastmonth" "\\cellwidth" "\\cellheight" "nextmonth" cal-tex-insert-month-header cal-tex-insert-day-names cal-tex-nl ".2cm" calendar-day-of-week 7 "\\lastmonth\\nextmonth\\hspace*{-2\\cellwidth}" cal-tex-insert-blank-days cal-tex-insert-days cal-tex-insert-blank-days-at-end "\\vspace*{-\\cellwidth}\\hspace*{-2\\cellwidth}" "\\lastmonth\\nextmonth%\n" run-hooks cal-tex-month-hook cal-tex-newpage cal-tex-vspace "-2cm" cal-tex-end-document cal-tex-hook] 26 (#$ . 14096) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@384 Make a LaTeX calendar buffer for the month the cursor is on. Optional prefix argument N specifies number of months to be produced (default 1). The calendar is condensed onto one page. It shows holiday and diary entries if `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-month #[512 "\204\305\262\306\307\"\211\211@\262\3108\262\305E\211\3108\262\311\312U\2031\313\314!\266\203\202o\312V\203\247S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\222\211\317\320_\\\321\245Z\262\211\312W\203s\322!S\262\211\320\246\312U\205\211\211\323\246\312U?\206\211\211\324\246\312U\262\203\222\211T\262\266\204\325_\320\245\323\245[\324\245%\266\203\202o\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\211\317\320_\\\321\245Z\262\211\312W\203\345\322!S\262\211\320\246\312U\205\373\211\323\246\312U?\206\373\211\324\246\312U\262\203\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203i\211\317\320_\\\321\245Z\262\211\312W\203J\322!S\262\211\320\246\312U\205`\211\323\246\312U?\206`\211\324\246\312U\262\203i\211T\262\266\204&\266\203\311\312W\203zT\262\315\330_\331\fS$\262\332\330\"T\262\211\330\245\262\211\312W\203\243\305V\203\243S\262\305W\203\255S\262\210\211\310U\203\345\211\211\312W\203\304\322!S\262\211\320\246\312U\205\332\211\323\246\312U?\206\332\211\324\246\312U\262\203\345\266\333\202\353\334SH\266\202E\211\3108\262\311\312U\203\313\314!\266\203\202@\312V\203xS\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203c\211\317\320_\\\321\245Z\262\211\312W\203D\322!S\262\211\320\246\312U\205Z\211\323\246\312U?\206Z\211\324\246\312U\262\203c\211T\262\266\204\325_\320\245\323\245[\324\245%\266\203\202@\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\325\211\317\320_\\\321\245Z\262\211\312W\203\266\322!S\262\211\320\246\312U\205\314\211\323\246\312U?\206\314\211\324\246\312U\262\203\325\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203:\211\317\320_\\\321\245Z\262\211\312W\203\322!S\262\211\320\246\312U\2051\211\323\246\312U?\2061\211\324\246\312U\262\203:\211T\262\266\204&\266\203\205H\335\" \205P\336\"\337\340  #!\210\n\305V\203i\341\n!\210\202m\341 !\210\342     %\210\343 \210\344\345!\210\346\f#\210\312\211\fW\203:\311\347\n\n\f%\210\350 \351 \211\f\310U\203\332\211\211\312W\203\271\322!S\262\211\320\246\312U\205\317\211\323\246\312U?\206\317\211\324\246\312U\262\203\332\266\333\202\340\334SH\266\202\fE!U\203\356\352 \210\344 \210\311 \312W\203\373 T\262\n\315\n\330_\f\331\305$\262\332\330\"T\262 \211\330\245\262\n\211\312W\203%\n\305V\203% S\262\n \305W\2031 S\262\n\266\211T\262\202\212\210\353\f#\266\n\354 \210\355\356!\207" [cal-tex-diary cal-tex-holidays cal-tex-cal-multi-month cal-tex-cal-one-month cal-tex-day-prefix 1 calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 12 -1 mod 29 [31 28 31 30 31 30 31 31 30 31 30 31] cal-tex-list-diary-entries holiday-in-range cal-tex-insert-preamble cal-tex-number-weeks cal-tex-cmd cal-tex-insert-month-header cal-tex-insert-day-names cal-tex-nl ".2cm" cal-tex-insert-blank-days cal-tex-insert-days calendar-week-end-day calendar-day-of-week cal-tex-hfill cal-tex-insert-blank-days-at-end cal-tex-end-document run-hooks cal-tex-hook] 26 (#$ . 18769) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@302 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. (fn MONTH YEAR DIARY-LIST HOLIDAYS DAY-FORMAT) (defalias 'cal-tex-insert-days #[1285 "\304\305\306E!Z\307\"\310U\203C\211\211\311W\203\"\312!S\262\211\313\246\311U\2058\211\314\246\311U?\2068\211\315\246\311U\262\203C\266\316\202I\317SH\266\202\320\211\311\211W\205\256\211T\262 \nE\305 !\n>\203\217\321\322\f!#c\210\323\324 \"!\210\323\324 \"!\210\323\325 \326\"!\210\323 \210\327 \210\304\\\307\"\311U\203\247U\204\247\330 \210\331 \210\211T\262\202N\262)\207" [calendar-week-start-day date cal-tex-which-days cal-tex-daily-string mod calendar-day-of-week 1 7 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] nil format cal-tex-month-name cal-tex-arg cal-tex-latexify-list eval t cal-tex-comment cal-tex-hfill cal-tex-nl] 14 (#$ . 22630)]) #@60 Insert the names of the days at top of a monthly calendar. (defalias 'cal-tex-insert-day-names #[0 "\304\305\211\306W\205*\307\\\306\"\211\262 >\203 \310\n\311 H!\"c\210\312 \210\211T\262\202\207" [calendar-week-start-day cal-tex-which-days cal-tex-day-name-format calendar-day-name-array nil 0 7 mod format cal-tex-LaTeXify-string cal-tex-comment] 7 (#$ . 23689)]) #@180 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. (fn N MONTH YEAR END-MONTH END-YEAR) (defalias 'cal-tex-insert-month-header #[1285 "\300!\300!\301U\203\302\303#c\266\202%\302\304%c\266\305 \207" [cal-tex-month-name 1 format "\\calmonth{%s}{%s}\n\\vspace*{-0.5cm}" "\\calmonth{%s}{%s}{%s}{%s}\n\\vspace*{-0.5cm}" cal-tex-comment] 13 (#$ . 24071)]) #@245 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. (fn MONTH YEAR DAY-FORMAT) (defalias 'cal-tex-insert-blank-days #[771 "\302\"\2058\303\304\305E!Z\306\"\307\211W\2054\303\\\306\" >\203-\310\311\211#\312\261\210\211T\262\202\262\262\207" [calendar-week-start-day cal-tex-which-days cal-tex-first-blank-p mod calendar-day-of-week 1 7 0 format " " "{}{}{}{}%\n"] 9 (#$ . 24537)]) #@184 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. (fn MONTH YEAR DAY-FORMAT) (defalias 'cal-tex-insert-blank-days-at-end #[771 "\302\"\205s\303U\203=\211\211\304W\203\305!S\262\211\306\246\304U\2052\211\307\246\304U?\2062\211\310\246\304U\262\203=\266\311\202C\312SH\266\202\313\314E!Z\315\"\211\211T\211\262\316X\205q\313\\\315\" >\203P\317\320\211#\321\261\210\202P\266\203\207" [calendar-week-start-day cal-tex-which-days cal-tex-last-blank-p 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] mod calendar-day-of-week 7 6 format "" "{}{}{}{}%\n"] 10 (#$ . 25107)]) #@182 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. (fn MONTH YEAR) (defalias 'cal-tex-first-blank-p #[514 "\3012;\302\303\211\304W\2056\305TE!\211\262>\203#\306\301\307\"\210\202/\310 U\203/\306\301\302\"\210\211T\262\202\262\2620\207" [cal-tex-which-days found nil 0 7 calendar-day-of-week throw t calendar-week-end-day] 8 (#$ . 25828)]) #@180 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. (fn MONTH YEAR) (defalias 'cal-tex-last-blank-p #[514 "\3022x\303U\203:\211\211\304W\203\305!S\262\211\306\246\304U\205/\211\307\246\304U?\206/\211\310\246\304U\262\203:\266\311\202@\312SH\266\202\313\304\211\314W\205s\315ZE!\211\262>\203a\316\302\317\"\210\202l U\203l\316\302\313\"\210\211T\262\202B\262\266\2020\207" [cal-tex-which-days calendar-week-start-day found 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] nil 7 calendar-day-of-week throw t] 9 (#$ . 26304)]) #@250 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. (fn MONTH YEAR N) (defalias 'cal-tex-number-weeks #[771 "\301E\302\303W\203T\262\304\305_\306S$\262\307\305\"T\262\211\305\245\262\211\303W\2038\301V\2038S\262\301W\203BS\262\210\310\311\211\312U\203\211\211\303W\203^\313!S\262\211\314\246\303U\205t\211\315\246\303U?\206t\211\316\246\303U\262\203\266\317\202\205\320SH\266\202E\211\3128\262\302\303U\203\235\321\322!\266\203\202\333\303V\203S\262\304\211\211@\262\211A@\262\3128\262\323S_\\\312V\203\376\211\324\314_\\\325\245Z\262\211\303W\203\337\313!S\262\211\314\246\303U\205\365\211\315\246\303U?\206\365\211\316\246\303U\262\203\376\211T\262\266\204\326_\314\245\315\245[\316\245%\266\203\202\333\313T!\262\327\211\211@\262\211A@\262\3128\262\323S_\\\312V\203p\211\324\314_\\\325\245Z\262\211\303W\203Q\313!S\262\211\314\246\303U\205g\211\315\246\303U?\206g\211\316\246\303U\262\203p\211T\262\266\204\326_\314\245\315\245[\316\245\330\211\211@\262\211A@\262\3128\262\323S_\\\312V\203\325\211\324\314_\\\325\245Z\262\211\303W\203\266\313!S\262\211\314\246\303U\205\314\211\315\246\303U?\206\314\211\316\246\303U\262\203\325\211T\262\266\204&\266\203\\\"\310\211\3128\262\302\303U\203\365\321\322!\266\203\2023\303V\203kS\262\304\211\211@\262\211A@\262\3128\262\323S_\\\312V\203V\211\324\314_\\\325\245Z\262\211\303W\2037\313!S\262\211\314\246\303U\205M\211\315\246\303U?\206M\211\316\246\303U\262\203V\211T\262\266\204\326_\314\245\315\245[\316\245%\266\203\2023\313T!\262\327\211\211@\262\211A@\262\3128\262\323S_\\\312V\203\310\211\324\314_\\\325\245Z\262\211\303W\203\251\313!S\262\211\314\246\303U\205\277\211\315\246\303U?\206\277\211\316\246\303U\262\203\310\211T\262\266\204\326_\314\245\315\245[\316\245\330\211\211@\262\211A@\262\3128\262\323S_\\\312V\203-\211\324\314_\\\325\245Z\262\211\303W\203\313!S\262\211\314\246\303U\205$\211\315\246\303U?\206$\211\316\246\303U\262\203-\211T\262\266\204&\266\203\"Z\311\245\207" [calendar-week-start-day 1 nil 0 + 12 -1 mod calendar-dayname-on-or-before 7 2 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] user-error "There was no year zero" 31 23 10 365 - (12 31 -1)] 25 (#$ . 26987)]) #@35 One hour and a line on the right. (defconst cal-tex-LaTeX-hourbox "\\newcommand{\\hourbox}[2]%\n{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" (#$ . 29553)) #@78 Insert some page size settings for weekly layouts. (fn &optional NOMARGINS) (defalias 'cal-tex-weekly-paper #[256 "\300c\210\211\206 \301c\207" ["\\textwidth 6.5in\n\\textheight 10.5in\n" "\\oddsidemargin 0in\n\\evensidemargin 0in\n"] 2 (#$ . 29728)]) #@445 Make a one page LaTeX calendar for one week, showing hours of the day. There are two columns; with 8-12am in the first and 1-5pm in the second. It shows holidays if `cal-tex-holidays' is non-nil. It does not show diary entries. The optional prefix argument N specifies a number of weeks (default 1). By default, the calendar is for the week at point; the optional argument EVENT specifies a different buffer position. (fn &optional N EVENT) (defalias 'cal-tex-cursor-week #[512 "\204\303\262\304\305\306\307\"\211\3108\262\311\312U\203#\313\314!\266\203\202a\312V\203\231S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\204\211\317\320_\\\321\245Z\262\211\312W\203e\322!S\262\211\320\246\312U\205{\211\323\246\312U?\206{\211\324\246\312U\262\203\204\211T\262\266\204\325_\320\245\323\245[\324\245%\266\203\202a\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\366\211\317\320_\\\321\245Z\262\211\312W\203\327\322!S\262\211\320\246\312U\205\355\211\323\246\312U?\206\355\211\324\246\312U\262\203\366\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203[\211\317\320_\\\321\245Z\262\211\312W\203<\322!S\262\211\320\246\312U\205R\211\323\246\312U?\206R\211\324\246\312U\262\203[\211T\262\266\204&\266\203\"!\211\211@\262\3108\262\211\3108\262\311\312U\203\204\313\314!\266\203\202\302\312V\203\372S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\345\211\317\320_\\\321\245Z\262\211\312W\203\306\322!S\262\211\320\246\312U\205\334\211\323\246\312U?\206\334\211\324\246\312U\262\203\345\211T\262\266\204\325_\320\245\323\245[\324\245%\266\203\202\302\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203W\211\317\320_\\\321\245Z\262\211\312W\2038\322!S\262\211\320\246\312U\205N\211\323\246\312U?\206N\211\324\246\312U\262\203W\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\274\211\317\320_\\\321\245Z\262\211\312W\203\235\322!S\262\211\320\246\312U\205\263\211\323\246\312U?\206\263\211\324\246\312U\262\203\274\211T\262\266\204&\266\203\330_\\ \205\320\331\"\332\333!\210\334 \210\nc\210\335 \210\336\337\340\"\210\312\211 W\203^\341\342!\210\343 \210\344\345\346\347 !\"!\210\350\351!\210\344\352!!\210\353\354!\210\355 \210\350\356!\210\357\360\361\"\210\312\211\330W\2033\311\362 \363#\210\364 !\262 \210\211T\262\202\210\365 \210\211@\262\262\3108\262\262\211 SU\204W\366\367!\210\370 \210\211T\262\202\343\210\371 \210\366\372!\207" [calendar-week-start-day cal-tex-holidays cal-tex-LaTeX-hourbox 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 holiday-in-range cal-tex-preamble "11pt" cal-tex-weekly-paper cal-tex-b-document cal-tex-cmd "\\pagestyle" "empty" cal-tex-vspace "-1.5in" cal-tex-b-center cal-tex-Huge-bf format "\\uppercase{%s}" cal-tex-month-name cal-tex-hspace "2em" number-to-string cal-tex-nl ".5cm" cal-tex-e-center "-.2in" cal-tex-b-parbox "l" "7in" cal-tex-week-hours "3.1" cal-tex-incr-date cal-tex-e-parbox run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-hook] 23 (#$ . 29989) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@445 Make a two page LaTeX calendar for one week, showing hours of the day. There are two columns; with 8-12am in the first and 1-5pm in the second. It shows holidays if `cal-tex-holidays' is non-nil. It does not show diary entries. The optional prefix argument N specifies a number of weeks (default 1). By default, the calendar is for the week at point; the optional argument EVENT specifies a different buffer position. (fn &optional N EVENT) (defalias 'cal-tex-cursor-week2 #[512 "\204\303\262\304\305\306\307\"\211\3108\262\311\312U\203#\313\314!\266\203\202a\312V\203\231S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\204\211\317\320_\\\321\245Z\262\211\312W\203e\322!S\262\211\320\246\312U\205{\211\323\246\312U?\206{\211\324\246\312U\262\203\204\211T\262\266\204\325_\320\245\323\245[\324\245%\266\203\202a\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\366\211\317\320_\\\321\245Z\262\211\312W\203\327\322!S\262\211\320\246\312U\205\355\211\323\246\312U?\206\355\211\324\246\312U\262\203\366\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203[\211\317\320_\\\321\245Z\262\211\312W\203<\322!S\262\211\320\246\312U\205R\211\323\246\312U?\206R\211\324\246\312U\262\203[\211T\262\266\204&\266\203\"!\211\211@\262\3108\262\211\3108\262\311\312U\203\204\313\314!\266\203\202\302\312V\203\372S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\345\211\317\320_\\\321\245Z\262\211\312W\203\306\322!S\262\211\320\246\312U\205\334\211\323\246\312U?\206\334\211\324\246\312U\262\203\345\211T\262\266\204\325_\320\245\323\245[\324\245%\266\203\202\302\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203W\211\317\320_\\\321\245Z\262\211\312W\2038\322!S\262\211\320\246\312U\205N\211\323\246\312U?\206N\211\324\246\312U\262\203W\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\274\211\317\320_\\\321\245Z\262\211\312W\203\235\322!S\262\211\320\246\312U\205\263\211\323\246\312U?\206\263\211\324\246\312U\262\203\274\211T\262\266\204&\266\203\330_\\ \205\320\331\"\332\333!\210\334 \210\nc\210\335 \210\336\337\340\"\210\312\211 W\203\377\341\342!\210\343 \210\344\345\346\347 !\"!\210\350\351!\210\344\352!!\210\353\354!\210\355 \210\350\356!\210\357\360\361\"\210\312\211\362W\2033\311\363 \364#\210\365 !\262 \210\211T\262\202\210\366 \210\353 \210\367\370!\211@\262\370 !\3108\262\371\372\373%c\210\367\211@\262\3108\262\374\372\373%c\210\367\375!\211@\262\375 !\3108\262\376\372\373%c\210\377c\210\201@ \210\201Ac\210\201@ \210\201Bc\210\201@ \210\201Cc\210\201@ \210\201Dc\210\353 \210\357\360\361\"\210\312\211\320W\203\316\311\363 \364#\210\365 !\262 \210\211T\262\202\262\210\366 \210\211@\262\262\3108\262\262\211 SU\204\370\201E\201F!\210\201G \210\211T\262\202\343\210\201H \210\201E\201I!\207" [calendar-week-start-day cal-tex-holidays cal-tex-LaTeX-hourbox 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 holiday-in-range cal-tex-preamble "12pt" cal-tex-weekly-paper cal-tex-b-document cal-tex-cmd "\\pagestyle" "empty" cal-tex-vspace "-1.5in" cal-tex-b-center cal-tex-Huge-bf format "\\uppercase{%s}" cal-tex-month-name cal-tex-hspace "2em" number-to-string cal-tex-nl ".5cm" cal-tex-e-center "-.2in" cal-tex-b-parbox "l" "\\textwidth" 3 cal-tex-week-hours "5" cal-tex-incr-date cal-tex-e-parbox cal-tex-mini-calendar cal-tex-previous-month "lastmonth" "1.1in" "1in" "thismonth" cal-tex-next-month "nextmonth" "\\hbox to \\textwidth{" cal-tex-hfill "\\lastmonth" "\\thismonth" "\\nextmonth" "}" run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-hook] 23 (#$ . 33513) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) (autoload 'calendar-iso-from-absolute "cal-iso") #@421 Make a one page LaTeX calendar for one week, in the ISO-style. It does not show hours of the day. It shows holidays if `cal-tex-holidays' is non-nil. It shows diary entries if `cal-tex-diary' is non-nil. The optional prefix argument N specifies a number of weeks (default 1). By default, the calendar is for the week at point; the optional argument EVENT specifies a different buffer position. (fn &optional N EVENT) (defalias 'cal-tex-cursor-week-iso #[512 "\204\304\262\305\306\304\307\310\"\211\3118\262\312\313U\203#\314\315!\266\203\202a\313V\203\231S\262\316\211\211@\262\211A@\262\3118\262\317S_\\\311V\203\204\211\320\321_\\\322\245Z\262\211\313W\203e\323!S\262\211\321\246\313U\205{\211\324\246\313U?\206{\211\325\246\313U\262\203\204\211T\262\266\204\326_\321\245\324\245[\325\245%\266\203\202a\323T!\262\327\211\211@\262\211A@\262\3118\262\317S_\\\311V\203\366\211\320\321_\\\322\245Z\262\211\313W\203\327\323!S\262\211\321\246\313U\205\355\211\324\246\313U?\206\355\211\325\246\313U\262\203\366\211T\262\266\204\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3118\262\317S_\\\311V\203[\211\320\321_\\\322\245Z\262\211\313W\203<\323!S\262\211\321\246\313U\205R\211\324\246\313U?\206R\211\325\246\313U\262\203[\211T\262\266\204&\266\203\"!\211\211@\262\211A@\262\211\3118\262\312\313U\203\205\314\315!\266\203\202\303\313V\203\373S\262\316\211\211@\262\211A@\262\3118\262\317S_\\\311V\203\346\211\320\321_\\\322\245Z\262\211\313W\203\307\323!S\262\211\321\246\313U\205\335\211\324\246\313U?\206\335\211\325\246\313U\262\203\346\211T\262\266\204\326_\321\245\324\245[\325\245%\266\203\202\303\323T!\262\327\211\211@\262\211A@\262\3118\262\317S_\\\311V\203X\211\320\321_\\\322\245Z\262\211\313W\2039\323!S\262\211\321\246\313U\205O\211\324\246\313U?\206O\211\325\246\313U\262\203X\211T\262\266\204\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3118\262\317S_\\\311V\203\275\211\320\321_\\\322\245Z\262\211\313W\203\236\323!S\262\211\321\246\313U\205\264\211\324\246\313U?\206\264\211\325\246\313U\262\203\275\211T\262\266\204&\266\203\331_\\ \205\320\332\"\n\205\330\333\"\312\334\335!\210\336 \210\337 \210\340\341\342\"\210\313\211\nW\203V\343\344!\210\345 \210\346\347\211\3118\262\312\313U\203\314\315!\266\203\202M\313V\203\205S\262\316\211\211@\262\211A@\262\3118\262\317S_\\\311V\203p\211\320\321_\\\322\245Z\262\211\313W\203Q\323!S\262\211\321\246\313U\205g\211\324\246\313U?\206g\211\325\246\313U\262\203p\211T\262\266\204\326_\321\245\324\245[\325\245%\266\203\202M\323T!\262\327\211\211@\262\211A@\262\3118\262\317S_\\\311V\203\342\211\320\321_\\\322\245Z\262\211\313W\203\303\323!S\262\211\321\246\313U\205\331\211\324\246\313U?\206\331\211\325\246\313U\262\203\342\211T\262\266\204\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3118\262\317S_\\\311V\203G\211\320\321_\\\322\245Z\262\211\313W\203(\323!S\262\211\321\246\313U\205>\211\324\246\313U?\206>\211\325\246\313U\262\203G\211T\262\266\204&\266\203!\350\351\211@\262\3118\262#\262!\210\352\353!\210\354 \210\355\356\357\"\210\313\211\331W\2034\312\355\360\357\"\210\355\360\357\"\210\361\362\357\363#\210\352 \210\355\360\357\"\210\364\365\366!!!\210\367c\210\364\370 !!\210\371c\210\364\372\n!!\210\373\374#\211\262\375\230\204\275\376c\210\364!\210\377 \210\201@\201A \310\"\261\210\201B \210\352 \210\201C \210\355\360\357\"\210\373\"\211\262\375\230\204\370\201Dc\210\364!\210\201Ec\210\201B \210\352 \210\201F!\211\211@\262\262\n\211A@\262\262 \201B \210\201B\201G!\210\352 \210\211@\262\262\n\210\211T\262\202m\210\201B \210\211\nSU\204O\201H\201I!\210\201J \210\211T\262\202\351\210\201K \210\201H\201L!)\207" [date cal-tex-holidays cal-tex-diary cal-tex-daily-string 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 holiday-in-range cal-tex-list-diary-entries cal-tex-preamble "11pt" cal-tex-weekly-paper cal-tex-b-document cal-tex-cmd "\\pagestyle" "empty" cal-tex-vspace "-1.5in" cal-tex-b-center cal-tex-Huge-bf calendar-iso-from-absolute format "Week %d of %d" cal-tex-nl ".5cm" cal-tex-e-center cal-tex-b-parbox "l" "\\textwidth" "t" cal-tex-rule "0pt" ".2mm" cal-tex-large-bf cal-tex-LaTeXify-string calendar-day-name ", " cal-tex-month-name "\\ " number-to-string cal-tex-latexify-list "; " "" ": " cal-tex-hfill " " eval cal-tex-e-parbox cal-tex-noindent "\\vbox to 0pt{" "}" cal-tex-incr-date "2cm" run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-hook] 31 (#$ . 37696) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@214 Insert hourly entries for THEDATE with HOLIDAYS, with line height HEIGHT. Uses the 24-hour clock if `cal-tex-24' is non-nil. Note that the hours shown are hard-coded to 8-12, 13-17. (fn THEDATE HOLIDAYS HEIGHT) (defalias 'cal-tex-week-hours #[771 "\211\211@\262\211A@\262\303\211\211\304\305!\210\306\307!\210\306\310!\210\311\312\313\"\210\314\315\316!!!\210\317c\210\314\320!!\210\321c\210\314\322!!\210\323\324#\211\262\325\230\204Q\326c\210\314!\210\327 \210\330\331 \332\"\261\210\333 \210\334\335!\210\336\337\313\340#\210\334\341!\210\342\211\343W\205\256\211\344\\\262\n\203\203\211\345\\\202\205\211T\262\306\346\322!\"\210\347!\210\350\351!\210\306\346\322!\"\210\347!\210\334 \210\211T\262\202n\262)\207" [date cal-tex-daily-string cal-tex-24 nil cal-tex-comment "begin cal-tex-week-hours" cal-tex-cmd "\\ \\\\[-.2cm]" "\\noindent" cal-tex-b-parbox "l" "6.8in" cal-tex-large-bf cal-tex-LaTeXify-string calendar-day-name ", " cal-tex-month-name "\\ " number-to-string cal-tex-latexify-list "; " "" ": " cal-tex-hfill " " eval t cal-tex-e-parbox cal-tex-nl "-.3cm" cal-tex-rule "0pt" ".2mm" "-.1cm" 0 5 8 13 "\\hourbox" cal-tex-arg cal-tex-hspace ".4cm"] 14 (#$ . 42689)]) #@477 Make a one page LaTeX calendar for one week, showing hours of the day. There are two columns; with M-W in the first and T-S in the second. It shows the hours 8-12am and 1-5pm. It shows holidays if `cal-tex-holidays' is non-nil. It does not show diary entries. The optional prefix argument N specifies a number of weeks (default 1). By default, the calendar is for the week at point; the optional argument EVENT specifies a different buffer position. (fn &optional N EVENT) (defalias 'cal-tex-cursor-week-monday #[512 "\204\300\262\301\302\303\304\305\"\211\3068\262\307\303U\203#\310\311!\266\203\202a\303V\203\231S\262\312\211\211@\262\211A@\262\3068\262\313S_\\\306V\203\204\211\314\315_\\\316\245Z\262\211\303W\203e\317!S\262\211\315\246\303U\205{\211\320\246\303U?\206{\211\321\246\303U\262\203\204\211T\262\266\204\322_\315\245\320\245[\321\245%\266\203\202a\317T!\262\323\211\211@\262\211A@\262\3068\262\313S_\\\306V\203\366\211\314\315_\\\316\245Z\262\211\303W\203\327\317!S\262\211\315\246\303U\205\355\211\320\246\303U?\206\355\211\321\246\303U\262\203\366\211T\262\266\204\322_\315\245\320\245[\321\245\324\211\211@\262\211A@\262\3068\262\313S_\\\306V\203[\211\314\315_\\\316\245Z\262\211\303W\203<\317!S\262\211\315\246\303U\205R\211\320\246\303U?\206R\211\321\246\303U\262\203[\211T\262\266\204&\266\203\"!\325\326!\210\327 \210\330 \210\303\211W\203\315\331\332!\210\333c\210\334\335!\307\"\210\334\335\315\"\307\"\210\336\337!\210\334\335\306\"\307\"\210\334\335\340\"\307\"\210\336\337!\210\334\335\341\"\307\"\210\334\335\342\"\305\"\210\211SU\204\306\343\344!\210\335\345\"\262\346 \210\211T\262\202n\210\347 \210\343\350!\207" [1 calendar-gregorian-from-absolute calendar-dayname-on-or-before 0 calendar-cursor-to-date t 2 nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) cal-tex-preamble "11pt" cal-tex-weekly-paper cal-tex-b-document cal-tex-vspace "-1cm" "\\noindent " cal-tex-weekly4-box cal-tex-incr-date cal-tex-nl ".2cm" 5 3 6 run-hooks cal-tex-week-hook 7 cal-tex-newpage cal-tex-end-document cal-tex-hook] 23 (#$ . 43911) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@174 Make one box for DATE, different if WEEKEND. Uses the 24-hour clock if `cal-tex-24' is non-nil. Note that the hours shown are hard-coded to 8-12, 13-17. (fn DATE WEEKEND) (defalias 'cal-tex-weekly4-box #[514 "\211A@\262\211@\262\3018\262\302\303!!\304!\211\211A@\262\211@\262\3018\262\302\303!!\305\306\307\"\210\310\311\312\"\210\313\314\n\f %c\210\315\316\312\317#\210\320 \210 \204\215\321\211\322W\203l\313\323\324\\\"c\210\211T\262\202W\210\321\211\322W\203\214\313\323\203\200\325\\\202\202T\"c\210\211T\262\202n\210\320\326!\210 \203\266\327\330!\210\331c\210\313\314%c\210\315\316\312\317#\210\320\332!\210\327\330!\210\333 \210\334 \210\335\330!\207" [cal-tex-24 2 cal-tex-LaTeXify-string calendar-day-name cal-tex-incr-date cal-tex-b-framebox "8cm" "l" cal-tex-b-parbox "b" "7.5cm" format "\\textbf{\\Large %s,} %s/%s/%s\\\\\n" cal-tex-rule "0pt" ".5mm" cal-tex-nl 0 5 "\\textsf{\\large %d}\\\\\n" 8 13 ".5cm" cal-tex-vspace "1cm" "\\ \\vfill" "1.5cm" cal-tex-e-parbox cal-tex-e-framebox cal-tex-hspace] 17 (#$ . 46203)]) #@67 Common code for weekly calendars. (fn N EVENT &optional FILOFAX) (defalias 'cal-tex-weekly-common #[770 "\204\306\262\307\310\306\311\312\"\211\3138\262\314\315U\203$\316\317!\266\203\202b\315V\203\232S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\205\211\322\323_\\\324\245Z\262\211\315W\203f\325!S\262\211\323\246\315U\205|\211\326\246\315U?\206|\211\327\246\315U\262\203\205\211T\262\266\204\330_\323\245\326\245[\327\245%\266\203\202b\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\367\211\322\323_\\\324\245Z\262\211\315W\203\330\325!S\262\211\323\246\315U\205\356\211\326\246\315U?\206\356\211\327\246\315U\262\203\367\211T\262\266\204\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\\\211\322\323_\\\324\245Z\262\211\315W\203=\325!S\262\211\323\246\315U\205S\211\326\246\315U?\206S\211\327\246\315U\262\203\\\211T\262\266\204&\266\203\"!\211\211\3138\262\314\315U\203{\316\317!\266\203\202\271\315V\203\361S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\334\211\322\323_\\\324\245Z\262\211\315W\203\275\325!S\262\211\323\246\315U\205\323\211\326\246\315U?\206\323\211\327\246\315U\262\203\334\211T\262\266\204\330_\323\245\326\245[\327\245%\266\203\202\271\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203N\211\322\323_\\\324\245Z\262\211\315W\203/\325!S\262\211\323\246\315U\205E\211\326\246\315U?\206E\211\327\246\315U\262\203N\211T\262\266\204\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\263\211\322\323_\\\324\245Z\262\211\315W\203\224\325!S\262\211\323\246\315U\205\252\211\326\246\315U?\206\252\211\327\246\315U\262\203\263\211T\262\266\204&\266\203\333_\\ \205\306\334\"\n\205\316\335\"\203\361\336\337!\210\340 \210 c\210\341\342\343\"\210\341\344\345\"\210\fc\210\341\346\343\"\210\202 \336\347!\210\350c\210 c\210\341\342\351\"\210\341\344\352\"\210\fc\210\341\346\351\"\210\353 \210\354\355\356\"\210\357 \210\315\211W\203\224\360c\210\361\362\313\"\211@\262\211@\262U\203I\363\364\365\211@\262!\3138\262#\202\220\3138\262\3138\262U\203s\363\366\365\211@\262!\365\211@\262!\3138\262$\202\220\363\367\365\211@\262!\3138\262\365\211@\262!\3138\262%\262!\210\370c\210\315\211\371W\203\332\314\372c\210\361\373\374!!!\210\361\375\211A@\262!!\210\361\376\"!\210\361\376\"!\210\361\377 \312\"!\210\370c\210\362!\210\211T\262\202\230\210\201@c\210\204t\201A \210\201B\201C!\211@\262\201C!\3138\262\201D\201E\201F%c\210\201B\211@\262\3138\262\201G\201E\201F%c\210\201B\201H!\211@\262\201H!\3138\262\201I\201E\201F%c\210\201Jc\210\201K \210\201Lc\210\201K \210\201Mc\210\201K \210\201Nc\210\201K \210\201Oc\210\357 \210\201Pc\210\361\362\371\"\211@\262\211@\262U\203\242\363\364\365\211@\262!\3138\262#\202\351\3138\262\3138\262U\203\314\363\366\365\211@\262!\365\211@\262!\3138\262$\202\351\363\367\365\211@\262!\3138\262\365\211@\262!\3138\262%\262!\210\370c\210\315\211\313W\2034\314\201Qc\210\361\373\374!!!\210\361\375\211A@\262!!\210\361\376\"!\210\361\376\"!\210\361\377 !!\210\370c\210\362!\210\211T\262\202\361\210\315\211\313W\203y\314\201Rc\210\361\373\374!!!\210\361\375\211A@\262!!\210\361\376\"!\210\361\376\"!\210\361\377 !!\210\370c\210\362!\210\211T\262\2026\210\211SU\204\215\201S\201T!\210\357 \210\211T\262\202\210\201U \210\201S\201V!)\207" [date cal-tex-holidays cal-tex-diary cal-tex-righthead cal-tex-lefthead cal-tex-daily-string 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 holiday-in-range cal-tex-list-diary-entries cal-tex-preamble "twoside" cal-tex-filofax-paper cal-tex-longday "rightday" "1.85in" "weekend" "0.8in" "leftday" "twoside,12pt" "\\textwidth 7in\n\\textheight 10.5in\n\\oddsidemargin 0in\n\\evensidemargin 0in\n\\topmargin 0pt\n\\headheight -0.875in\n\\headsep 0.125in\n\\footskip .125in\n" "2.75in" "1.8in" cal-tex-b-document cal-tex-cmd "\\pagestyle" "empty" cal-tex-newpage "\\lefthead" cal-tex-arg cal-tex-incr-date format "%s %s" cal-tex-month-name "%s---%s %s" "%s %s---%s %s" "%\n" 3 "\\leftday" cal-tex-LaTeXify-string calendar-day-name number-to-string cal-tex-latexify-list eval "\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n" cal-tex-nl cal-tex-mini-calendar cal-tex-previous-month "lastmonth" "1.1in" "1in" "thismonth" cal-tex-next-month "nextmonth" "\\hbox to \\textwidth{" cal-tex-hfill "\\lastmonth" "\\thismonth" "\\nextmonth" "}" "\\righthead" "\\rightday" "\\weekend" run-hooks cal-tex-week-hook cal-tex-end-document cal-tex-hook] 25 (#$ . 47288)]) #@432 Make a two page LaTeX calendar for one week, with optional diary entries. It does not show hours of the day. It shows holidays if `cal-tex-holidays' is non-nil. It shows diary entries if `cal-tex-diary' is non-nil. The optional prefix argument N specifies a number of weeks (default 1). By default, the calendar is for the week at point; the optional argument EVENT specifies a different buffer position. (fn &optional N EVENT) (defalias 'cal-tex-cursor-week2-summary #[512 "\300\"\207" [cal-tex-weekly-common] 5 (#$ . 52246) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@342 Two-weeks-at-a-glance Filofax style calendar for week cursor is in. Optional prefix argument N specifies number of weeks (default 1). The calendar shows holiday and diary entries if `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-filofax-2week #[512 "\204\306\262\307\310\311\312\"\211\3138\262\314\315U\203#\316\317!\266\203\202a\315V\203\231S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\204\211\322\323_\\\324\245Z\262\211\315W\203e\325!S\262\211\323\246\315U\205{\211\326\246\315U?\206{\211\327\246\315U\262\203\204\211T\262\266\204\330_\323\245\326\245[\327\245%\266\203\202a\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\366\211\322\323_\\\324\245Z\262\211\315W\203\327\325!S\262\211\323\246\315U\205\355\211\326\246\315U?\206\355\211\327\246\315U\262\203\366\211T\262\266\204\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203[\211\322\323_\\\324\245Z\262\211\315W\203<\325!S\262\211\323\246\315U\205R\211\326\246\315U?\206R\211\327\246\315U\262\203[\211T\262\266\204&\266\203\"!\211\211\3138\262\314\315U\203z\316\317!\266\203\202\270\315V\203\360S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\333\211\322\323_\\\324\245Z\262\211\315W\203\274\325!S\262\211\323\246\315U\205\322\211\326\246\315U?\206\322\211\327\246\315U\262\203\333\211T\262\266\204\330_\323\245\326\245[\327\245%\266\203\202\270\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203M\211\322\323_\\\324\245Z\262\211\315W\203.\325!S\262\211\323\246\315U\205D\211\326\246\315U?\206D\211\327\246\315U\262\203M\211T\262\266\204\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\262\211\322\323_\\\324\245Z\262\211\315W\203\223\325!S\262\211\323\246\315U\205\251\211\326\246\315U?\206\251\211\327\246\315U\262\203\262\211T\262\266\204&\266\203\333_\\\n\205\305\334\" \205\315\335\"\336\337!\210\340 \210\fc\210\341\342\343\"\210 c\210\341\344\343\"\210\345 \210\346\347\350\"\210\315\211W\203\344\351\313\"\315U\203\352c\210\202\353c\210\354\355 \356\" \211@\262\211@\262U\203,\357\360\361 \211@\262! \3138\262#\202s \3138\262\3138\262U\203V\357\362\361 \211@\262!\361\211@\262! \3138\262$\202s\357\363\361 \211@\262! \3138\262\361\211@\262!\3138\262%\262!\210\364c\210\315\211\333W\203\315\314\351\313\"\315U\203\221\365c\210\202\224\366c\210\354\367\370 !!!\210\354\371 \211A@\262!!\210\354\372 \"!\210\354\372 \"!\210\354\373@\312\"!\210\364c\210\355 !\210\211T\262\202{\210\211SU\204\335\374\375!\210\376 \210\211T\262\202\355\210\377 \210\374\201A!)\207" [calendar-week-start-day date cal-tex-holidays cal-tex-diary cal-tex-righthead cal-tex-lefthead 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 holiday-in-range cal-tex-list-diary-entries cal-tex-preamble "twoside" cal-tex-filofax-paper cal-tex-longday "rightday" "0.7in" "leftday" cal-tex-b-document cal-tex-cmd "\\pagestyle" "empty" mod "\\righthead" "\\lefthead" cal-tex-arg cal-tex-incr-date 6 format "%s %s" cal-tex-month-name "%s---%s %s" "%s %s---%s %s" "%\n" "\\rightday" "\\leftday" cal-tex-LaTeXify-string calendar-day-name number-to-string cal-tex-latexify-list eval run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-daily-string cal-tex-hook] 24 (#$ . 52876) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@370 One-week-at-a-glance Filofax style calendar for week indicated by cursor. Optional prefix argument N specifies number of weeks (default 1), starting on Mondays. The calendar shows holiday and diary entries if `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-filofax-week #[512 "\300\301#\207" [cal-tex-weekly-common t] 6 (#$ . 56731) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@410 Day-per-page Filofax style calendar for week indicated by cursor. Optional prefix argument N specifies number of weeks (default 1), starting on Mondays. The calendar shows holiday and diary entries if `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil. Pages are ruled if `cal-tex-rules' is non-nil. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-filofax-daily #[512 "\204\306\262\307\310\306\311\312\"\211\3138\262\314\315U\203#\316\317!\266\203\202a\315V\203\231S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\204\211\322\323_\\\324\245Z\262\211\315W\203e\325!S\262\211\323\246\315U\205{\211\326\246\315U?\206{\211\327\246\315U\262\203\204\211T\262\266\204\330_\323\245\326\245[\327\245%\266\203\202a\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\366\211\322\323_\\\324\245Z\262\211\315W\203\327\325!S\262\211\323\246\315U\205\355\211\326\246\315U?\206\355\211\327\246\315U\262\203\366\211T\262\266\204\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203[\211\322\323_\\\324\245Z\262\211\315W\203<\325!S\262\211\323\246\315U\205R\211\326\246\315U?\206R\211\327\246\315U\262\203[\211T\262\266\204&\266\203\"!\211\211\3138\262\314\315U\203z\316\317!\266\203\202\270\315V\203\360S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\333\211\322\323_\\\324\245Z\262\211\315W\203\274\325!S\262\211\323\246\315U\205\322\211\326\246\315U?\206\322\211\327\246\315U\262\203\333\211T\262\266\204\330_\323\245\326\245[\327\245%\266\203\202\270\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203M\211\322\323_\\\324\245Z\262\211\315W\203.\325!S\262\211\323\246\315U\205D\211\326\246\315U?\206D\211\327\246\315U\262\203M\211T\262\266\204\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\262\211\322\323_\\\324\245Z\262\211\315W\203\223\325!S\262\211\323\246\315U\205\251\211\326\246\315U?\206\251\211\327\246\315U\262\203\262\211T\262\266\204&\266\203\333_\\ \205\305\334\"\n\205\315\335\"\336\337!\210\340 \210 c\210\341\342!\210\341\343!\210\fc\210\341\344!\210\345c\210\346 \210\347\350\351\"\210\315\211W\203\303\315\211\323W\203Y\211\313\246\315U\211\203 \352\202\353c\210\354\355!!\210\356c\210\211\203!\357\202\"\360c\266\354\361\"!\210\354\361\362\312$!\210\354\363 \312\"!\210\356c\210?\203H\364\202I\365c\210\366 \210\367!\211T\262\202\372\210\356c\210\315\211\313W\203\244\314\353c\210\354\355!!\210\370c\210\354\361\"!\210\354\361\362\312$!\210\354\363 \312\"!\210\356c\210?\203\225\364\202\226\371c\210\367!\210\211T\262\202^\210?\204\255\372c\210\211SU\204\274\373\374!\210\366 \210\211T\262\202\362\210\375 \210\373\376!)\207" [date cal-tex-holidays cal-tex-diary cal-tex-righthead cal-tex-lefthead cal-tex-daily-string 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 holiday-in-range cal-tex-list-diary-entries cal-tex-preamble "twoside" cal-tex-filofax-paper cal-tex-shortday "rightday" "weekend" "leftday" "\\newbox\\LineBox\n\\setbox\\LineBox=\\hbox to\\textwidth{%\n\\vrule height.2in width0pt\\leaders\\hrule\\hfill}\n\\def\\linesfill{\\par\\leaders\\copy\\LineBox\\vfill}\n" cal-tex-b-document cal-tex-cmd "\\pagestyle" "empty" "\\righthead" "\\lefthead" cal-tex-arg calendar-date-string "%\n" "\\rightday" "\\leftday" cal-tex-latexify-list "\\\\" eval "\\linesfill\n" "\\vfill\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n" cal-tex-newpage cal-tex-incr-date "\\weekend" "\\vfill" "\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n" run-hooks cal-tex-week-hook cal-tex-end-document cal-tex-hook cal-tex-rules] 24 (#$ . 57303) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@344 Make a buffer with LaTeX commands for the day cursor is on. Optional prefix argument N specifies number of days. The calendar shows the hours between `cal-tex-daily-start' and `cal-tex-daily-end', using the 24-hour clock if `cal-tex-24' is non-nil. Optional EVENT indicates a buffer position to use instead of point. (fn &optional N EVENT) (defalias 'cal-tex-cursor-day #[512 "\204\300\262\301\302\"\211\3038\262\304\305U\203 \306\307!\266\203\202^\305V\203\226S\262\310\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\201\211\312\313_\\\314\245Z\262\211\305W\203b\315!S\262\211\313\246\305U\205x\211\316\246\305U?\206x\211\317\246\305U\262\203\201\211T\262\266\204\320_\313\245\316\245[\317\245%\266\203\202^\315T!\262\321\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\363\211\312\313_\\\314\245Z\262\211\305W\203\324\315!S\262\211\313\246\305U\205\352\211\316\246\305U?\206\352\211\317\246\305U\262\203\363\211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3038\262\311S_\\\303V\203X\211\312\313_\\\314\245Z\262\211\305W\2039\315!S\262\211\313\246\305U\205O\211\316\246\305U?\206O\211\317\246\305U\262\203X\211T\262\266\204&\266\203\323\324!\210\325\326!\210\327 \210\330\331\332\"\210\305\211W\203\230\333\334!\210\335\336!!\210T\262\211SU\204\221\337 \210\340\341!\210\211T\262\202o\210\342 \210\340\343!\207" [1 calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) cal-tex-preamble "12pt" cal-tex-weekly-paper nomargins cal-tex-b-document cal-tex-cmd "\\pagestyle" "empty" cal-tex-vspace "-1.7in" cal-tex-daily-page calendar-gregorian-from-absolute cal-tex-newpage run-hooks cal-tex-daily-hook cal-tex-end-document cal-tex-hook] 20 (#$ . 61394) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)]) #@230 Make a calendar page for Gregorian THEDATE on 8.5 by 11 paper. Uses the 24-hour clock if `cal-tex-24' is non-nil. Produces hourly sections for the period specified by `cal-tex-daily-start' and `cal-tex-daily-end'. (fn THEDATE) (defalias 'cal-tex-daily-page #[257 "\211\305\211@\262! S\306\307\310!\210\311\312\313\"\210\314\315\316\"\210\317\320\211\321#\210\322\323\211A@\262!!\210\324\325!\210\326!\210\327 \210\330\331!\210\332\333\n\334\"!\210\330\335!\210\336 \210\337 \210\311\312\340\"\210\326\341\342!!!\210\336 \210\324 \210\330\343!\210\317\320\344\345#\210\324\346!\210T\211\262 X\203\302\347\350!\210\f\203\202\202\206\351\352\"\262\211\353U\203\221\352\262\311\331\354\"\210\355\323!!\210\336 \210\317\320\356\357#\210\324\360!\210\311\331\354\"\210\355\361!\210\336 \210\317\320\356\357#\210\324\360!\210\202l\337 \210\362\363!\211@\262\363!\3648\262\365\366\367%c\210\362\211@\262\3648\262\370\366\367%c\210\362\371!\211@\262\371!\3648\262\372\366\367%c\210\373c\210\337 \210\374c\210\337 \210\375c\210\337 \210\376c\210\337 \210\377c\210\307\201@!)\207" [date cal-tex-daily-start cal-tex-daily-string cal-tex-daily-end cal-tex-24 cal-tex-month-name nil cal-tex-banner "cal-tex-daily-page" cal-tex-b-makebox "4cm" "l" cal-tex-b-parbox "b" "3.8cm" cal-tex-rule "0mm" "2cm" cal-tex-Huge number-to-string cal-tex-nl ".5cm" cal-tex-bf cal-tex-e-parbox cal-tex-hspace "1cm" cal-tex-scriptsize eval t "3.5cm" cal-tex-e-makebox cal-tex-hfill "r" cal-tex-LaTeXify-string calendar-day-name ".4cm" "16.1cm" "1mm" ".1cm" cal-tex-cmd "\\noindent" mod 12 0 "c" cal-tex-arg "15.5cm" ".2mm" ".2cm" "$\\diamond$" cal-tex-mini-calendar cal-tex-previous-month 2 "lastmonth" "1.1in" "1in" "thismonth" cal-tex-next-month "nextmonth" "\\hbox to \\textwidth{" "\\lastmonth" "\\thismonth" "\\nextmonth" "}" "end of cal-tex-daily-page"] 10 (#$ . 63336)]) #@271 Produce mini-calendar for MONTH, YEAR in macro NAME with WIDTH and HEIGHT. Optional string PTSIZE gives the point size (default "scriptsize"). Optional string COLSEP gives the column separation (default "1mm"). (fn MONTH YEAR NAME WIDTH HEIGHT &optional PTSIZE COLSEP) (defalias 'cal-tex-mini-calendar #[1797 "\211\204\302\262\204\303\262\304\305\306 E!Z\307\"\310U\203S\211\211\311W\2032\312!S\262\211\313\246\311U\205H\211\314\246\311U?\206H\211\315\246\311U\262\203S\266\316\202Y\317SH\266\202\320\321\322 \323\f\324\f\325 \326\326\326\326\326\327\330 !\331\332!!\333\260\311\211\307W\203\261\334 \304\\\307\"H\311\310O!\335U\203\246\336\202\247\337Q\262\211T\262\202\210\210\311\211W\203\307\340\337P\262\210\211T\262\202\263\210\311\211W\203\377\332T!P\262\304T\\\307\"\311U\203\364SU\203\360\341\202\365\342\202\365\337P\262\211T\262\202\311\210\211\343P\207" [calendar-week-start-day calendar-day-name-array "1mm" "scriptsize" mod calendar-day-of-week 1 7 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] "\\def\\" "{\\hbox to" "{%\n\\vbox to" "{%\n\\vfil \\hbox to" "{%\n\\hfil\\" "\\begin{tabular}{@{\\hspace{0mm}}r@{\\hspace{" "}}r@{\\hspace{" "}}r@{\\hspace{0mm}}}%\n\\multicolumn{7}{c}{" cal-tex-month-name " " number-to-string "}\\\\[1mm]\n" cal-tex-LaTeXify-string 6 "\\\\[0.7mm]\n" " & " nil "" "\\\\[0.5mm]\n" "\n\\end{tabular}\\hfil}\\vfil}}}%\n"] 36 (#$ . 65226)]) #@115 The date of the day following DATE. If optional N is given, the date of N days after DATE. (fn DATE &optional N) (defalias 'cal-tex-incr-date #[513 "\300\206\301\211\3028\262\303\304U\203\305\306!\266\203\202Z\304V\203\222S\262\307\211\211@\262\211A@\262\3028\262\310S_\\\302V\203}\211\311\312_\\\313\245Z\262\211\304W\203^\314!S\262\211\312\246\304U\205t\211\315\246\304U?\206t\211\316\246\304U\262\203}\211T\262\266\204\317_\312\245\315\245[\316\245%\266\203\202Z\314T!\262\320\211\211@\262\211A@\262\3028\262\310S_\\\302V\203\357\211\311\312_\\\313\245Z\262\211\304W\203\320\314!S\262\211\312\246\304U\205\346\211\315\246\304U?\206\346\211\316\246\304U\262\203\357\211T\262\266\204\317_\312\245\315\245[\316\245\321\211\211@\262\211A@\262\3028\262\310S_\\\302V\203T\211\311\312_\\\313\245Z\262\211\304W\2035\314!S\262\211\312\246\304U\205K\211\315\246\304U?\206K\211\316\246\304U\262\203T\211T\262\266\204&\266\203\\!\207" [calendar-gregorian-from-absolute 1 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 22 (#$ . 66710)]) #@301 Return string with concatenated, LaTeX-ified entries in DATE-LIST for DATE. Use double backslash as a separator unless optional SEPARATOR is given. If resulting string is not empty, put separator at end if optional FINAL-SEPARATOR is non-nil. (fn DATE-LIST DATE &optional SEPARATOR FINAL-SEPARATOR) (defalias 'cal-tex-latexify-list #[1026 "\204\300\262\301\302\303\211\203.\211@\211@\203'\304@\"\203'\211A@B\262A\266\202\202\f\305!\262#\262\203E\211\306\230\204E\211P\207\207" ["\\\\" nil mapconcat #[257 "\300!\207" [cal-tex-LaTeXify-string] 3 "\n\n(fn X)"] calendar-date-equal reverse ""] 12 (#$ . 67879)]) #@76 Return the date of the first day in the month previous to DATE. (fn DATE) (defalias 'cal-tex-previous-month #[257 "\211\211@\262\3008\262\301\302W\203T\262\303\304_\305\211$\262\306\304\"T\262\211\304\245\262\211\302W\203<\307V\203<S\262\307W\203FS\262\210\307E\207" [2 nil 0 + 12 -1 mod 1] 9 (#$ . 68520)]) #@74 Return the date of the first day in the month following DATE. (fn DATE) (defalias 'cal-tex-next-month #[257 "\211\211@\262\3008\262\301\302W\203T\262\303\304_\305\306$\262\307\304\"T\262\211\304\245\262\211\302W\203<\306V\203<S\262\306W\203FS\262\210\306E\207" [2 nil 0 + 12 -1 1 mod] 9 (#$ . 68861)]) #@125 Finish the LaTeX document. Insert the trailer to LaTeX document, pop to LaTeX buffer, add informative header, and run HOOK. (defalias 'cal-tex-end-document #[0 "\301 \210\203\302\303\"\204'\304\305\306\307#\203'eb\210\310\311\306\312#\203'\313y\210\314c\210\315 \210\316p!\210eb\210\317\320!\207" [cal-tex-preamble-extra cal-tex-e-document string-match "inputenc" re-search-backward "[^[:ascii:]]" nil move search-forward "documentclass" t 1 "\\usepackage[latin1]{inputenc}\n" latex-mode pop-to-buffer cal-tex-comment " This buffer was produced by cal-tex.el.\n To print a calendar, type\n M-x tex-buffer RET\n M-x tex-print RET"] 4 (#$ . 69197)]) #@441 Initialize the output LaTeX calendar buffer, `cal-tex-buffer'. Select the output buffer, and insert the preamble for a calendar of WEEKS weeks. Pass string CLASS-OPTIONS as options for the article document class. If it contains "landscape", use the geometry package to produce landscape format. Optional argument APPEND, if non-nil, means add to end of buffer without erasing current contents. (fn WEEKS &optional CLASS-OPTIONS APPEND) (defalias 'cal-tex-insert-preamble #[769 "\205\303\304\"\305\306\203\306\262\305\262\204L\307!\210\204,\310\311!\210\310\312\313\"\210\202<\310\314!\210\310\315!\210\316 \210\310\312\317\"\210\310!\210\310 !\210\320 \210\310\321\322\"\210\310\323\"\210\324\325\326\nG\245\"c\210\310\327\"\210\324\330\331\245\"c\210\310\332!\210\333\334!\207" [cal-tex-caldate cal-tex-myday cal-tex-which-days string-match "\\" "18cm" "24cm" cal-tex-preamble cal-tex-cmd "\\oddsidemargin -1.75cm" "\\def\\holidaymult" ".06" "\\textwidth 9.5in" "\\textheight 7in" cal-tex-comment ".08" cal-tex-b-document "\\pagestyle" "empty" "\\setlength{\\cellwidth}" format "\\setlength{\\cellwidth}{%f\\cellwidth}\n" 1.1 "\\setlength{\\cellheight}" "\\setlength{\\cellheight}{%f\\cellheight}\n" 1.0 "\\ \\par" cal-tex-vspace "-3cm"] 10 (#$ . 69862)]) #@48 Alist of symbols and their LaTeX replacements. (defconst cal-tex-LaTeX-subst-list '(("\"" . "``") ("\"" . "''") ("&" . "\\&") ("%" . "\\%") ("$" . "\\$") ("#" . "\\#") ("_" . "\\_") ("{" . "\\{") ("}" . "\\}") ("<" . "$<$") (">" . "$>$") ("\n" . "\\ \\\\")) (#$ . 71162)) #@63 Protect special characters in STRING from LaTeX. (fn STRING) (defalias 'cal-tex-LaTeXify-string #[257 "\211\204\301\207\301\302\211\301\230\204D\303\304\305#\262\306\"\262\211\203-\307\230\203-\310!\262\303\305\"\262\203=A\202>P\262\202 \207" [cal-tex-LaTeX-subst-list "" nil substring-no-properties 0 1 assoc "\"" reverse] 10 (#$ . 71440)]) #@45 The name of MONTH, LaTeX-ified. (fn MONTH) (defalias 'cal-tex-month-name #[257 "\300\301!!\207" [cal-tex-LaTeXify-string calendar-month-name] 4 (#$ . 71816)]) #@15 Insert hfill. (defalias 'cal-tex-hfill #[0 "\300c\207" ["\\hfill"] 1 (#$ . 71983)]) #@17 Insert newpage. (defalias 'cal-tex-newpage #[0 "\300c\207" ["\\newpage%\n"] 1 (#$ . 72073)]) #@18 Insert noindent. (defalias 'cal-tex-noindent #[0 "\300c\207" ["\\noindent"] 1 (#$ . 72172)]) #@61 Insert vspace command to move SPACE vertically. (fn SPACE) (defalias 'cal-tex-vspace #[257 "\300\301\"\207" [cal-tex-cmd "\\vspace*"] 4 (#$ . 72271)]) #@63 Insert hspace command to move SPACE horizontally. (fn SPACE) (defalias 'cal-tex-hspace #[257 "\300\301\"\207" [cal-tex-cmd "\\hspace*"] 4 (#$ . 72430)]) #@168 Insert "% ", followed by optional string COMMENT, followed by newline. COMMENT may contain newlines, which are prefixed by "% " in the output. (fn &optional COMMENT) (defalias 'cal-tex-comment #[256 "\300\301\203\302\303\304#\202\305\"c\207" [format "%% %s\n" string-replace "\n" "\n% " ""] 7 (#$ . 72592)]) #@64 Insert string COMMENT, separated by blank lines. (fn COMMENT) (defalias 'cal-tex-banner #[257 "\300\301\302\"!\207" [cal-tex-comment format "\n\n\n %s\n"] 5 (#$ . 72913)]) #@120 End a line with \. If SKIP, then add that much spacing. Add trailing COMMENT if present. (fn &optional SKIP COMMENT) (defalias 'cal-tex-nl #[512 "\300\301\203 \300\302\"\202\303\"c\210\304!\207" [format "\\\\%s" "[%s]" "" cal-tex-comment] 7 (#$ . 73096)]) #@82 Insert a brace {} pair containing the optional string TEXT. (fn &optional TEXT) (defalias 'cal-tex-arg #[256 "\300\301\206\302\"c\207" [format "{%s}" ""] 4 (#$ . 73366)]) #@87 Insert LaTeX CMD, with optional argument ARG, and end with %. (fn CMD &optional ARG) (defalias 'cal-tex-cmd #[513 "c\210\300!\210\301 \207" [cal-tex-arg cal-tex-comment] 4 (#$ . 73547)]) #@31 Insert beginning of document. (defalias 'cal-tex-b-document #[0 "\300\301\302\"\207" [cal-tex-cmd "\\begin" "document"] 3 (#$ . 73743)]) #@25 Insert end of document. (defalias 'cal-tex-e-document #[0 "\300\301\302\"\207" [cal-tex-cmd "\\end" "document"] 3 (#$ . 73886)]) #@37 Insert beginning of centered block. (defalias 'cal-tex-b-center #[0 "\300\301\302\"\207" [cal-tex-cmd "\\begin" "center"] 3 (#$ . 74021)]) #@31 Insert end of centered block. (defalias 'cal-tex-e-center #[0 "\300 \210\301\302\303\"\207" [cal-tex-comment cal-tex-cmd "\\end" "center"] 3 (#$ . 74166)]) #@72 Insert parbox with parameters POSITION and WIDTH. (fn POSITION WIDTH) (defalias 'cal-tex-b-parbox #[514 "\300\301\302\261\210\303 \207" ["\\parbox[" "]{" "}{" cal-tex-comment] 7 (#$ . 74328)]) #@90 Insert end of parbox. Optionally, force it to be a given HEIGHT. (fn &optional HEIGHT) (defalias 'cal-tex-e-parbox #[256 "\300 \210\211\203 \301\302\211#\210\303c\210\300\304!\207" [cal-tex-comment cal-tex-rule "0mm" "}" "end parbox"] 5 (#$ . 74531)]) #@80 Insert framebox with parameters WIDTH and POSITION (clr). (fn WIDTH POSITION) (defalias 'cal-tex-b-framebox #[514 "\300\301\302\261\210\303 \207" ["\\framebox[" "][" "]{" cal-tex-comment] 7 (#$ . 74793)]) #@25 Insert end of framebox. (defalias 'cal-tex-e-framebox #[0 "\300 \210\301c\210\300\302!\207" [cal-tex-comment "}" "end framebox"] 2 (#$ . 75008)]) #@79 Insert makebox with parameters WIDTH and POSITION (clr). (fn WIDTH POSITION) (defalias 'cal-tex-b-makebox #[514 "\300\301\302\261\210\303 \207" ["\\makebox[" "][" "]{" cal-tex-comment] 7 (#$ . 75160)]) #@24 Insert end of makebox. (defalias 'cal-tex-e-makebox #[0 "\300 \210\301c\210\300\302!\207" [cal-tex-comment "}" "end makebox"] 2 (#$ . 75372)]) #@76 Insert a rule with parameters LOWER WIDTH HEIGHT. (fn LOWER WIDTH HEIGHT) (defalias 'cal-tex-rule #[771 "\300\301\302\303\261\207" ["\\rule[" "]{" "}{" "}"] 10 (#$ . 75521)]) #@44 Insert STRING in italic font. (fn STRING) (defalias 'cal-tex-em #[257 "\300\301\"\207" [cal-tex-cmd "\\textit"] 4 (#$ . 75707)]) #@40 Insert STRING in bf font. (fn STRING) (defalias 'cal-tex-bf #[257 "\300\301\"\207" [cal-tex-cmd "\\textbf"] 4 (#$ . 75844)]) #@48 Insert STRING in scriptsize font. (fn STRING) (defalias 'cal-tex-scriptsize #[257 "\300\301P!\207" [cal-tex-arg "\\scriptsize "] 4 (#$ . 75977)]) #@42 Insert STRING in huge font. (fn STRING) (defalias 'cal-tex-huge #[257 "\300\301P!\207" [cal-tex-arg "\\huge "] 4 (#$ . 76131)]) #@42 Insert STRING in Huge font. (fn STRING) (defalias 'cal-tex-Huge #[257 "\300\301P!\207" [cal-tex-arg "\\Huge "] 4 (#$ . 76267)]) #@45 Insert STRING in Huge bf font. (fn STRING) (defalias 'cal-tex-Huge-bf #[257 "\300\301\302P\"\207" [cal-tex-cmd "\\textbf" "\\Huge "] 5 (#$ . 76403)]) #@43 Insert STRING in large font. (fn STRING) (defalias 'cal-tex-large #[257 "\300\301P!\207" [cal-tex-arg "\\large "] 4 (#$ . 76561)]) #@46 Insert STRING in large bf font. (fn STRING) (defalias 'cal-tex-large-bf #[257 "\300\301\302P\"\207" [cal-tex-cmd "\\textbf" "\\large "] 5 (#$ . 76700)]) (provide 'cal-tex)