158 |
|
|
159 |
(defvar cal-tex-day-name-format "\\myday{%s}%%" |
(defvar cal-tex-day-name-format "\\myday{%s}%%" |
160 |
"The format for LaTeX code for a day name. The names are taken from |
"The format for LaTeX code for a day name. The names are taken from |
161 |
calendar-day-name-array.") |
`calendar-day-name-array'.") |
162 |
|
|
163 |
(defvar cal-tex-cal-one-month |
(defvar cal-tex-cal-one-month |
164 |
"\\def\\calmonth#1#2% |
"\\def\\calmonth#1#2% |
649 |
;;; Weekly calendars |
;;; Weekly calendars |
650 |
;;; |
;;; |
651 |
|
|
652 |
|
(defvar cal-tex-LaTeX-hourbox |
653 |
|
"\\newcommand{\\hourbox}[2]% |
654 |
|
{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" |
655 |
|
"One hour and a line on the right.") |
656 |
|
|
657 |
(defun cal-tex-cursor-week (&optional arg) |
(defun cal-tex-cursor-week (&optional arg) |
658 |
"Make a buffer with LaTeX commands for a two-page one-week calendar. |
"Make a buffer with LaTeX commands for a two-page one-week calendar. |
659 |
It applies to the week that point is in. |
It applies to the week that point is in. |
875 |
(cal-tex-end-document) |
(cal-tex-end-document) |
876 |
(run-hooks 'cal-tex-hook))) |
(run-hooks 'cal-tex-hook))) |
877 |
|
|
|
(defvar cal-tex-LaTeX-hourbox |
|
|
"\\newcommand{\\hourbox}[2]% |
|
|
{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" |
|
|
"One hour and a line on the right.") |
|
|
|
|
878 |
(defun cal-tex-week-hours (date holidays height) |
(defun cal-tex-week-hours (date holidays height) |
879 |
"Insert hourly entries for DATE with HOLIDAYS, with line height HEIGHT." |
"Insert hourly entries for DATE with HOLIDAYS, with line height HEIGHT." |
880 |
(let ((month (extract-calendar-month date)) |
(let ((month (extract-calendar-month date)) |
1781 |
|
|
1782 |
(provide 'cal-tex) |
(provide 'cal-tex) |
1783 |
|
|
1784 |
|
;;; arch-tag: ca8168a4-5a00-4508-a565-17e3bccce6d0 |
1785 |
;;; cal-tex.el ends here |
;;; cal-tex.el ends here |