(require 'calendar)
-(autoload 'diary-list-entries "diary-lib" nil t)
-(autoload 'calendar-holiday-list "holidays" nil t)
-(autoload 'calendar-iso-from-absolute "cal-iso" nil t)
-
;;;
;;; Customizable variables
;;;
"LaTeX code to insert one box with date info in calendar.
This definition is the heart of the calendar!")
+(autoload 'calendar-holiday-list "holidays")
+
(defun cal-tex-list-holidays (d1 d2)
"Generate a list of all holidays from absolute date D1 to D2."
(let* ((start (calendar-gregorian-from-absolute d1))
(setq in-range (append (list hol) in-range))))
in-range))
+(autoload 'diary-list-entries "diary-lib")
+
(defun cal-tex-list-diary-entries (d1 d2)
"Generate a list of all diary-entries from absolute date D1 to D2."
(let ((diary-list-include-blanks nil)
;;; Yearly calendars
;;;
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-year (&optional arg)
"Make a buffer with LaTeX commands for the year cursor is on.
Optional prefix argument ARG specifies number of years."
(cal-tex-year (extract-calendar-year (calendar-cursor-to-date t))
(or arg 1)))
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-year-landscape (&optional arg)
"Make a buffer with LaTeX commands for the year cursor is on.
Optional prefix argument ARG specifies number of years."
(run-hooks 'cal-tex-year-hook))
(run-hooks 'cal-tex-hook))
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-filofax-year (&optional arg)
"Make a Filofax one page yearly calendar of year indicated by cursor.
Optional prefix argument ARG specifies number of years."
;;; Monthly calendars
;;;
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-month-landscape (&optional arg)
"Make a LaTeX calendar buffer for the month the cursor is on.
Optional prefix argument ARG specifies number of months to be
(cal-tex-end-document)
(run-hooks 'cal-tex-hook))))
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-month (arg)
"Make a LaTeX calendar buffer for the month the cursor is on.
Optional prefix argument ARG specifies number of months to be
;; TODO cal-tex-diary-support.
;; TODO respect cal-tex-daily-start,end (see cal-tex-week-hours).
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-week (&optional arg)
"Make a LaTeX calendar buffer for a two-page one-week calendar.
It applies to the week that point is in. The optional prefix
;; TODO cal-tex-diary support.
;; TODO respect cal-tex-daily-start,end (see cal-tex-week-hours).
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-week2 (&optional arg)
"Make a LaTeX calendar buffer for a two-page one-week calendar.
It applies to the week that point is in. Optional prefix
(cal-tex-end-document)
(run-hooks 'cal-tex-hook)))
-;;;###autoload
+(autoload 'calendar-iso-from-absolute "cal-iso")
+
+;;;###cal-autoload
(defun cal-tex-cursor-week-iso (&optional arg)
"Make a LaTeX calendar buffer for a one page ISO-style weekly calendar.
Optional prefix argument ARG specifies number of weeks (default 1).
;; TODO cal-tex-diary support.
;; TODO respect cal-tex-daily-start,end (see cal-tex-weekly4-box).
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-week-monday (&optional arg)
"Make a LaTeX calendar buffer for a two-page one-week calendar.
It applies to the week that point is in, and starts on Monday.
(cal-tex-e-framebox)
(cal-tex-hspace "1cm")))
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-filofax-2week (&optional arg)
"Two-weeks-at-a-glance Filofax style calendar for week cursor is in.
Optional prefix argument ARG specifies number of weeks (default 1).
(cal-tex-end-document)
(run-hooks 'cal-tex-hook)))
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-filofax-week (&optional arg)
"One-week-at-a-glance Filofax style calendar for week indicated by cursor.
Optional prefix argument ARG specifies number of weeks (default 1),
(cal-tex-end-document)
(run-hooks 'cal-tex-hook)))
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-filofax-daily (&optional arg)
"Day-per-page Filofax style calendar for week indicated by cursor.
Optional prefix argument ARG specifies number of weeks (default 1),
;;; Daily calendars
;;;
-;;;###autoload
+;;;###cal-autoload
(defun cal-tex-cursor-day (&optional arg)
"Make a buffer with LaTeX commands for the day cursor is on.
Optional prefix argument ARG specifies number of days. The calendar shows
(provide 'cal-tex)
-;; Local Variables:
-;; generated-autoload-file: "cal-loaddefs.el"
-;; End:
-
;; arch-tag: ca8168a4-5a00-4508-a565-17e3bccce6d0
;;; cal-tex.el ends here