;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:15 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/calendar/cal-tex.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cal-tex.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306$\210\302\307\310\305\306$\210\302\311\312\305\306$\207" [require calendar autoload list-diary-entries "diary-lib" nil t calendar-holiday-list "holidays" calendar-iso-from-absolute "cal-iso"] 5) #@279 *The days of the week that are displayed on the portrait monthly calendar. Sunday is 0, Monday is 1, and so on. The default is to print from Sunday to Saturday. For example, use (setq cal-tex-which-days '(1 3 5)) to only print Monday, Wednesday, Friday. (custom-declare-variable 'cal-tex-which-days ''(0 1 2 3 4 5 6) '(#$ . -866) :type '(repeat integer) :group 'calendar-tex) #@108 *If t (default), then the holidays are also printed. If finding the holidays is too slow, set this to nil. (custom-declare-variable 'cal-tex-holidays 't '(#$ . -1273) :type 'boolean :group 'calendar-tex) #@55 *If t, the diary entries are printed in the calendar. (custom-declare-variable 'cal-tex-diary 'nil '(#$ . -1483) :type 'boolean :group 'calendar-tex) #@44 *If t, pages will be ruled in some styles. (custom-declare-variable 'cal-tex-rules 'nil '(#$ . -1639) :type 'boolean :group 'calendar-tex) #@534 *An expression in the variable `date' whose value is placed on date. The string resulting from evaluating this expression is placed at the bottom center of `date' on the monthly calendar, next to the date in the weekly calendars, and in the top center of daily calendars. Default is ordinal day number of the year and the number of days remaining. As an example of what you do, setting this to '(progn (require 'cal-hebrew) (calendar-hebrew-date-string date)) will put the Hebrew date at the bottom of each day. (custom-declare-variable 'cal-tex-daily-string ''(let* ((year (extract-calendar-year date)) (day (calendar-day-number date)) (days-remaining (- (calendar-day-number (list 12 31 year)) day))) (format "%d/%d" day days-remaining)) '(#$ . -1785) :type 'sexp :group 'calendar-tex) #@36 *The name for the tex-ed calendar. (custom-declare-variable 'cal-tex-buffer '"calendar.tex" '(#$ . -2600) :type 'string :group 'calendar-tex) #@51 *If t, use a 24 hour clock in the daily calendar. (custom-declare-variable 'cal-tex-24 'nil '(#$ . -2748) :type 'boolean :group 'calendar-tex) #@45 *The first hour of the daily calendar page. (custom-declare-variable 'cal-tex-daily-start '8 '(#$ . -2897) :type 'integer :group 'calendar-tex) #@44 *The last hour of the daily calendar page. (custom-declare-variable 'cal-tex-daily-end '20 '(#$ . -3047) :type 'integer :group 'calendar-tex) #@102 The initial LaTeX code for a day. The holidays, diary entries, bottom string, and the text follow. (defvar cal-tex-day-prefix "\\caldate{%s}{%s}" (#$ . 3196)) #@94 The format for LaTeX code for a day name. The names are taken from calendar-day-name-array. (defvar cal-tex-day-name-format "\\myday{%s}%%" (#$ . 3363)) #@33 LaTeX code for the month header (defvar 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" (#$ . 3523)) #@33 LaTeX code for the month header (defvar 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" (#$ . 3730)) #@30 LaTeX code for a day heading (defvar cal-tex-myday "\\renewcommand{\\myday}[1]%\n{\\makebox[\\cellwidth]{\\hfill\\large\\bf#1\\hfill}}\n%\n" (#$ . 3938)) #@104 LaTeX code to insert one box with date info in calendar. This definition is the heart of the calendar! (defvar 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" (#$ . 4099)) #@62 Generate a list of all holidays from absolute date D1 to D2. (defalias 'cal-tex-list-holidays #[(d1 d2) "\306!\211\211@) \211AA@)\306 !\211\211@)\211AA@)\307 \f$\310\245T\311\311\f\312_ \\\211\312\246T\312\245)\313T\211Y\203{\314\315 \"\f\312_ \\\316\\\211\312\246T\312\245)\202P)\203\320@@\203\307@@\317\n!S\320\n!\321_\\\322\245\\\323\245[\\\324\245\\*X\205\271 X)\203\307\314@C\"A\211\204\201. \207" [d1 start date displayed-month displayed-year d2 calendar-gregorian-from-absolute calendar-interval 3 nil 12 0 append calendar-holiday-list 2 extract-calendar-year calendar-day-number 365 4 100 400 end end-month end-year number-of-intervals holidays in-range macro-y i prior-years a] 6 (#$ . 4885)]) #@67 Generate a list of all diary-entries from absolute date D1 to D2. (defalias 'cal-tex-list-diary-entries #[(d1 d2) "\304\305\306\307\n! \nZT\"*\207" [diary-display-hook diary-list-include-blanks d1 d2 nil ignore list-diary-entries calendar-gregorian-from-absolute] 4 (#$ . 5687)]) #@122 Insert the LaTeX preamble. Preamble Includes initial definitions for various LaTeX commands. Optional ARGS are included. (defalias 'cal-tex-preamble #[(&optional args) "\302!q\210\303 \210\304c\210 \203\305 \306\261\210\307\310\261\207" [cal-tex-buffer args get-buffer-create erase-buffer "\\documentstyle" "[" "]" "{article}\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"] 3 (#$ . 5976)]) #@114 Make a buffer with LaTeX commands for the year cursor is on. Optional prefix argument specifies number of years. (defalias 'cal-tex-cursor-year #[(&optional arg) "\302\303\304!\211AA@) \203 \202\305\"\207" [date arg cal-tex-year calendar-cursor-to-date t 1] 4 (#$ . 6818) "P"]) #@114 Make a buffer with LaTeX commands for the year cursor is on. Optional prefix argument specifies number of years. (defalias 'cal-tex-cursor-year-landscape #[(&optional arg) "\302\303\304!\211AA@) \203 \202\305\304#\207" [date arg cal-tex-year calendar-cursor-to-date t 1] 5 (#$ . 7108) "P"]) #@229 Make a one page yearly calendar of YEAR; do this for N years. There are four rows of three months each, unless optional LANDSCAPE is t, in which case the calendar isprinted in landscape mode with three rows of four months each. (defalias 'cal-tex-year #[(year n &optional landscape) "\305\306\307#\210\203\310\311!\210\202\310\312!\210\313\n T\211Y\203\242\314c\210\315 \210\316\317 !!\210\320 \210\310\321!\210\315 \210\322\323\203@\324\202A\325\"\210\326c\210\327 \210\330 \210\313\331\fT\211Y\203\332\f \333\334\335%c\210\336c\210\337\340!\210\341\342\f\203r\343\202s\344\"!\203N\330\340!\210\202N)\345 \210\320 \210\314c\210 T \nU\204\230\346 \210\202\233\347 \210\350\351!\210\202)\350\352!\207" [landscape j n year i cal-tex-insert-preamble 1 "12pt" 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" zerop mod 4 3 cal-tex-e-parbox cal-tex-newpage cal-tex-end-document run-hooks cal-tex-year-hook cal-tex-hook] 6 (#$ . 7411)]) #@116 Make a Filofax one page yearly calendar of year indicated by cursor. Optional parameter specifies number of years. (defalias 'cal-tex-cursor-filofax-year #[(&optional arg) "\203\202 \306\307\310!\211AA@)\311\312!\210\313\314!\210\313\315!\210\313\316!\210\313\317!\210\313\320!\210\313\321!\210\313\322!\210\313\323!\210\324 \210\313\325!\210\326 \fT\211Y\203\244\327\330 \"c\210\331 \210\332\333\334\"\210\335c\210\336 \210\337 \210\326\340 T\211Y\203}\341 \342 !\343\344\345\346&c\210\202c)\347c\210\350 \210\351 \210 T\f U\203\226\352 \210\202\235\353 \210\313\325!\210\354\355!\210\202A)\354\356!*\207" [arg n date year j i 1 calendar-cursor-to-date t cal-tex-preamble "twoside" cal-tex-cmd "\\textwidth 3.25in" "\\textheight 6.5in" "\\oddsidemargin 1.675in" "\\evensidemargin 1.675in" "\\topmargin 0pt" "\\headheight -0.875in" "\\fboxsep 0.5mm" "\\pagestyle{empty}" cal-tex-b-document "\\vspace*{0.25in}" 0 format "\\hfil {\\Large \\bf %s} \\hfil\\\\\n" cal-tex-b-center cal-tex-b-parbox "l" "\\textwidth" "\n" cal-tex-noindent cal-tex-nl 12 cal-tex-mini-calendar calendar-month-name "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] 9 (#$ . 8593) "P"]) #@187 Make a buffer with LaTeX commands for the month cursor is on. Optional prefix argument specifies number of months to be produced. The output is in landscape format, one month to a page. (defalias 'cal-tex-cursor-month-landscape #[(&optional arg) "\203\202 \306\307\310!\211\211@)\n\211AA@) \f8\31198\312_ \\ S\\\313\\\211:\312\246T:\312\2458);\205\246\314 \306\fE\315\n!S<\316\n!\317<_\\<\320\245\\<\321\245[\\<\322\245\\* \2118\211\323U\203}\324\f!\203}\325\202\201\326 SH*8E\315\n!S<\316\n!\317<_\\<\320\245\\<\321\245[\\<\322\245\\*\"=\205\327 \306\fE\315\n!S<\316\n!\317<_\\<\320\245\\<\321\245[\\<\322\245\\* \2118\211\323U\203\346\324\f!\203\346\325\202\352\326 SH*8E\315\n!S<\316\n!\317<_\\<\320\245\\<\321\245[\\<\322\245\\*\"\330\211\211>?@AB\331\332 \f\306#\310\333#\210\334C!\210\335D DT\211DY\203) @\f\211?\312_@\\\336\\\211:\312\246T@:\312\245?)\337@?\340\341\342%c\210?\312_@\\\306\\\211:\312\246T@:\312\245?)\337@?\343\341\342%c\210\344\306 \f \f%\210\345 \210\346\347!\210\306\350\351 \306\fE!EZ\352\"W\211>\203\252\353c\210\354 \fF#\210\355 \fBAF%\210\356 \fF#\210>\204\367\306\350ES\351 \211\f\211\323U\203\343\324\f!\203\343\325\202\347\326 SH*\fE!Z\352\"W\203\367\357\360\261\210D U\204.\361\362!\210\363 \210\f\312_ \\\211:\312\246T:\312\245)\364\365!\210\331\332 \f\306#\310\333\310$\210\202.)\366 \210\361\367!.\f\207" [arg n date month year end-month 1 calendar-cursor-to-date t (0 1 2 3 4 5 6) 12 -1 cal-tex-list-diary-entries extract-calendar-year calendar-day-number 365 4 100 400 2 calendar-leap-year-p 29 [31 28 31 30 31 30 31 31 30 31 30 31] cal-tex-list-holidays nil cal-tex-insert-preamble cal-tex-number-weeks "12pt" cal-tex-cmd 0 -2 cal-tex-mini-calendar "lastmonth" "\\cellwidth" "\\cellheight" "nextmonth" cal-tex-insert-month-header cal-tex-insert-day-names cal-tex-nl ".2cm" mod 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" 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 macro-y cal-tex-diary prior-years cal-tex-holidays small-months-at-start other-year other-month holidays diary-list cal-tex-cal-one-month i calendar-week-start-day cal-tex-day-prefix] 8 (#$ . 10128) "P"]) #@168 Make a buffer with LaTeX commands for the month cursor is on. Optional prefix argument specifies number of months to be produced. Calendar is condensed onto one page. (defalias 'cal-tex-cursor-month #[(arg) "\306\307!\211\211@)\211AA@) \n \203 \202\310'\f\311_ \\'S\\\312\\\211(\311\246T(\311\245))\205\240\313 \310\nE\314!S*\315!\316*_\\*\317\245\\*\320\245[\\*\321\245\\* \211\f\211\322U\203x\323\n!\203x\324\202|\325 SH*\fE\314!S*\315!\316*_\\*\317\245\\*\320\245[\\*\321\245\\*\"+\205\326 \310\nE\314!S*\315!\316*_\\*\317\245\\*\320\245[\\*\321\245\\* \211\f\211\322U\203\337\323\n!\203\337\324\202\343\325 SH*\fE\314!S*\315!\316*_\\*\317\245\\*\320\245[\\*\321\245\\*\"\327\211,-./\330\331 \n'#\327\332#\210'\310V\203+\3330!\210\2020\3331!\210\334' \n \f%\210\335 \210\336\337!\210\340 \n2#\210\3413'3T\2113Y\203| -\n,\342 \n/.2%\210\n\311_ \\\211(\311\246T(\311\245)\202J)\343 \f2#\210\344 \210.\n\345\346!\207" [date month year end-month end-year arg calendar-cursor-to-date t 1 12 -1 cal-tex-list-diary-entries extract-calendar-year calendar-day-number 365 4 100 400 2 calendar-leap-year-p 29 [31 28 31 30 31 30 31 31 30 31 30 31] cal-tex-list-holidays nil cal-tex-insert-preamble cal-tex-number-weeks "12pt" cal-tex-cmd cal-tex-insert-month-header cal-tex-insert-day-names cal-tex-nl ".2cm" cal-tex-insert-blank-days 0 cal-tex-insert-days cal-tex-insert-blank-days-at-end cal-tex-end-document run-hooks cal-tex-hook n macro-y cal-tex-diary prior-years cal-tex-holidays other-year other-month holidays diary-list cal-tex-cal-multi-month cal-tex-cal-one-month cal-tex-day-prefix i] 7 (#$ . 12626) "P"]) #@252 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\"\312 \211\313U\203\"\314 !\203\"\315\202&\316SH*\317 T\211Y\205\211 E\307\f!>\203m\320\321!#c\210\322\323\f\"!\210\322\323\f\"!\210\322\324!!\210\322 \210\325 \210\326\306 \\\311\"!\203+ U\204+\327 \210\330 \210\202+,\207" [month year calendar-week-start-day blank-days date last mod calendar-day-of-week 1 7 nil 2 calendar-leap-year-p 29 [31 28 31 30 31 30 31 31 30 31 30 31] 0 format calendar-month-name cal-tex-arg cal-tex-latexify-list eval cal-tex-comment zerop cal-tex-hfill cal-tex-nl i cal-tex-which-days day-format diary-list holidays cal-tex-daily-string] 6 (#$ . 14336)]) #@60 Insert the names of the days at top of a monthly calendar. (defalias 'cal-tex-insert-day-names #[nil "\305\306T\211Y\205$ >\203\307\n \310\f\\\311\"H\"c\210\312 \210\202)\207" [i cal-tex-which-days cal-tex-day-name-format calendar-day-name-array calendar-week-start-day -1 6 format mod 7 cal-tex-comment] 6 (#$ . 15321)]) #@143 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 calendar-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 (#$ . 15660)]) #@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 \"\2053\307\310\311 E!\nZ\312\"\313 S\fT\211Y\2052\f >\203\314\315\211#\316\261\210\202*\207" [month year calendar-week-start-day blank-days i cal-tex-which-days cal-tex-first-blank-p mod calendar-day-of-week 1 7 -1 format " " "{}{}{}{}%\n" day-format] 5 (#$ . 16178)]) #@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 \"\205O \211\307U\203\310 !\203\311\202\312SH*\313\314\n E! Z\315\"\211TS\316 T\211Y\205N >\2031\317\320\211#\321\261\210\2021+\207" [month year last-day calendar-week-start-day blank-days i cal-tex-last-blank-p 2 calendar-leap-year-p 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 (#$ . 16754)]) #@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) "\306\211\307\310\nT\211Y\203\311 \n\fE!\312U\203\n\202)\307\nT\211Y\203;\311 \n\fE! >\203\"\313\202\") *\207" [the-saturday any-days i month year cal-tex-which-days nil 0 7 calendar-day-of-week 6 t] 4 (#$ . 17394)]) #@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) "\306 \211\307U\203\310 !\203\311\202\312SH*\306 \313ZS T\211Y\203<\314 E!\315U\203# \202#)\nS T\211Y\203Z\314 E!>\203@\316\202@)\f+\207" [month year the-sunday last-day any-days i nil 2 calendar-leap-year-p 29 [31 28 31 30 31 30 31 31 30 31 30 31] 6 calendar-day-of-week 0 t cal-tex-which-days] 5 (#$ . 17848)]) #@233 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_\\ S\\\310\\\211\307\246T\f\307\245)\311 \211 \211\312U\203G \313 \314\246!\205?\313 \315\246!?\206?\313 \316\246!)\203G\317\202K\320SH* E\211\211AA@)S\321!\322!\323!\324S_\\\312V\203\225\325\314_\\\326\245Z\327 !\203\225T-\330_\\\314\245\\\315\245[\\\316\245\\*\331\\\"\311 \n\323!S\332!\330_\\\314\245\\\315\245[\\\316\245\\*\"Z\331\245)\207" [month year d n macro-y calendar-week-start-day 1 12 -1 calendar-dayname-on-or-before 2 zerop 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] extract-calendar-month extract-calendar-day extract-calendar-year 31 23 10 calendar-leap-year-p 365 7 calendar-day-number date prior-years day day-of-year] 7 (#$ . 18410)]) #@212 Make a buffer with LaTeX commands for a two-page one-week calendar. It applies to the week that point is in. Optional prefix argument specifies number of weeks. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-cursor-week #[(&optional arg) "\203\202 \306\307\310\n\311\312!\313 !S\314 !\315\f_\\\f\316\245\\\f\317\245[\\\f\320\245\\*\"!\211\211@) \211AA@)78\205\200\321 \313 !S\314 !\315\f_\\\f\316\245\\\f\317\245[\\\f\320\245\\* \322_ \313 !S\314 !\315\f_\\\f\316\245\\\f\317\245[\\\f\320\245\\*\\\"9\323\324!\210\325\326!\210\325\327!\210\325\330!\210\325\331!\210:c\210\332 \210\325\333!\210\334; ;T\211;Y\203\335\336!\210\337 \210\340\341\342\343 !\"!\210\344\345!\210\340\3467!!\210\347\350!\210\351 \210\344\352!\210\353\354\355\"\210\334<\322?\205\321\323 \306;E\313 !S\314 !\315\f_\\\f\316\245\\\f\317\245[\\\f\320\245\\* \322_ \313 !S\314 !\315\f_\\\f\316\245\\\f\317\245[\\\f\320\245\\*\\\"@\324\325!\210\326\327!\210\326\330!\210\326\331!\210\326\332!\210\326\333!\210\326\334!\210\326\335!\210\326\336!\210\337c\210\340 \210\326\341!\210\342A AT\211AY\203\343A\344\"\306U\203\345c\210\202\"\346c\210\347\350 \351\"B \211@)B\211@)U\203L\352\353\354 \211@)! \211AA@)#\202\234 \211AA@)B\211AA@)U\203{\352\355\354 \211@)!\354B\211@)! \211AA@)$\202\234\352\356\354 \211@)! \211AA@)\354B\211@)!B\211AA@)%)!\210\357c\210\342C\322CT\211CY\203\365\343A\344\"\306U\203\300\360c\210\202\303\361c\210\347\362 !!\210\347\363 \211A@)!!\210\347\364@ \"!\210\347\364> \"!\210\347\365D!!\210\357c\210\350 !\202\245)A U\204\366\367!\210\370 \210\202)\371 \210\366\372!.\207" [arg n calendar-week-start-day date prior-years month 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t extract-calendar-year calendar-day-number 365 4 100 400 cal-tex-list-holidays 7 cal-tex-list-diary-entries cal-tex-preamble "twoside" cal-tex-cmd "\\textwidth 3.25in" "\\textheight 6.5in" "\\oddsidemargin 1.75in" "\\evensidemargin 1.5in" "\\topmargin 0pt" "\\headheight -0.875in" "\\headsep 0.125in" "\\footskip .125in" "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}\n\\long\\def\\rightday#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to 0.7in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%\n \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}\n\\long\\def\\leftday#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to 0.7in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}%\n \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n" cal-tex-b-document "\\pagestyle{empty}" 0 mod 2 "\\righthead" "\\lefthead" cal-tex-arg cal-tex-incr-date 6 format "%s %s" calendar-month-name "%s---%s %s" "%s %s---%s %s" "%\n" "\\rightday" "\\leftday" calendar-day-name int-to-string cal-tex-latexify-list eval run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-hook year day cal-tex-holidays holidays cal-tex-diary diary-list i d j cal-tex-daily-string] 8 (#$ . 29673) "P"]) #@253 One-week-at-a-glance Filofax style calendar for week indicated by cursor. Optional prefix argument specifies number of weeks. Weeks start on Monday. Diary entries are included if `cal-tex-diary' is t. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-cursor-filofax-week #[(&optional arg) "\203\202 \306\307\310\306\311\312!\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\*\"!\211\211@)\n\211AA@)\n\211A@)<=\205\207\321\n\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\* \322_\n\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\*\\\">?\205\317\323\f\306 E\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\* \322_\n\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\*\\\"@\324\325!\210\326\327!\210\326\330!\210\326\331!\210\326\332!\210\326\333!\210\326\334!\210\326\335!\210\326\336!\210\337c\210\340 \210\326\341!\210\342 \210\343A AT\211AY\203\371\344c\210\345\346\n\347\"B\n\211@)B\211@)U\203=\350\351\352\n\211@)!\n\211AA@)#\202\215\n\211AA@)B\211AA@)U\203l\350\353\352\n\211@)!\352B\211@)!\n\211AA@)$\202\215\350\354\352\n\211@)!\n\211AA@)\352B\211@)!B\211AA@)%)!\210\355c\210\343C\356CT\211CY\203\326\357c\210\345\360\n!!\210\345\361\n\211A@)!!\210\345\362@\n\"!\210\345\362>\n\"!\210\345\363D!!\210\355c\210\346\n!\202\226)\364c\210\342 \210\365c\210\345\346\n\356\"B\n\211@)B\211@)U\203\n\350\351\352\n\211@)!\n\211AA@)#\202Z\n\211AA@)B\211AA@)U\2039\350\353\352\n\211@)!\352B\211@)!\n\211AA@)$\202Z\350\354\352\n\211@)!\n\211AA@)\352B\211@)!B\211AA@)%)!\210\355c\210\343C\347CT\211CY\203\243\366c\210\345\360\n!!\210\345\361\n\211A@)!!\210\345\362@\n\"!\210\345\362>\n\"!\210\345\363D!!\210\355c\210\346\n!\202c)\343C\347CT\211CY\203\347\367c\210\345\360\n!!\210\345\361\n\211A@)!!\210\345\362@\n\"!\210\345\362>\n\"!\210\345\363D!!\210\355c\210\346\n!\202\247)A U\204\370\371!\210\342 \210\202)\372 \210\370\373!.\207" [arg n date prior-years month year 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t extract-calendar-year calendar-day-number 365 4 100 400 cal-tex-list-holidays 7 cal-tex-list-diary-entries cal-tex-preamble "twoside" cal-tex-cmd "\\textwidth 3.25in" "\\textheight 6.5in" "\\oddsidemargin 1.75in" "\\evensidemargin 1.5in" "\\topmargin 0pt" "\\headheight -0.875in" "\\headsep 0.125in" "\\footskip .125in" "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}\n\\long\\def\\rightday#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to 1.85in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%\n \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n\\long\\def\\weekend#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to .8in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%\n \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}\n\\long\\def\\leftday#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to 1.85in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}%\n \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n" cal-tex-b-document "\\pagestyle{empty}\\ " cal-tex-newpage 0 "\\lefthead" cal-tex-arg cal-tex-incr-date 2 format "%s %s" calendar-month-name "%s---%s %s" "%s %s---%s %s" "%\n" 3 "\\leftday" calendar-day-name int-to-string cal-tex-latexify-list eval "\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n" "\\righthead" "\\rightday" "\\weekend" run-hooks cal-tex-week-hook cal-tex-end-document cal-tex-hook day cal-tex-holidays holidays cal-tex-diary diary-list i d j cal-tex-daily-string] 8 (#$ . 32988) "P"]) #@287 Day-per-page Filofax style calendar for week indicated by cursor. Optional prefix argument specifies number of weeks. Weeks start on Monday. Diary entries are included if `cal-tex-diary' is t. Holidays are included if `cal-tex-holidays' is t. Pages are ruled if `cal-tex-rules' is t. (defalias 'cal-tex-cursor-filofax-daily #[(&optional arg) "\203\202 \306\307\310\306\311\312!\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\*\"!\211\211@)\n\211AA@)\n\211A@):;\205\207\321\n\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\* \322_\n\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\*\\\"<=\205\317\323\f\306 E\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\* \322_\n\313\n!S\314\n!\315 _\\ \316\245\\ \317\245[\\ \320\245\\*\\\">\324\325!\210\326\327!\210\326\330!\210\326\331!\210\326\332!\210\326\333!\210\326\334!\210\326\335!\210\326\336!\210\337c\210\340 \210\326\341!\210\342? ?T\211?Y\203\342\342@\343@T\211@Y\203y@\344\246\342U?\211A\203,\345\202-\346c\210\347\350\n!!\210\351c\210A\203A\352\202B\353c\210)\347\354>\n\"!\210\347\354<\n\355\312$!\210\347\356B!!\210\351c\210C\203l\357c\210\202o\360c\210\361 \210\362\n!\202)\351c\210\342@\344@T\211@Y\203\310\346c\210\347\350\n!!\210\363c\210\347\354>\n\"!\210\347\354<\n\355\312$!\210\347\356B!!\210\351c\210C\203\276\357c\210\202\301\364c\210\362\n!\202\200)C\204\321\365c\210? U\204\366\367!\210\361 \210\202)\370 \210\366\371!.\207" [arg n date prior-years month year 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t extract-calendar-year calendar-day-number 365 4 100 400 cal-tex-list-holidays 7 cal-tex-list-diary-entries cal-tex-preamble "twoside" cal-tex-cmd "\\textwidth 3.25in" "\\textheight 6.5in" "\\oddsidemargin 1.75in" "\\evensidemargin 1.5in" "\\topmargin 0pt" "\\headheight -0.875in" "\\headsep 0.125in" "\\footskip .125in" "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}\n\\long\\def\\rightday#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 {\\raggedleft \\em #2}}%\n \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize #1}}}}}\n\\long\\def\\weekend#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 {\\noindent \\em #2}}%\n \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize #1}}}}}\n\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}\n\\long\\def\\leftday#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 {\\noindent \\em #2}}%\n \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize #1}}}}}\n\\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 "\\pagestyle{empty}" 0 5 2 "\\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 day cal-tex-holidays holidays cal-tex-diary diary-list i j odd cal-tex-daily-string cal-tex-rules] 7 (#$ . 37276) "P"]) #@112 Make a buffer with LaTeX commands for the day cursor is on. Optional prefix argument specifies number of days. (defalias 'cal-tex-cursor-day #[(&optional arg) "\203\202 \305\306\307!\310 !S\311 !\312\n_\\\n\313\245\\\n\314\245[\\\n\315\245\\*\316\317!\210\320\321!\210\320\322!\210\323 \210\320\324!\210\325 \fT\211Y\203d\326\327!\210\330\331 !!\210 T\f U\204>\332 \210\333\334!\210\202>)\335 \210\333\336!*\207" [arg date prior-years n i 1 calendar-cursor-to-date t extract-calendar-year calendar-day-number 365 4 100 400 cal-tex-preamble "12pt" cal-tex-cmd "\\textwidth 6.5in" "\\textheight 10.5in" cal-tex-b-document "\\pagestyle{empty}" 0 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] 4 (#$ . 41075) "P"]) #@61 Make a calendar page for Gregorian DATE on 8.5 by 11 paper. (defalias 'cal-tex-daily-page #[(date) "\306\307 \211@)!\310\311!\210\312\313\314\"\210\315\316\317\"\210\320\321\211\322#\210\323\324 \211A@)!!\210\325\326!\210\327\n!\210\330 \210\331\332!\210\333\334 !!\210\331\335!\210\336 \210\337 \210\312\313\340\"\210\327\341 !!\210\336 \210\325 \210\331\342!\210\320\321\343\344#\210\325\345!\210\fS? T\211Y\203\277\346\347!\210@\203\201 \202\205\350 \351\"\211\352U\203\216\351\312\332\353\"\210\354\324!!\210\336 \210\320\321\355\356#\210\325\357!\210\312\332\353\"\210\354\360!\210\336 \210\320\321\355\356#\210\325\357!\210\202j)\337 \210\361\362 !\211@)\362 !\211AA@)\363\364\365%c\210\361 \211@) \211AA@)\366\364\365%c\210\361\367 !\211@)\367 !\211AA@)\370\364\365%c\210\371c\210\337 \210\372c\210\337 \210\373c\210\337 \210\374c\210\337 \210\375c\210\310\376!*\207" [hour date month-name cal-tex-daily-string cal-tex-daily-start i nil calendar-month-name 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" 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 "lastmonth" "1.1in" "1in" "thismonth" cal-tex-next-month "nextmonth" "\\hbox to \\textwidth{" "\\lastmonth" "\\thismonth" "\\nextmonth" "}" "end of cal-tex-daily-page" cal-tex-daily-end cal-tex-24] 7 (#$ . 41922)]) #@209 Produce mini-calendar for MONTH, YEAR in macro NAME with WIDTH and HEIGHT. Optional PTSIZE gives the point ptsize; scriptsize is the default. Optional COLSEP gives the column separation; 1mm is the default. (defalias 'cal-tex-mini-calendar #[(month year name width height &optional ptsize colsep) "\306\307\310 E!\nZ\311\" \211\312U\203 \313 !\203 \314\202$\315SH* \203. \202/\316\317(\320)\321\322*\321\323)\321\324+\203J+\202K\325\326\327 \330 \330 \330 \330 \330 \331\332\333!\334\335 !\336\260 ,\337-\340-T\211-Y\203\225,.\306\n-\\\311\"H\341\312O-\340U\204\216\342\202\217\343Q,\202i)\341- -T\211-Y\203\255,\342P,\202\231)\341-\f-T\211-Y\203\350,\335-!P\211,\344\306- \\\311\"!\203\341-\fU\204\335\345\202\342\346\202\342\342P,\202\261),\347P\211,,\207" [month year calendar-week-start-day blank-days last colsep mod calendar-day-of-week 1 7 2 calendar-leap-year-p 29 [31 28 31 30 31 30 31 31 30 31 30 31] "1mm" "\\def\\" "{\\hbox to" "{%\n" "\\vbox to" "\\vfil \\hbox to" "\\hfil\\" "scriptsize" "\\begin{tabular}" "{@{\\hspace{0mm}}r@{\\hspace{" "}}r@{\\hspace{" "}}r@{\\hspace{0mm}}}%\n" "\\multicolumn{7}{c}{" calendar-month-name " " int-to-string "}\\\\[1mm]\n" -1 6 0 " & " "\\\\[0.7mm]\n" zerop "\\\\[0.5mm]\n" "" "\n\\end{tabular}\\hfil}\\vfil}}}%\n" name width height ptsize str i calendar-day-name-array] 33 (#$ . 43592)]) #@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) "\303\203 \202\n\304 \305 !S\306 !\307\n_\\\n\310\245\\\n\311\245[\\\n\312\245\\*\\!\207" [n date prior-years calendar-gregorian-from-absolute 1 extract-calendar-year calendar-day-number 365 4 100 400] 5 (#$ . 44997)]) #@237 Return string with concatenated, LaTeXified 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 t. (defalias 'cal-tex-latexify-list #[(date-list date &optional separator final-separator) "\203\202 \306\307\310\311\n \2031 @@\203*\312 @@\"\203* @A@\fB A\211\204\313\f!* # \203I\f\314\230\204I\f P\202J\f*\207" [separator sep date-list p result date "\\\\" mapconcat #[(x) "\301!\207" [x cal-tex-LaTeXify-string] 2] nil calendar-date-equal reverse "" final-separator] 6 (#$ . 45370)]) #@65 Return the date of the first day in the month previous to DATE. (defalias 'cal-tex-previous-month #[(date) "\211@)\211AA@)\211\304_ \\\305\\\211\304\246T \304\245) \306\nE*\207" [date month year macro-y 12 -2 1] 4 (#$ . 46018)]) #@64 Return the date of the first day in the month following DATE. (defalias 'cal-tex-next-month #[(date) "\211@)\211AA@)\211\304_ \\\211\304\246T \304\245) \305\nE*\207" [date month year macro-y 12 1] 4 (#$ . 46262)]) #@126 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\302 \210\303!\210eb\210\304\305!\210\304\306!\210\304\307!\210\304\310!\210eb\207" [cal-tex-buffer cal-tex-e-document latex-mode pop-to-buffer cal-tex-comment " This buffer was produced by cal-tex.el." " To print a calendar, type" " M-x tex-buffer RET" " M-x tex-print RET"] 2 (#$ . 46493)]) #@275 Initialize the output buffer. Select the output buffer, and insert the preamble for a calendar of WEEKS weeks. Insert code for landscape mode if LANDSCAPE is true. Use pointsize SIZE. Optional argument APPEND, if t, means add to end of without erasing current contents. (defalias 'cal-tex-insert-preamble #[(weeks landscape size &optional append) "\306\307\n\203\f\307\306 \204F\310\f!\210\n\204#\311\312!\210\311\313!\210\2026\311\314!\210\311\315!\210\311\316!\210\317 \210\311\320!\210\311 !\210\311!\210\321 \210\311\322!\210\311\323 \"\210\324\325\326G\245\"c\210\311\327\"\210\324\330\331\245\"c\210\311\332!\210\333\334!*\207" [height width landscape append size cal-tex-caldate "18cm" "24cm" cal-tex-preamble cal-tex-cmd "\\oddsidemargin -1.75cm" "\\def\\holidaymult{.06}" "\\special{landscape}" "\\textwidth 9.5in" "\\textheight 7in" cal-tex-comment "\\def\\holidaymult{.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-myday cal-tex-which-days weeks] 4 (#$ . 46998)]) #@41 List of symbols and their replacements. (defvar cal-tex-LaTeX-subst-list '(("\"" . "``") ("\"" . "''") ("@" . "\\verb|@|") ("&" . "\\&") ("%" . "\\%") ("$" . "\\$") ("#" . "\\#") ("_" . "\\_") ("{" . "\\{") ("}" . "\\}") ("<" . "$<$") (">" . "$>$") ("\n" . "\\ \\\\")) (#$ . 48199)) #@50 Protect special characters in STRING from LaTeX. (defalias 'cal-tex-LaTeXify-string #[(string) "\204\306\207\306  \306\230\204C \307\310O\311 \n\"\211 \203+ \312\230\203+\313\n! \310\314O\f \203< A\202= P*\202\f\f+\207" [string cal-tex-LaTeX-subst-list list tail head ch "" 0 1 assoc "\"" reverse nil pair] 4 (#$ . 48488)]) #@15 Insert hfill. (defalias 'cal-tex-hfill #[nil "\300c\207" ["\\hfill"] 1 (#$ . 48838)]) #@17 Insert newpage. (defalias 'cal-tex-newpage #[nil "\300c\207" ["\\newpage%\n"] 1 (#$ . 48930)]) #@18 Insert noindent. (defalias 'cal-tex-noindent #[nil "\300c\207" ["\\noindent"] 1 (#$ . 49031)]) #@49 Insert vspace command to move SPACE vertically. (defalias 'cal-tex-vspace #[(space) "\301\302\261\210\303 \207" [space "\\vspace*{" "}" cal-tex-comment] 3 (#$ . 49132)]) #@51 Insert hspace command to move SPACE horizontally. (defalias 'cal-tex-hspace #[(space) "\301\302\261\210\303 \207" [space "\\hspace*{" "}" cal-tex-comment] 3 (#$ . 49310)]) #@80 Insert % at end of line, include COMMENT if present, and move to next line. (defalias 'cal-tex-comment #[(&optional comment) "\301c\210\203\nc\210\302c\207" [comment "% " "\n"] 1 (#$ . 49490)]) #@46 Insert the COMMENT separated by blank lines. (defalias 'cal-tex-banner #[(comment) "\301 \210\301 \210\301\302P!\210\301 \207" [comment cal-tex-comment " "] 3 (#$ . 49696)]) #@84 End a line with \. If SKIP, then add that much spacing. Add COMMENT if present (defalias 'cal-tex-nl #[(&optional skip comment) "\302c\210\203 \303\304\261\210\305 !\207" [skip comment "\\\\" "[" "]" cal-tex-comment] 3 (#$ . 49879)]) #@44 Insert optional TEXT surrounded by braces. (defalias 'cal-tex-arg #[(&optional text) "\301c\210\203\nc\210\302c\207" [text "{" "}"] 1 (#$ . 50127)]) #@53 Insert LaTeX CMD, with optional 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 (#$ . 50285)]) #@31 Insert beginning of document. (defalias 'cal-tex-b-document #[nil "\300\301!\207" [cal-tex-cmd "\\begin{document}"] 2 (#$ . 50471)]) #@25 Insert end of document. (defalias 'cal-tex-e-document #[nil "\300\301!\207" [cal-tex-cmd "\\end{document}"] 2 (#$ . 50610)]) #@37 Insert beginning of centered block. (defalias 'cal-tex-b-center #[nil "\300\301!\207" [cal-tex-cmd "\\begin{center}"] 2 (#$ . 50741)]) #@31 Insert end of centered block. (defalias 'cal-tex-e-center #[nil "\300 \210\301\302!\207" [cal-tex-comment cal-tex-cmd "\\end{center}"] 2 (#$ . 50882)]) #@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 (#$ . 51040)]) #@54 Insert end of parbox. 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 (#$ . 51250)]) #@60 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 (#$ . 51495)]) #@25 Insert end of framebox. (defalias 'cal-tex-e-framebox #[nil "\300 \210\301c\210\300\302!\207" [cal-tex-comment "}" "end framebox"] 2 (#$ . 51718)]) #@59 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 (#$ . 51872)]) #@24 Insert end of makebox. (defalias 'cal-tex-e-makebox #[nil "\300 \210\301c\210\300\302!\207" [cal-tex-comment "}" "end makebox"] 2 (#$ . 52092)]) #@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 (#$ . 52243)]) #@27 Insert STRING in bf font. (defalias 'cal-tex-em #[(string) "\301\302\261\207" [string "{\\em " "}"] 3 (#$ . 52440)]) #@27 Insert STRING in bf font. (defalias 'cal-tex-bf #[(string) "\301\302\261\207" [string "{\\bf " "}"] 3 (#$ . 52565)]) #@35 Insert STRING in scriptsize font. (defalias 'cal-tex-scriptsize #[(string) "\301\302\261\207" [string "{\\scriptsize " "}"] 3 (#$ . 52690)]) #@29 Insert STRING in huge size. (defalias 'cal-tex-huge #[(string) "\301\302\261\207" [string "{\\huge " "}"] 3 (#$ . 52839)]) #@29 Insert STRING in Huge size. (defalias 'cal-tex-Huge #[(string) "\301\302\261\207" [string "{\\Huge " "}"] 3 (#$ . 52970)]) #@32 Insert STRING in Huge bf size. (defalias 'cal-tex-Huge-bf #[(string) "\301\302\261\207" [string "{\\Huge\\bf " "}"] 3 (#$ . 53101)]) #@30 Insert STRING in large size. (defalias 'cal-tex-large #[(string) "\301\302\261\207" [string "{\\large " "}"] 3 (#$ . 53242)]) #@33 Insert STRING in large bf size. (defalias 'cal-tex-large-bf #[(string) "\301\302\261\207" [string "{\\large\\bf " "}"] 3 (#$ . 53376)]) (provide 'cal-tex)