/[emacs]/emacs/lisp/calendar/cal-tex.el
ViewVC logotype

Diff of /emacs/lisp/calendar/cal-tex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22.2.1 by miles, Fri Apr 4 06:20:15 2003 UTC revision 1.22.2.2 by miles, Tue Oct 14 23:42:13 2003 UTC
# Line 158  The holidays, diary entries, bottom stri Line 158  The holidays, diary entries, bottom stri
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%
# Line 649  this is only an upper bound." Line 649  this is only an upper bound."
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.
# Line 870  Holidays are included if `cal-tex-holida Line 875  Holidays are included if `cal-tex-holida
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))
# Line 1781  without erasing current contents." Line 1781  without erasing current contents."
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

Legend:
Removed from v.1.22.2.1  
changed lines
  Added in v.1.22.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26