Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
calendar /
[ HOME SHELL ]
Name
Size
Permission
Action
appt.elc
18.08
KB
-rw-r--r--
cal-bahai.elc
12.95
KB
-rw-r--r--
cal-china.elc
31.28
KB
-rw-r--r--
cal-coptic.elc
9.21
KB
-rw-r--r--
cal-dst.elc
17.74
KB
-rw-r--r--
cal-french.elc
9.24
KB
-rw-r--r--
cal-hebrew.elc
48.6
KB
-rw-r--r--
cal-html.elc
16.8
KB
-rw-r--r--
cal-islam.elc
13.12
KB
-rw-r--r--
cal-iso.elc
6.82
KB
-rw-r--r--
cal-julian.elc
7.3
KB
-rw-r--r--
cal-loaddefs.el
30.7
KB
-rw-r--r--
cal-mayan.elc
18.6
KB
-rw-r--r--
cal-menu.elc
9.79
KB
-rw-r--r--
cal-move.elc
14.58
KB
-rw-r--r--
cal-persia.elc
6.65
KB
-rw-r--r--
cal-tex.elc
75.79
KB
-rw-r--r--
cal-x.elc
4.45
KB
-rw-r--r--
calendar.elc
98.48
KB
-rw-r--r--
diary-lib.elc
103.09
KB
-rw-r--r--
diary-loaddefs.el
10.61
KB
-rw-r--r--
hol-loaddefs.el
5.11
KB
-rw-r--r--
holidays.elc
32.73
KB
-rw-r--r--
icalendar.elc
58.07
KB
-rw-r--r--
iso8601.elc
8.69
KB
-rw-r--r--
lunar.elc
12.5
KB
-rw-r--r--
parse-time.elc
5.46
KB
-rw-r--r--
solar.elc
38.31
KB
-rw-r--r--
time-date.elc
14.26
KB
-rw-r--r--
timeclock.elc
46.18
KB
-rw-r--r--
todo-mode.elc
195.44
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cal-tex.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\311\312\313\314\315\316\310\303&\210\311\317\320\321\315\322\310\303&\210\311\323\304\324\315\322\310\303&\210\311\325\304\326\315\322\310\303&\210\311\327\330\331\315\332\310\303&\210\311\333\334\335\315\336\310\303&\210\311\337\304\340\315\322\310\303&\210\311\341\342\343\315\344\310\303&\210\311\345\346\347\315\344\310\303&\210\311\350\304\351\315\352\310\303\353\354& \210\311\355\304\356\315\357\310\303&\210\311\360\304\361\315\357\310\303&\210\311\362\304\363\315\357\310\303&\210\311\364\304\365\315\357\310\303&\210\311\366\304\367\315\357\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 '(0 1 2 3 4 5 6) "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 t "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 "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 "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 '(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)) "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 "calendar.tex" "The name for the output LaTeX calendar buffer." string cal-tex-24 "Non-nil means use a 24 hour clock in the daily calendar." cal-tex-daily-start 8 "The first hour of the daily LaTeX calendar page.\nAt present, this only affects `cal-tex-cursor-day'." integer cal-tex-daily-end 20 "The last hour of the daily LaTeX calendar page.\nAt present, this only affects `cal-tex-cursor-day'." cal-tex-preamble-extra "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 "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 "List of functions called after a LaTeX year calendar buffer is generated." cal-tex-month-hook "List of functions called after a LaTeX month calendar buffer is generated." cal-tex-week-hook "List of functions called after a LaTeX week calendar buffer is generated." cal-tex-daily-hook "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}" (#$ . 4194)) #@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}%%" (#$ . 4361)) #@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" (#$ . 4524)) #@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" (#$ . 4762)) #@31 LaTeX code for a day heading. (defconst cal-tex-myday "\\renewcommand{\\myday}[1]%\n{\\makebox[\\cellwidth]{\\hfill\\large\\bf#1\\hfill}}\n%\n" (#$ . 5000)) #@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" (#$ . 5164)) #@29 LaTeX code for left header. (defconst cal-tex-lefthead "\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}\n" (#$ . 5952)) #@30 LaTeX code for right header. (defconst cal-tex-righthead "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}\n" (#$ . 6100)) (byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload holiday-in-range "holidays" diary-list-entries "diary-lib"] 3) #@67 Generate a list of all diary-entries from absolute date D1 to D2. (defalias 'cal-tex-list-diary-entries #[(d1 d2) "\303\304\305 !\n ZT\306#)\207" [diary-list-include-blanks d1 d2 nil diary-list-entries calendar-gregorian-from-absolute t] 4 (#$ . 6364)]) #@557 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. (defalias 'cal-tex-preamble #[(&optional args) "\304!q\210\305 \306\216\307\310\n;\203G \311\312\n\"\204 \n\313P\311\314\n\"\204' \n\315P\316\n\317\320#\321\230\2036 \316\n\320\"\n\322\230\203@ \322\202P \307\323\n\"\202P \n\204O \324\202P \322\"c\210\n;\203b \311\325\n\"\203b \326c\210* ;\203m \327\261\210\330c\207" [cal-tex-buffer save-match-data-internal args cal-tex-preamble-extra generate-new-buffer match-data #[nil "\301\302\"\207" [save-match-data-internal 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" substring 0 1 "," "" "[%s]" "[12pt]" "\\<landscape\\>" "\\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"] 6 (#$ . 6626)]) #@184 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. (defalias 'cal-tex-cursor-year #[(&optional n event) "\302\303\304\"\3058\262 \206 \306\"\207" [event n cal-tex-year calendar-cursor-to-date t 2 1] 4 (#$ . 8472) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@184 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. (defalias 'cal-tex-cursor-year-landscape #[(&optional n event) "\302\303\304\"\3058\262 \206 \306\304#\207" [event n cal-tex-year calendar-cursor-to-date t 2 1] 4 (#$ . 8898) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@236 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. (defalias 'cal-tex-year #[(year n &optional landscape) "\306\307\205 \310\"\210\203 \311\312!\210\202 \311\313!\210 \314\n W\203\256 \315c\210\316 \210\317\320\f!!\210\321 \210\311\322!\210\316 \210\323\324\203B \325\202C \326\"\210\327c\210\330 \210\331 \210\332\314 W\203\206 \333 T\f\334\335\336%c\210\337c\210\340\341!\210\342 T\203t \343\202u \344\"\314U\203 \331\341!\210 T\211\202S *\345 \210\321 \210\315c\210\fT\n SU\203\240 \346 \210\202\243 \347 \210\350\351!\210\nT\211\202 *\350\352!\207" [landscape n j --dotimes-limit-- year i 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] 7 (#$ . 9337)]) #@53 Insert some page size settings for filofax layouts. (defalias 'cal-tex-filofax-paper #[(&optional year) "\301c\210\203 \302\202\f \303c\207" [year "\\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"] 1 (#$ . 10562)]) #@44 Insert LaTeX code for a long day function. (defalias 'cal-tex-longday #[(funcname height) "\302\303 \304\305\230\203 \306\202 \307\310\305\230\203 \311\202 \312\313\261 \207" [funcname height "\\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"] 9 (#$ . 10962)]) #@45 Insert LaTeX code for a short day function. (defalias 'cal-tex-shortday #[(funcname) "\301\302\303\230\203 \304\202 \305\306\261\207" [funcname "\\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"] 5 (#$ . 11660)]) #@192 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. (defalias 'cal-tex-cursor-filofax-year #[(&optional n event) "\204 \306\307\310 \"\3118\262\312\313!\210\314\302!\210\315\316!\210\315\317\320\"\210\321 \210\322\323!\210\324 \fW\203\235 \325\326\n\"c\210\327 \210\330\331\332\"\210\333c\210\334 \210\335 \210\336 \337\324 - -\fW\203q \340-T\n -H\341\342\343\344&c\210-T\211-\202R +\345c\210\346 \210\347 \210\nT SU\203\213 \350 \210\202\222 \351 \210\322\323!\210\352\353!\210 T\211\202- *\352\354!)\207" [n event year j --dotimes-limit-- month-names 1 calendar-cursor-to-date t 2 cal-tex-preamble "twoside" cal-tex-filofax-paper 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 i] 9 (#$ . 12200) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@375 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. (defalias 'cal-tex-cursor-month-landscape #[(&optional n event) "\204 \306\307\310 \"\211\211@\262\n\3118\262 \f =\312 > \306\fE\211\3118\262\313\314U\2037 \315\316!\202w\314V\203\255 S\262\317\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\230 \211\321\322_\\\323\245Z\262\211\314W\203y \324!S\262\211\322\246\314U\205\217 \211\325\246\314U?\206\217 \211\326\246\314U\262\203\230 \211T\262\266\203\262\327_\322\245\325\245[\326\245%\202w\324T!\262\330\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\n\211\321\322_\\\323\245Z\262\211\314W\203\353 \324!S\262\211\322\246\314U\205\211\325\246\314U?\206\211\326\246\314U\262\203\n\211T\262\266\203\262\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3118\262\320S_\\\311V\203q\211\321\322_\\\323\245Z\262\211\314W\203R\324!S\262\211\322\246\314U\205h\211\325\246\314U?\206h\211\326\246\314U\262\203q\211T\262\266\203\262&\266\203 ?\332\313 @ A=\314W\203\215=T=\317=A_ \333S$@\334@A\"T@A\245=@\314W\203\273 \306V\203\273=S==\306W\203\307=S=* \211=\311U\203 \211\211\314W\203\337\324!S\262\211\322\246\314U\205\365\211\325\246\314U?\206\365\211\326\246\314U\262\203 \335\266\202\202\336SH\266\202=E\211\3118\262\313\314U\203 \315\316!\202\\\314V\203\222S\262\317\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\205t\211\325\246\314U?\206t\211\326\246\314U\262\203}\211T\262\266\203\262\327_\322\245\325\245[\326\245%\202\\\324T!\262\330\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\357\211\321\322_\\\323\245Z\262\211\314W\203\320\324!S\262\211\322\246\314U\205\346\211\325\246\314U?\206\346\211\326\246\314U\262\203\357\211T\262\266\203\262\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3118\262\320S_\\\311V\203V\211\321\322_\\\323\245Z\262\211\314W\2037\324!S\262\211\322\246\314U\205M\211\325\246\314U?\206M\211\326\246\314U\262\203V\211T\262\266\203\262&\266\203 BC\205k\337?B\" DE\205x\340?B\" F\313\211 G H\313 I\341\342 \f\306#\343\"\210\344J!\210\314 K LKLW\203W G\fH\332\313 @ AH\314W\203\267HTH\317HA_G\333\211$@\334@A\"TG@A\245H@\314W\203\347G\306V\203\347HSHH\306W\203\363HSH*\345GH\346\347\350%c\210\332\313 @ AH\314W\203HTH\317HA_G\333\311$@\334@A\"TG@A\245H@\314W\203AG\306V\203AHSHH\306W\203MHSH*\345GH\351\347\350%c\210\352\306 \f \f%\210\353 \210\354\355!\210\306\334\356 \306\fE!MZ\357\"W\211I\203\360c\210\361 \fN#\210\362 \fDFN%\210\363 \fN#\210I\204\357\306\334MS\356 \211\f\311U\203\332\211\211\314W\203\271\324!S\262\211\322\246\314U\205\317\211\325\246\314U?\206\317\211\326\246\314U\262\203\332\335\266\202\202\340\336SH\266\202\fE!Z\357\"W\203\357\364\365\261\210KSU\204N\366\367!\210\370 \210\332\313 @ A\f\314W\203 \fT\317\fA_ \333\306$@\334@A\"T@A\245@\314W\2036 \306V\2036\fS\f\306W\203?\fS*\371\372!\210\341\342 \f\306#\343\310#\210KT\211K\202\231.\373 \210\366\374!\207" [n event date month year end-month 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 end-year cal-tex-which-days d1 macro-y nmonths d2 cal-tex-diary diary-list cal-tex-holidays holidays other-month other-year small-months-at-start cal-tex-cal-one-month i --dotimes-limit-- calendar-week-start-day cal-tex-day-prefix] 19 (#$ . 13850) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@360 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. (defalias 'cal-tex-cursor-month #[(&optional n event) "\204 \306\307\310 \"\211\211@\262\n\3118\262 \f 0 \306\fE\211\3118\262\312\313U\2034 \314\315!\202t\313V\203\252 S\262\316\211\211@\262\211A@\262\3118\262\317S_\\\311V\203\225 \211\320\321_\\\322\245Z\262\211\313W\203v \323!S\262\211\321\246\313U\205\214 \211\324\246\313U?\206\214 \211\325\246\313U\262\203\225 \211T\262\266\203\262\326_\321\245\324\245[\325\245%\202t\323T!\262\327\211\211@\262\211A@\262\3118\262\317S_\\\311V\203\211\320\321_\\\322\245Z\262\211\313W\203\350 \323!S\262\211\321\246\313U\205\376 \211\324\246\313U?\206\376 \211\325\246\313U\262\203\211T\262\266\203\262\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3118\262\317S_\\\311V\203n\211\320\321_\\\322\245Z\262\211\313W\203O\323!S\262\211\321\246\313U\205e\211\324\246\313U?\206e\211\325\246\313U\262\203n\211T\262\266\203\262&\266\203 1\331\312 2 30\313W\203\2120T0\31603_ \332S$2\33323\"T23\24502\313W\203\270 \306V\203\2700S00\306W\203\3040S0* \2110\311U\203\375\211\211\313W\203\334\323!S\262\211\321\246\313U\205\362\211\324\246\313U?\206\362\211\325\246\313U\262\203\375\334\266\202\202\335SH\266\2020E\211\3118\262\312\313U\203\314\315!\202Y\313V\203\217S\262\316\211\211@\262\211A@\262\3118\262\317S_\\\311V\203z\211\320\321_\\\322\245Z\262\211\313W\203[\323!S\262\211\321\246\313U\205q\211\324\246\313U?\206q\211\325\246\313U\262\203z\211T\262\266\203\262\326_\321\245\324\245[\325\245%\202Y\323T!\262\327\211\211@\262\211A@\262\3118\262\317S_\\\311V\203\354\211\320\321_\\\322\245Z\262\211\313W\203\315\323!S\262\211\321\246\313U\205\343\211\324\246\313U?\206\343\211\325\246\313U\262\203\354\211T\262\266\203\262\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3118\262\317S_\\\311V\203S\211\320\321_\\\322\245Z\262\211\313W\2034\323!S\262\211\321\246\313U\205J\211\324\246\313U?\206J\211\325\246\313U\262\203S\211T\262\266\203\262&\266\203 45\205h\33614\" 67\205u\33714\" 8\340\341 \f#!\210\306V\203\215\3429!\210\202\222\342:!\210\343 \f 0%\210\344 \210\345\346!\210\347 \f;#\210\313 < =<=W\203Z\350 \f68;%\210\351 \352 \211\f\311U\203\374\211\211\313W\203\333\323!S\262\211\321\246\313U\205\361\211\324\246\313U?\206\361\211\325\246\313U\262\203\374\334\266\202\202\335SH\266\202\fE!U\203\353 \210\345 \210\331\312 2 3\f\313W\203 \fT\316\f3_ \332\306$2\33323\"T23\2452\313W\203G \306V\203G\fS\f\306W\203P\fS*<T\211<\202\261*\354 0;#\210. \355 \210\356\357!\207" [n event date month year end-month 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 end-year d1 macro-y nmonths d2 cal-tex-diary diary-list cal-tex-holidays holidays cal-tex-cal-multi-month cal-tex-cal-one-month cal-tex-day-prefix _idummy --dotimes-limit--] 19 (#$ . 18544) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@254 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. (defalias 'cal-tex-insert-days #[(month year diary-list holidays day-format) "\306\307\310 E!\nZ\311\" \312U\203A \211\211\313W\203 \314!S\262\211\315\246\313U\2056 \211\316\246\313U?\2066 \211\317\246\313U\262\203A \320\266\202\202G \321SH\266\202\322\211 \313 W\205\266 T E\307\f! >\203\225 \323 \324! #c\210\325\326 \f\"!\210\325\326!\f\"!\210\325\327\"!!\210\325 \210\330 \210\306 \\\311\"\313U\203\255 U\204\255 \331 \210\332 \210 T\211 \202V .\207" [month year calendar-week-start-day j date last 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 cal-tex-comment cal-tex-hfill cal-tex-nl blank-days i --dotimes-limit-- cal-tex-which-days day-format diary-list holidays cal-tex-daily-string] 7 (#$ . 22434)]) #@60 Insert the names of the days at top of a monthly calendar. (defalias 'cal-tex-insert-day-names #[nil "\306\307\310 \nW\205. \311 \\\307\"\211\f>\203$ \312 \313 H!\"c\210\314 \210 T\211\202 +\207" [j i --dotimes-limit-- calendar-week-start-day cal-tex-which-days cal-tex-day-name-format nil 7 0 mod format cal-tex-LaTeXify-string cal-tex-comment calendar-day-name-array] 6 (#$ . 23553)]) #@142 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. (defalias 'cal-tex-insert-month-header #[(n month year end-month end-year) "\306!\306 !\f\307U\203 \310\311 #c\210\202\" \310\312 \n\f%c\210*\313 \207" [month end-month end-month-name month-name n year 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 end-year] 6 (#$ . 23956)]) #@217 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. (defalias 'cal-tex-insert-blank-days #[(month year day-format) "\306 \"\205; \307\310\311 E!\nZ\312\"\211\313 \f W\205: \307\n\f\\\312\">\2033 \314\315\211#\316\261\210\fT\211\202 +\207" [month year calendar-week-start-day blank-days i --dotimes-limit-- cal-tex-first-blank-p mod calendar-day-of-week 1 7 0 format " " "{}{}{}{}%\n" cal-tex-which-days day-format] 6 (#$ . 24472)]) #@156 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. (defalias 'cal-tex-insert-blank-days-at-end #[(month year day-format) "\306 \"\205u \307U\203= \211\211\310W\203 \311!S\262\211\312\246\310U\2052 \211\313\246\310U?\2062 \211\314\246\310U\262\203= \315\266\202\202C \316SH\266\202\317\320\n E! Z\321\"\211 T\211\322X\205t \317 \\\321\">\203R \323\324\211#\325\261\210\202R +\207" [month year last-day calendar-week-start-day blank-days i 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" cal-tex-which-days day-format] 6 (#$ . 25086)]) #@165 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. (defalias 'cal-tex-first-blank-p #[(month year) "\3062; \307\310\311 \nW\2059 \312 T\fE!\211 >\203& \313\306\314\"\210\2022 \315 U\2032 \313\306\307\"\210 T\211\202 +0\207" [dow i --dotimes-limit-- month year cal-tex-which-days found nil 7 0 calendar-day-of-week throw t calendar-week-end-day] 5 (#$ . 25836)]) #@163 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. (defalias 'cal-tex-last-blank-p #[(month year) "\3062z \307U\203: \211\211\310W\203 \311!S\262\211\312\246\310U\205/ \211\313\246\310U?\206/ \211\314\246\310U\262\203: \315\266\202\202@ \316SH\266\202\317\320\310 \f W\205x \321 \fZ E!\211>\203e \322\306\323\"\210\202q \nU\203q \322\306\317\"\210\fT\211\202H ,0\207" [month year dow last-day i --dotimes-limit-- 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 cal-tex-which-days calendar-week-start-day] 6 (#$ . 26326)]) #@231 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. (defalias 'cal-tex-number-weeks #[(month year n) "\306 E\307\310 \311W\203 T\312 \f_\313 S$\314 \f\"T \f\245 \311W\2035 \306V\2035 S \306W\203> S*\315 \316\211 \317U\203z \211\211\311W\203Y \320!S\262\211\321\246\311U\205o \211\322\246\311U?\206o \211\323\246\311U\262\203z \324\266\202\202\200 \325SH\266\202 E\211\3178\262\310\311U\203\225 \326\327!\202\325\311V\203 S\262\312\211\211@\262\211A@\262\3178\262\330S_\\\317V\203\366 \211\331\321_\\\332\245Z\262\211\311W\203\327 \320!S\262\211\321\246\311U\205\355 \211\322\246\311U?\206\355 \211\323\246\311U\262\203\366 \211T\262\266\203\262\333_\321\245\322\245[\323\245%\202\325\320T!\262\334\211\211@\262\211A@\262\3178\262\330S_\\\317V\203h\211\331\321_\\\332\245Z\262\211\311W\203I\320!S\262\211\321\246\311U\205_\211\322\246\311U?\206_\211\323\246\311U\262\203h\211T\262\266\203\262\333_\321\245\322\245[\323\245\335\211\211@\262\211A@\262\3178\262\330S_\\\317V\203\317\211\331\321_\\\332\245Z\262\211\311W\203\260\320!S\262\211\321\246\311U\205\306\211\322\246\311U?\206\306\211\323\246\311U\262\203\317\211T\262\266\203\262&\266\203\\\"\315 \n\211\3178\262\310\311U\203\360\326\327!\2020\311V\203fS\262\312\211\211@\262\211A@\262\3178\262\330S_\\\317V\203Q\211\331\321_\\\332\245Z\262\211\311W\2032\320!S\262\211\321\246\311U\205H\211\322\246\311U?\206H\211\323\246\311U\262\203Q\211T\262\266\203\262\333_\321\245\322\245[\323\245%\2020\320T!\262\334\211\211@\262\211A@\262\3178\262\330S_\\\317V\203\303\211\331\321_\\\332\245Z\262\211\311W\203\244\320!S\262\211\321\246\311U\205\272\211\322\246\311U?\206\272\211\323\246\311U\262\203\303\211T\262\266\203\262\333_\321\245\322\245[\323\245\335\211\211@\262\211A@\262\3178\262\330S_\\\317V\203*\211\331\321_\\\332\245Z\262\211\311W\203 \320!S\262\211\321\246\311U\205!\211\322\246\311U?\206!\211\323\246\311U\262\203*\211T\262\266\203\262&\266\203\"Z\316\245)\207" [month year d macro-y nmonths n 1 12 nil 0 + -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) calendar-week-start-day] 21 (#$ . 27036)]) #@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" (#$ . 29593)) #@52 Insert some page size settings for weekly layouts. (defalias 'cal-tex-weekly-paper #[(&optional nomargins) "\301c\210\206 \302c\207" [nomargins "\\textwidth 6.5in\n\\textheight 10.5in\n" "\\oddsidemargin 0in\n\\evensidemargin 0in\n"] 1 (#$ . 29768)]) #@421 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. (defalias 'cal-tex-cursor-week #[(&optional n event) "\204 \306\307\310 \311\312\n\"\211\3138\262\314\315U\203 \316\317!\202`\315V\203\226 S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\201 \211\322\323_\\\324\245Z\262\211\315W\203b \325!S\262\211\323\246\315U\205x \211\326\246\315U?\206x \211\327\246\315U\262\203\201 \211T\262\266\203\262\330_\323\245\326\245[\327\245%\202`\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\363 \211\322\323_\\\324\245Z\262\211\315W\203\324 \325!S\262\211\323\246\315U\205\352 \211\326\246\315U?\206\352 \211\327\246\315U\262\203\363 \211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Z\211\322\323_\\\324\245Z\262\211\315W\203;\325!S\262\211\323\246\315U\205Q\211\326\246\315U?\206Q\211\327\246\315U\262\203Z\211T\262\266\203\262&\266\203\"!\211\211@\262 \3138\262 \211\3138\262\314\315U\203\206\316\317!\202\306\315V\203\374S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\347\211\322\323_\\\324\245Z\262\211\315W\203\310\325!S\262\211\323\246\315U\205\336\211\326\246\315U?\206\336\211\327\246\315U\262\203\347\211T\262\266\203\262\330_\323\245\326\245[\327\245%\202\306\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Y\211\322\323_\\\324\245Z\262\211\315W\203:\325!S\262\211\323\246\315U\205P\211\326\246\315U?\206P\211\327\246\315U\262\203Y\211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\300\211\322\323_\\\324\245Z\262\211\315W\203\241\325!S\262\211\323\246\315U\205\267\211\326\246\315U?\206\267\211\327\246\315U\262\203\300\211T\262\266\203\262&\266\203 >\333_>\\ ?@\205\335\334>?\" A\335\336!\210\337 \210Bc\210\340 \210\341\342\343\"\210\315 C DCDW\203u\344\345!\210\346 \210\347\350\351\352\f!\"!\210\353\354!\210\347\355 !!\210\356\357!\210\360 \210\353\361!\210\362\363\364\"\210\333\315 E DEDW\203L\365 A\366#\210\367 !ET\211E\2022*\370 \210 \211@\262 \3138\262CSU\204l\371\372!\210\373 \210CT\211C\202\372*\374 \210\371\375!.\207" [n calendar-week-start-day event date month year 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 d1 d2 cal-tex-holidays holidays cal-tex-LaTeX-hourbox i --dotimes-limit-- _jdummy] 22 (#$ . 30028) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@421 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. (defalias 'cal-tex-cursor-week2 #[(&optional n event) "\204 \306\307\310 \311\312\n\"\211\3138\262\314\315U\203 \316\317!\202`\315V\203\226 S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\201 \211\322\323_\\\324\245Z\262\211\315W\203b \325!S\262\211\323\246\315U\205x \211\326\246\315U?\206x \211\327\246\315U\262\203\201 \211T\262\266\203\262\330_\323\245\326\245[\327\245%\202`\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\363 \211\322\323_\\\324\245Z\262\211\315W\203\324 \325!S\262\211\323\246\315U\205\352 \211\326\246\315U?\206\352 \211\327\246\315U\262\203\363 \211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Z\211\322\323_\\\324\245Z\262\211\315W\203;\325!S\262\211\323\246\315U\205Q\211\326\246\315U?\206Q\211\327\246\315U\262\203Z\211T\262\266\203\262&\266\203\"!\211\211@\262 \3138\262 \211\3138\262\314\315U\203\206\316\317!\202\306\315V\203\374S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\347\211\322\323_\\\324\245Z\262\211\315W\203\310\325!S\262\211\323\246\315U\205\336\211\326\246\315U?\206\336\211\327\246\315U\262\203\347\211T\262\266\203\262\330_\323\245\326\245[\327\245%\202\306\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Y\211\322\323_\\\324\245Z\262\211\315W\203:\325!S\262\211\323\246\315U\205P\211\326\246\315U?\206P\211\327\246\315U\262\203Y\211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\300\211\322\323_\\\324\245Z\262\211\315W\203\241\325!S\262\211\323\246\315U\205\267\211\326\246\315U?\206\267\211\327\246\315U\262\203\300\211T\262\266\203\262&\266\203 @\333_@\\ AB\205\335\334@A\" C\335\336!\210\337 \210Dc\210\340 \210\341\342\343\"\210\315 E FEFW\203 \344\345!\210\346 \210\347\350\351\352\f!\"!\210\353\354!\210\347\355 !!\210\356\357!\210\360 \210\353\361!\210\362\363\364\"\210\365\315 G FGFW\203L\366 C\367#\210\370 !GT\211G\2022*\371 \210\356 \210\372\373 !\211@\262\373 !\3138\262\374\375\376%c\210\372 \211@\262 \3138\262\377\375\376%c\210\372\201H !\211@\262\201H !\3138\262\201I \375\376%c\210\201J c\210\201K \210\201L c\210\201K \210\201M c\210\201K \210\201N c\210\201K \210\201O c\210\356 \210\362\363\364\"\210\323\315 G FGFW\203\356\366 C\367#\210\370 !GT\211G\202\324*\371 \210 \211@\262 \3138\262ESU\204\201P \201Q !\210\201R \210ET\211E\202\372*\201S \210\201P \201T !.\207" [n calendar-week-start-day event date month year 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" d1 d2 cal-tex-holidays holidays cal-tex-LaTeX-hourbox i --dotimes-limit-- _jdummy 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] 22 (#$ . 33570) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) (autoload 'calendar-iso-from-absolute "cal-iso") #@397 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. (defalias 'cal-tex-cursor-week-iso #[(&optional n event) "\204 \306\307\310\306\311\312 \"\211\3138\262\314\315U\203 \316\317!\202`\315V\203\226 S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\201 \211\322\323_\\\324\245Z\262\211\315W\203b \325!S\262\211\323\246\315U\205x \211\326\246\315U?\206x \211\327\246\315U\262\203\201 \211T\262\266\203\262\330_\323\245\326\245[\327\245%\202`\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\363 \211\322\323_\\\324\245Z\262\211\315W\203\324 \325!S\262\211\323\246\315U\205\352 \211\326\246\315U?\206\352 \211\327\246\315U\262\203\363 \211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Z\211\322\323_\\\324\245Z\262\211\315W\203;\325!S\262\211\323\246\315U\205Q\211\326\246\315U?\206Q\211\327\246\315U\262\203Z\211T\262\266\203\262&\266\203\"!\211\211@\262\n\3138\262 \n\211A@\262 \n\211\3138\262\314\315U\203\215\316\317!\202\315\315V\203S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\356\211\322\323_\\\324\245Z\262\211\315W\203\317\325!S\262\211\323\246\315U\205\345\211\326\246\315U?\206\345\211\327\246\315U\262\203\356\211T\262\266\203\262\330_\323\245\326\245[\327\245%\202\315\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203`\211\322\323_\\\324\245Z\262\211\315W\203A\325!S\262\211\323\246\315U\205W\211\326\246\315U?\206W\211\327\246\315U\262\203`\211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\307\211\322\323_\\\324\245Z\262\211\315W\203\250\325!S\262\211\323\246\315U\205\276\211\326\246\315U?\206\276\211\327\246\315U\262\203\307\211T\262\266\203\262&\266\203 @\333_@\\ AB\205\344\334@A\" CD\205\361\335@A\" E\314 F\336\337!\210\340 \210\341 \210\342\343\344\"\210\315 G HGHW\203\220\345\346!\210\347 \210\350\351\n\211\3138\262\314\315U\2030\316\317!\202p\315V\203\246S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\221\211\322\323_\\\324\245Z\262\211\315W\203r\325!S\262\211\323\246\315U\205\210\211\326\246\315U?\206\210\211\327\246\315U\262\203\221\211T\262\266\203\262\330_\323\245\326\245[\327\245%\202p\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\211\322\323_\\\324\245Z\262\211\315W\203\344\325!S\262\211\323\246\315U\205\372\211\326\246\315U?\206\372\211\327\246\315U\262\203\211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203j\211\322\323_\\\324\245Z\262\211\315W\203K\325!S\262\211\323\246\315U\205a\211\326\246\315U?\206a\211\327\246\315U\262\203j\211T\262\266\203\262&\266\203! I\352\353I\211@\262I\3138\262#)!\210\354\355!\210\356 \210\357\360\361\"\210\333\315 J HJHW\203l\357\362\361\"\210\357\362\361\"\210\363\364\361\365#\210\354 \210\357\362\361\"\210\366\367\370\n!!!\210\371c\210\366\372 !!\210\373c\210\366\374 !!\210\375C\n\376#\211F\377\230\204\354\201L c\210\366F!\210\201M \210\201N \201O K!\261\210\201P \210\354 \210\201Q \210\357\362\361\"\210\375E\n\"\211F\377\230\204+\201R c\210\366F!\210\201S c\210\201P \210\354 \210\201T \n!\211\211@\262\n\211A@\262\201P \210\201P \201U !\210\354 \210\n\211@\262\n\3138\262JT\211J\202\234*\201P \210GSU\204\207\201V \201W !\210\201X \210GT\211G\202 *\201Y \210\201V \201Z !. \207" [n event date month year day 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 "; " "" d1 d2 cal-tex-holidays holidays cal-tex-diary diary-list s i --dotimes-limit-- d _j cal-tex-daily-string ": " 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] 22 (#$ . 37754) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@181 Insert hourly entries for DATE 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. (defalias 'cal-tex-week-hours #[(date holidays height) "\211@\262\211A@\262\3068\262\307\211\211 -\310\311!\210\312\313!\210\312\314!\210\315\316\317\"\210\320\321\322!!!\210\323c\210\320\324-!!\210\325c\210\320\326 !!\210\327.\330#\211\331\230\204[ \332c\210\320 !\210\333 \210\334\335/!\261\210\336 \210\337\340!\210\341\342\317\343#\210\337\344!\210\345\346 0 101W\205\302 0\347\\2\203\226 0\350\\\202\231 0T\312\351\326 !\"\210\3523!\210\353\354!\210\312\351\326\n!\"\210\3523!\210\337 \2100T\2110\202 .\207" [date s afternoon morning year day 2 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 cal-tex-e-parbox cal-tex-nl "-.3cm" cal-tex-rule "0pt" ".2mm" "-.1cm" 5 0 8 13 "\\hourbox" cal-tex-arg cal-tex-hspace ".4cm" month holidays cal-tex-daily-string i --dotimes-limit-- cal-tex-24 height] 7 (#$ . 42814)]) #@453 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. (defalias 'cal-tex-cursor-week-monday #[(&optional n event) "\204 \305\306\307\310\311\312 \"\211\3138\262\314\310U\203 \315\316!\202`\310V\203\226 S\262\317\211\211@\262\211A@\262\3138\262\320S_\\\313V\203\201 \211\321\322_\\\323\245Z\262\211\310W\203b \324!S\262\211\322\246\310U\205x \211\325\246\310U?\206x \211\326\246\310U\262\203\201 \211T\262\266\203\262\327_\322\245\325\245[\326\245%\202`\324T!\262\330\211\211@\262\211A@\262\3138\262\320S_\\\313V\203\363 \211\321\322_\\\323\245Z\262\211\310W\203\324 \324!S\262\211\322\246\310U\205\352 \211\325\246\310U?\206\352 \211\326\246\310U\262\203\363 \211T\262\266\203\262\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3138\262\320S_\\\313V\203Z\211\321\322_\\\323\245Z\262\211\310W\203;\324!S\262\211\322\246\310U\205Q\211\325\246\310U?\206Q\211\326\246\310U\262\203Z\211T\262\266\203\262&\266\203\"!\332\333!\210\334 \210\335 \210\310 \fW\203\321\336\337!\210\340c\210\341\342\n!\314\"\210\341\342\n\322\"\314\"\210\343\344!\210\341\342\n\313\"\314\"\210\341\342\n\345\"\314\"\210\343\344!\210\341\342\n\346\"\314\"\210\341\342\n\347\"\312\"\210 SU\204\312\350\351!\210\342\n\352\"\353 \210 T\211\202t*\354 \210\350\355!)\207" [n event date i --dotimes-limit-- 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] 22 (#$ . 44083) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@155 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. (defalias 'cal-tex-weekly4-box #[(date weekend) "\211A@\262\211@\262\3068\262\307\310!! \311!\211 \211A@\262 # \211@\262 $ \3068\262 %\307\310 !! &\312\313\314\"\210\315\316\317\"\210\320\321\f\n %c\210\322\323\317\324#\210\325 \210'\204\252 \326\327 ( )()W\203} \320\330(\331\\\"c\210(T\211(\202e *\326\327 ( )()W\203\251 \320\330*\203\232 (\332\\\202\235 (T\"c\210(T\211(\202\206 *\325\333!\210'\203\325 \334\335!\210\336c\210\320\321&$#%%c\210\322\323\317\324#\210\325\337!\210\334\335!\210\340 \210\341 \210\342\335!. \207" [date day month year dayname date1 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 5 0 "\\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 day1 month1 year1 dayname1 weekend i --dotimes-limit-- cal-tex-24] 7 (#$ . 46370)]) #@35 Common code for weekly calendars. (defalias 'cal-tex-weekly-common #[(n event &optional filofax) "\204 \306\307\310\306\311\312 \"\211\3138\262\314\315U\203 \316\317!\202`\315V\203\226 S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\201 \211\322\323_\\\324\245Z\262\211\315W\203b \325!S\262\211\323\246\315U\205x \211\326\246\315U?\206x \211\327\246\315U\262\203\201 \211T\262\266\203\262\330_\323\245\326\245[\327\245%\202`\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\363 \211\322\323_\\\324\245Z\262\211\315W\203\324 \325!S\262\211\323\246\315U\205\352 \211\326\246\315U?\206\352 \211\327\246\315U\262\203\363 \211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Z\211\322\323_\\\324\245Z\262\211\315W\203;\325!S\262\211\323\246\315U\205Q\211\326\246\315U?\206Q\211\327\246\315U\262\203Z\211T\262\266\203\262&\266\203\"!\211\211@\262\n\3138\262 \n\211A@\262 \n\211\3138\262\314\315U\203\215\316\317!\202\315\315V\203S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\356\211\322\323_\\\324\245Z\262\211\315W\203\317\325!S\262\211\323\246\315U\205\345\211\326\246\315U?\206\345\211\327\246\315U\262\203\356\211T\262\266\203\262\330_\323\245\326\245[\327\245%\202\315\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203`\211\322\323_\\\324\245Z\262\211\315W\203A\325!S\262\211\323\246\315U\205W\211\326\246\315U?\206W\211\327\246\315U\262\203`\211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\307\211\322\323_\\\324\245Z\262\211\315W\203\250\325!S\262\211\323\246\315U\205\276\211\326\246\315U?\206\276\211\327\246\315U\262\203\307\211T\262\266\203\262&\266\203 @\333_@\\ AB\205\344\334@A\" CD\205\361\335@A\" EF\203\336\337!\210\340 \210Gc\210\341\342\343\"\210\341\344\345\"\210Hc\210\341\346\343\"\210\2027\336\347!\210\350c\210Gc\210\341\342\351\"\210\341\344\352\"\210Hc\210\341\346\351\"\210\353 \210\354\355\356\"\210\357 \210\315 I JIJW\203\355\360c\210\361\362\n\313\" K\n\211@\262K\211@\262U\203|\363\364\365\n\211@\262!\n\3138\262#\202\307\n\3138\262K\3138\262U\203\250\363\366\365\n\211@\262!\365K\211@\262!\n\3138\262$\202\307\363\367\365\n\211@\262!\n\3138\262\365K\211@\262!K\3138\262%)!\210\370c\210\371\315 L JLJW\203\372c\210\361\373\374\n!!!\210\361\375\n\211A@\262!!\210\361\376E\n\"!\210\361\376C\n\"!\210\361\377M!!\210\370c\210\362\n!LT\211L\202\325*\201N c\210F\204\263\201O \210\201P \201Q \n!\211@\262\201Q \n!\3138\262\201R \201S \201T %c\210\201P \n\211@\262\n\3138\262\201U \201S \201T %c\210\201P \201V \n!\211@\262\201V \n!\3138\262\201W \201S \201T %c\210\201X c\210\201Y \210\201Z c\210\201Y \210\201[ c\210\201Y \210\201\\ c\210\201Y \210\201] c\210\357 \210\201^ c\210\361\362\n\371\" K\n\211@\262K\211@\262U\203\344\363\364\365\n\211@\262!\n\3138\262#\202/\n\3138\262K\3138\262U\203\363\366\365\n\211@\262!\365K\211@\262!\n\3138\262$\202/\363\367\365\n\211@\262!\n\3138\262\365K\211@\262!K\3138\262%)!\210\370c\210\313\315 L JLJW\203\202\201_ c\210\361\373\374\n!!!\210\361\375\n\211A@\262!!\210\361\376E\n\"!\210\361\376C\n\"!\210\361\377M!!\210\370c\210\362\n!LT\211L\202=*\313\315 L JLJW\203\320\201` c\210\361\373\374\n!!!\210\361\375\n\211A@\262!!\210\361\376E\n\"!\210\361\376C\n\"!\210\361\377M!!\210\370c\210\362\n!LT\211L\202\213*ISU\204\344\201a \201b !\210\357 \210IT\211I\202J*\201c \210\201a \201d !.\207" [n event date month year day 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 d1 d2 cal-tex-holidays holidays cal-tex-diary diary-list filofax cal-tex-righthead cal-tex-lefthead i --dotimes-limit-- d _jdummy cal-tex-daily-string "\\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] 22 (#$ . 47553)]) #@408 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. (defalias 'cal-tex-cursor-week2-summary #[(&optional n event) "\302 \"\207" [n event cal-tex-weekly-common] 3 (#$ . 52657) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@318 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. (defalias 'cal-tex-cursor-filofax-2week #[(&optional n event) "\204 \306\307\310 \311\312\n\"\211\3138\262\314\315U\203 \316\317!\202`\315V\203\226 S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\201 \211\322\323_\\\324\245Z\262\211\315W\203b \325!S\262\211\323\246\315U\205x \211\326\246\315U?\206x \211\327\246\315U\262\203\201 \211T\262\266\203\262\330_\323\245\326\245[\327\245%\202`\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\363 \211\322\323_\\\324\245Z\262\211\315W\203\324 \325!S\262\211\323\246\315U\205\352 \211\326\246\315U?\206\352 \211\327\246\315U\262\203\363 \211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Z\211\322\323_\\\324\245Z\262\211\315W\203;\325!S\262\211\323\246\315U\205Q\211\326\246\315U?\206Q\211\327\246\315U\262\203Z\211T\262\266\203\262&\266\203\"!\211\211@\262 \3138\262 \211A@\262 @ \211\3138\262\314\315U\203\216\316\317!\202\316\315V\203S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\357\211\322\323_\\\324\245Z\262\211\315W\203\320\325!S\262\211\323\246\315U\205\346\211\326\246\315U?\206\346\211\327\246\315U\262\203\357\211T\262\266\203\262\330_\323\245\326\245[\327\245%\202\316\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203a\211\322\323_\\\324\245Z\262\211\315W\203B\325!S\262\211\323\246\315U\205X\211\326\246\315U?\206X\211\327\246\315U\262\203a\211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\310\211\322\323_\\\324\245Z\262\211\315W\203\251\325!S\262\211\323\246\315U\205\277\211\326\246\315U?\206\277\211\327\246\315U\262\203\310\211T\262\266\203\262&\266\203 A\333_A\\ BC\205\345\334AB\" DE\205\362\335AB\" F\336\337!\210\340 \210Gc\210\341\342\343\"\210Hc\210\341\344\343\"\210\345 \210\346\347\350\"\210\315 I JIJW\203$\351I\313\"\315U\2033\352c\210\2026\353c\210\354\355 \356\" K \211@\262K\211@\262U\203_\357\360\361 \211@\262! \3138\262#\202\252 \3138\262K\3138\262U\203\213\357\362\361 \211@\262!\361K\211@\262! \3138\262$\202\252\357\363\361 \211@\262! \3138\262\361K\211@\262!K\3138\262%)!\210\364c\210\333\315 L JLJW\203 \351I\313\"\315U\203\316\365c\210\202\321\366c\210\354\367\370 !!!\210\354\371 \211A@\262!!\210\354\372F \"!\210\354\372D \"!\210\354\373M!!\210\364c\210\355 !LT\211L\202\270*ISU\204\374\375!\210\376 \210IT\211I\202 *\377 \210\374\201N !.\207" [n calendar-week-start-day event date month year 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 day d1 d2 cal-tex-holidays holidays cal-tex-diary diary-list cal-tex-righthead cal-tex-lefthead i --dotimes-limit-- d _jdummy cal-tex-daily-string cal-tex-hook] 22 (#$ . 53265) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@346 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. (defalias 'cal-tex-cursor-filofax-week #[(&optional n event) "\302 \303#\207" [n event cal-tex-weekly-common t] 4 (#$ . 57208) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@386 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. (defalias 'cal-tex-cursor-filofax-daily #[(&optional n event) "\204 \306\307\310\306\311\312 \"\211\3138\262\314\315U\203 \316\317!\202`\315V\203\226 S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\201 \211\322\323_\\\324\245Z\262\211\315W\203b \325!S\262\211\323\246\315U\205x \211\326\246\315U?\206x \211\327\246\315U\262\203\201 \211T\262\266\203\262\330_\323\245\326\245[\327\245%\202`\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\363 \211\322\323_\\\324\245Z\262\211\315W\203\324 \325!S\262\211\323\246\315U\205\352 \211\326\246\315U?\206\352 \211\327\246\315U\262\203\363 \211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Z\211\322\323_\\\324\245Z\262\211\315W\203;\325!S\262\211\323\246\315U\205Q\211\326\246\315U?\206Q\211\327\246\315U\262\203Z\211T\262\266\203\262&\266\203\"!\211\211@\262\n\3138\262 \n\211A@\262 \n\211\3138\262\314\315U\203\215\316\317!\202\315\315V\203S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\356\211\322\323_\\\324\245Z\262\211\315W\203\317\325!S\262\211\323\246\315U\205\345\211\326\246\315U?\206\345\211\327\246\315U\262\203\356\211T\262\266\203\262\330_\323\245\326\245[\327\245%\202\315\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203`\211\322\323_\\\324\245Z\262\211\315W\203A\325!S\262\211\323\246\315U\205W\211\326\246\315U?\206W\211\327\246\315U\262\203`\211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\307\211\322\323_\\\324\245Z\262\211\315W\203\250\325!S\262\211\323\246\315U\205\276\211\326\246\315U?\206\276\211\327\246\315U\262\203\307\211T\262\266\203\262&\266\203 ?\333_?\\ @A\205\344\334?@\" BC\205\361\335?@\" D\336\337!\210\340 \210Ec\210\341\342!\210\341\343!\210Fc\210\341\344!\210\345c\210\346 \210\347\350\351\"\210\315 G HGHW\203\323\315 I HIHW\203\230I\313\246\315U\211 J\203E\352\202F\353c\210\354\355\n!!\210\356c\210J\203Z\357\202[\360c\210)\354\361D\n\"!\210\354\361B\n\362\312$!\210\354\363K!!\210\356c\210L\203\205\364c\210\202\210\365c\210\366 \210\367\n!IT\211I\202/*\356c\210\313\315 M HMHW\203\355\353c\210\354\355\n!!\210\370c\210\354\361D\n\"!\210\354\361B\n\362\312$!\210\354\363K!!\210\356c\210L\203\335\364c\210\202\340\371c\210\367\n!MT\211M\202\244*L\204\366\372c\210GSU\204\373\374!\210\366 \210GT\211G\202!*\375 \210\373\376!.\207" [n event date month year day 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 d1 d2 cal-tex-holidays holidays cal-tex-diary diary-list cal-tex-righthead cal-tex-lefthead i --dotimes-limit-- j even cal-tex-daily-string cal-tex-rules _jdummy] 22 (#$ . 57758) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@320 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. (defalias 'cal-tex-cursor-day #[(&optional n event) "\204 \305\306\307 \"\211\3108\262\311\312U\203 \313\314!\202]\312V\203\223 S\262\315\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\205u \211\323\246\312U?\206u \211\324\246\312U\262\203~ \211T\262\266\203\262\325_\320\245\323\245[\324\245%\202]\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\360 \211\317\320_\\\321\245Z\262\211\312W\203\321 \322!S\262\211\320\246\312U\205\347 \211\323\246\312U?\206\347 \211\324\246\312U\262\203\360 \211T\262\266\203\262\325_\320\245\323\245[\324\245\327\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\203\262&\266\203\330\331!\210\332\333!\210\334 \210\335\336\337\"\210\312 \fW\203\234\340\341!\210\342\343\n!!\210\nT SU\204\225\344 \210\345\346!\210 T\211\202u*\347 \210\345\350!)\207" [n event date i --dotimes-limit-- 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] 19 (#$ . 61952) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)]) #@213 Make a calendar page for Gregorian DATE 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'. (defalias 'cal-tex-daily-page #[(date) "\306\211@\262! S\307 \310\311!\210\312\313\314\"\210\315\316\317\"\210\320\321\211\322#\210\323\324\211A@\262!!\210\325\326!\210\327\f!\210\330 \210\331\332!\210\333\334 !!\210\331\335!\210\336 \210\337 \210\312\313\340\"\210\327\341\342!!!\210\336 \210\325 \210\331\343!\210\320\321\344\345#\210\325\346!\210 T\211@X\203\301 \347\350!\210A\203\203 \202\207 \351 \352\"\211\353U\203\220 \352\312\332\354\"\210\355\324\n!!\210\336 \210\320\321\356\357#\210\325\360!\210\312\332\354\"\210\355\361!\210\336 \210\320\321\356\357#\210\325\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\310\201B !+\207" [date cal-tex-daily-start hour i month-name cal-tex-daily-string 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 "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" "}" cal-tex-daily-end cal-tex-24 "end of cal-tex-daily-page"] 7 (#$ . 63878)]) #@212 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"). (defalias 'cal-tex-mini-calendar #[(month year name width height &optional ptsize colsep) "\204 \306 \204\f \307\310\311\n\312 E!\fZ\313\"\n \314U\203M \211\211\315W\203, \316!S\262\211\317\246\315U\205B \211\320\246\315U?\206B \211\321\246\315U\262\203M \322\266\202\202S \323SH\266\202\324 \325)\326*\327)\330 \331\332\332\332\332\332\333\334\n!\335\336 !\337\260 + , -\313\315 . /./W\203\265 +\340\3410\310\f.\\\313\"H\315\314#!.\342U\203\250 \343\202\251 \344Q+.T\211.\202\205 *-\315 1 /1/W\203\324 +\344P+1T\2111\202\277 *,\315 . /./W\203 +\336.T!P\211+\310\345.\312-#\313\"\315U\203.,SU\203 \346\202\347\202\344P+.T\211.\202\336 *+\350P\211++\207" [colsep ptsize month year calendar-week-start-day name "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 substring 6 "\\\\[0.7mm]\n" " & " + "" "\\\\[0.5mm]\n" "\n\\end{tabular}\\hfil}\\vfil}}}%\n" width height str last blank-days i --dotimes-limit-- calendar-day-name-array _idummy] 30 (#$ . 65752)]) #@92 The date of the day following DATE. If optional N is given, the date of N days after DATE. (defalias 'cal-tex-incr-date #[(date &optional n) "\302\206 \303 \211\3048\262\305\306U\203 \307\310!\202Z\306V\203\220 S\262\311\211\211@\262\211A@\262\3048\262\312S_\\\304V\203{ \211\313\314_\\\315\245Z\262\211\306W\203\\ \316!S\262\211\314\246\306U\205r \211\317\246\306U?\206r \211\320\246\306U\262\203{ \211T\262\266\203\262\321_\314\245\317\245[\320\245%\202Z\316T!\262\322\211\211@\262\211A@\262\3048\262\312S_\\\304V\203\355 \211\313\314_\\\315\245Z\262\211\306W\203\316 \316!S\262\211\314\246\306U\205\344 \211\317\246\306U?\206\344 \211\320\246\306U\262\203\355 \211T\262\266\203\262\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3048\262\312S_\\\304V\203T\211\313\314_\\\315\245Z\262\211\306W\2035\316!S\262\211\314\246\306U\205K\211\317\246\306U?\206K\211\320\246\306U\262\203T\211T\262\266\203\262&\266\203\\!\207" [n date 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)] 20 (#$ . 67308)]) #@244 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. (defalias 'cal-tex-latexify-list #[(date-list date &optional separator final-separator) "\204 \306\307\310\311\n\307\211 \203/ \f@\211@\203( \312 @\"\203( A@ B\fA\211\204 \307\313 !*# \203I \314\230\204I P\202J )\207" [separator result date-list d --dolist-tail-- date "\\\\" nil mapconcat #[(x) "\301!\207" [x cal-tex-LaTeXify-string] 2] calendar-date-equal reverse "" final-separator] 6 (#$ . 68476)]) #@65 Return the date of the first day in the month previous to DATE. (defalias 'cal-tex-previous-month #[(date) "\211@\262\3058\262\306\307 \310W\203 T\311 \f_\n\312\211$\313 \f\"T \f\245 \310W\203< \n\314V\203< S \314W\203E S*\n\314 E*\207" [date year month macro-y nmonths 2 12 nil 0 + -1 mod 1] 5 (#$ . 69149)]) #@63 Return the date of the first day in the month following DATE. (defalias 'cal-tex-next-month #[(date) "\211@\262\3058\262\306\307 \310W\203 T\311 \f_\n\312\313$\314 \f\"T \f\245 \310W\203< \n\313V\203< S \313W\203E S*\n\313 E*\207" [date year month macro-y nmonths 2 12 nil 0 + -1 1 mod] 5 (#$ . 69484)]) #@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 #[nil "\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\321!!\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 format " 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 (#$ . 69814)]) #@398 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. (defalias 'cal-tex-insert-preamble #[(weeks &optional class-options append) "\205 \306\307\"\310\311\211\203 \n \f) \204R \312!\210 \2040 \313\314!\210\313\315\316\"\210\202@ \313\317!\210\313\320!\210\321 \210\313\315\322\"\210\313 !\210\313!!\210\323 \210\313\324\325\"\210\313\326\n\"\210\327\330\331\"G\245\"c\210\313\332 \"\210\327\333\334#\245\"c\210\313\335!\210\336\337!+\207" [class-options height width landscape swap append string-match "\\<landscape\\>" "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" cal-tex-caldate cal-tex-myday cal-tex-which-days weeks] 5 (#$ . 70493)]) #@48 Alist of symbols and their LaTeX replacements. (defconst cal-tex-LaTeX-subst-list '(("\"" . "``") ("\"" . "''") ("&" . "\\&") ("%" . "\\%") ("$" . "\\$") ("#" . "\\#") ("_" . "\\_") ("{" . "\\{") ("}" . "\\}") ("<" . "$<$") (">" . "$>$") ("\n" . "\\ \\\\")) (#$ . 71841)) #@50 Protect special characters in STRING from LaTeX. (defalias 'cal-tex-LaTeXify-string #[(string) "\204 \306\207\306 \307\211 \306\230\204G \310 \311\312#\313 \f\"\211\2030 \314\230\2030 \315\f!\310 \312\"\n\203@ \nA\202A P\202 -\207" [string cal-tex-LaTeX-subst-list pair ch list tail "" nil substring-no-properties 0 1 assoc "\"" reverse head] 6 (#$ . 72119)]) #@33 The name of MONTH, LaTeX-ified. (defalias 'cal-tex-month-name #[(month) "\301\302!!\207" [month cal-tex-LaTeXify-string calendar-month-name] 3 (#$ . 72507)]) #@15 Insert hfill. (defalias 'cal-tex-hfill #[nil "\300c\207" ["\\hfill"] 1 (#$ . 72672)]) #@17 Insert newpage. (defalias 'cal-tex-newpage #[nil "\300c\207" ["\\newpage%\n"] 1 (#$ . 72764)]) #@18 Insert noindent. (defalias 'cal-tex-noindent #[nil "\300c\207" ["\\noindent"] 1 (#$ . 72865)]) #@49 Insert vspace command to move SPACE vertically. (defalias 'cal-tex-vspace #[(space) "\301\302\"\207" [space cal-tex-cmd "\\vspace*"] 3 (#$ . 72966)]) #@51 Insert hspace command to move SPACE horizontally. (defalias 'cal-tex-hspace #[(space) "\301\302\"\207" [space cal-tex-cmd "\\hspace*"] 3 (#$ . 73123)]) #@144 Insert "% ", followed by optional string COMMENT, followed by newline. COMMENT may contain newlines, which are prefixed by "% " in the output. (defalias 'cal-tex-comment #[(&optional comment) "\301\302\203 \303\304\305#\202 \306\"c\207" [comment format "%% %s\n" replace-regexp-in-string "\n" "\n% " ""] 6 (#$ . 73283)]) #@50 Insert string COMMENT, separated by blank lines. (defalias 'cal-tex-banner #[(comment) "\301\302\303\"!\207" [comment cal-tex-comment format "\n\n\n %s\n"] 4 (#$ . 73614)]) #@91 End a line with \. If SKIP, then add that much spacing. Add trailing COMMENT if present. (defalias 'cal-tex-nl #[(&optional skip comment) "\302\303\203 \302\304\"\202 \305\"c\210\306 !\207" [skip comment format "\\\\%s" "[%s]" "" cal-tex-comment] 5 (#$ . 73796)]) #@61 Insert a brace {} pair containing the optional string TEXT. (defalias 'cal-tex-arg #[(&optional text) "\301\302\206 \303\"c\207" [text format "{%s}" ""] 3 (#$ . 74071)]) #@63 Insert LaTeX CMD, with optional argument ARG, and end with %. (defalias 'cal-tex-cmd #[(cmd &optional arg) "c\210\302 !\210\303 \207" [cmd arg cal-tex-arg cal-tex-comment] 2 (#$ . 74249)]) #@31 Insert beginning of document. (defalias 'cal-tex-b-document #[nil "\300\301\302\"\207" [cal-tex-cmd "\\begin" "document"] 3 (#$ . 74445)]) #@25 Insert end of document. (defalias 'cal-tex-e-document #[nil "\300\301\302\"\207" [cal-tex-cmd "\\end" "document"] 3 (#$ . 74590)]) #@37 Insert beginning of centered block. (defalias 'cal-tex-b-center #[nil "\300\301\302\"\207" [cal-tex-cmd "\\begin" "center"] 3 (#$ . 74727)]) #@31 Insert end of centered block. (defalias 'cal-tex-e-center #[nil "\300 \210\301\302\303\"\207" [cal-tex-comment cal-tex-cmd "\\end" "center"] 3 (#$ . 74874)]) #@51 Insert parbox with parameters POSITION and WIDTH. (defalias 'cal-tex-b-parbox #[(position width) "\302\303 \304\261\210\305 \207" [position width "\\parbox[" "]{" "}{" cal-tex-comment] 5 (#$ . 75038)]) #@67 Insert end of parbox. Optionally, force it to be a given HEIGHT. (defalias 'cal-tex-e-parbox #[(&optional height) "\301 \210\203 \302\303\211#\210\304c\210\301\305!\207" [height cal-tex-comment cal-tex-rule "0mm" "}" "end parbox"] 4 (#$ . 75248)]) #@59 Insert framebox with parameters WIDTH and POSITION (clr). (defalias 'cal-tex-b-framebox #[(width position) "\302\303 \304\261\210\305 \207" [width position "\\framebox[" "][" "]{" cal-tex-comment] 5 (#$ . 75506)]) #@25 Insert end of framebox. (defalias 'cal-tex-e-framebox #[nil "\300 \210\301c\210\300\302!\207" [cal-tex-comment "}" "end framebox"] 2 (#$ . 75728)]) #@58 Insert makebox with parameters WIDTH and POSITION (clr). (defalias 'cal-tex-b-makebox #[(width position) "\302\303 \304\261\210\305 \207" [width position "\\makebox[" "][" "]{" cal-tex-comment] 5 (#$ . 75882)]) #@24 Insert end of makebox. (defalias 'cal-tex-e-makebox #[nil "\300 \210\301c\210\300\302!\207" [cal-tex-comment "}" "end makebox"] 2 (#$ . 76101)]) #@51 Insert a rule with parameters LOWER WIDTH HEIGHT. (defalias 'cal-tex-rule #[(lower width height) "\303\304 \305\n\306\261\207" [lower width height "\\rule[" "]{" "}{" "}"] 7 (#$ . 76252)]) #@31 Insert STRING in italic font. (defalias 'cal-tex-em #[(string) "\301\302\"\207" [string cal-tex-cmd "\\textit"] 3 (#$ . 76449)]) #@27 Insert STRING in bf font. (defalias 'cal-tex-bf #[(string) "\301\302\"\207" [string cal-tex-cmd "\\textbf"] 3 (#$ . 76585)]) #@35 Insert STRING in scriptsize font. (defalias 'cal-tex-scriptsize #[(string) "\301\302P!\207" [string cal-tex-arg "\\scriptsize "] 3 (#$ . 76717)]) #@29 Insert STRING in huge font. (defalias 'cal-tex-huge #[(string) "\301\302P!\207" [string cal-tex-arg "\\huge "] 3 (#$ . 76870)]) #@29 Insert STRING in Huge font. (defalias 'cal-tex-Huge #[(string) "\301\302P!\207" [string cal-tex-arg "\\Huge "] 3 (#$ . 77005)]) #@32 Insert STRING in Huge bf font. (defalias 'cal-tex-Huge-bf #[(string) "\301\302\303P\"\207" [string cal-tex-cmd "\\textbf" "\\Huge "] 4 (#$ . 77140)]) #@30 Insert STRING in large font. (defalias 'cal-tex-large #[(string) "\301\302P!\207" [string cal-tex-arg "\\large "] 3 (#$ . 77297)]) #@33 Insert STRING in large bf font. (defalias 'cal-tex-large-bf #[(string) "\301\302\303P\"\207" [string cal-tex-cmd "\\textbf" "\\large "] 4 (#$ . 77435)]) (provide 'cal-tex)
Close
