Commit e519449d authored by Edward M. Reingold's avatar Edward M. Reingold
Browse files

Added menu items for cal-tex.el (a new file).

parent 3076647c
...@@ -194,6 +194,18 @@ ...@@ -194,6 +194,18 @@
(put 'insert-yearly-diary-entry 'menu-enable '(calendar-cursor-to-date)) (put 'insert-yearly-diary-entry 'menu-enable '(calendar-cursor-to-date))
(put 'insert-monthly-diary-entry 'menu-enable '(calendar-cursor-to-date)) (put 'insert-monthly-diary-entry 'menu-enable '(calendar-cursor-to-date))
(put 'insert-weekly-diary-entry 'menu-enable '(calendar-cursor-to-date)) (put 'insert-weekly-diary-entry 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-day 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-week 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-week2 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-week3 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-week4 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-week5 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-week6 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-month 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-month-landscape 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-year 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-filofax-year 'menu-enable '(calendar-cursor-to-date))
(put 'cal-tex-cursor-year-landscape 'menu-enable '(calendar-cursor-to-date))
(defun calendar-event-to-date (&optional error) (defun calendar-event-to-date (&optional error)
"Date of last event. "Date of last event.
...@@ -271,6 +283,95 @@ ERROR is t, otherwise just returns nil." ...@@ -271,6 +283,95 @@ ERROR is t, otherwise just returns nil."
(calendar-goto-date (calendar-event-to-date)) (calendar-goto-date (calendar-event-to-date))
(calendar-set-mark nil))) (calendar-set-mark nil)))
(defun cal-tex-mouse-day ()
"Make a buffer with LaTeX commands for the day mouse is on."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-day nil)))
(defun cal-tex-mouse-week ()
"One page calendar for week indicated by cursor.
Holidays are included if `cal-tex-holidays' is t."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-week nil)))
(defun cal-tex-mouse-week2 ()
"Make a buffer with LaTeX commands for the week cursor is on.
The printed output will be on two pages."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-week2 nil)))
(defun cal-tex-mouse-week3 ()
"One page calendar for week indicated by cursor.
Holidays are included if `cal-tex-holidays' is t."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-week3 nil)))
(defun cal-tex-mouse-week4 ()
"One page calendar for week indicated by cursor."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-week4 nil)))
(defun cal-tex-mouse-week5 ()
"One page Filofax calendar for week indicated by cursor."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-week5 nil)))
(defun cal-tex-mouse-week6 ()
"Two page Filofax calendar for week indicated by cursor."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-week6 nil)))
(defun cal-tex-mouse-month ()
"Make a buffer with LaTeX commands for the month cursor is on.
Calendar is condensed onto one page."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-month nil)))
(defun cal-tex-mouse-month-landscape ()
"Make a buffer with LaTeX commands for the month cursor is on.
The output is in landscape format, one month to a page."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-month-landscape nil)))
(defun cal-tex-mouse-year ()
"Make a buffer with LaTeX commands for the year cursor is on."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-year nil)))
(defun cal-tex-mouse-filofax-year ()
"Make a buffer with LaTeX commands for Filofax calendar of year cursor is on."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-filofax-year nil)))
(defun cal-tex-mouse-year-landscape ()
"Make a buffer with LaTeX commands for the year cursor is on."
(interactive)
(save-excursion
(calendar-goto-date (calendar-event-to-date))
(cal-tex-cursor-year-landscape nil)))
(defun calendar-mouse-print-dates () (defun calendar-mouse-print-dates ()
"Pop up menu of equivalent dates to mouse selected date." "Pop up menu of equivalent dates to mouse selected date."
(interactive) (interactive)
...@@ -337,6 +438,7 @@ ERROR is t, otherwise just returns nil." ...@@ -337,6 +438,7 @@ ERROR is t, otherwise just returns nil."
'("Mark date" . calendar-mouse-set-mark) '("Mark date" . calendar-mouse-set-mark)
'("Sunrise/sunset" . calendar-mouse-sunrise/sunset) '("Sunrise/sunset" . calendar-mouse-sunrise/sunset)
'("Other calendars" . calendar-mouse-print-dates) '("Other calendars" . calendar-mouse-print-dates)
'("Prepare LaTeX buffer" . calendar-mouse-cal-tex-menu)
'("Diary entries" . calendar-mouse-view-diary-entries) '("Diary entries" . calendar-mouse-view-diary-entries)
'("Insert diary entry" . calendar-mouse-insert-diary-entry) '("Insert diary entry" . calendar-mouse-insert-diary-entry)
'("Other diary file entries" '("Other diary file entries"
...@@ -344,6 +446,43 @@ ERROR is t, otherwise just returns nil." ...@@ -344,6 +446,43 @@ ERROR is t, otherwise just returns nil."
))))) )))))
(and selection (call-interactively selection)))) (and selection (call-interactively selection))))
(defun calendar-mouse-cal-tex-menu (event)
"Pop up submenu for Mouse-2 for cal-tex commands for selected date in the calendar window."
(interactive "e")
(let* ((selection
(x-popup-menu
event
(list "Menu"
(list
(calendar-date-string date t nil)
'("Daily (1 page)" . cal-tex-mouse-day)
'("Weekly (1 page)" . cal-tex-mouse-week)
'("Weekly (2 pages)" . cal-tex-mouse-week2)
'("Weekly (other style; 1 page)" . cal-tex-mouse-week3)
'("Weekly (yet another style; 1 page)" . cal-tex-mouse-week4)
'("Monthly" . cal-tex-mouse-month)
'("Monthly (landscape)" . cal-tex-mouse-month-landscape)
'("Yearly" . cal-tex-mouse-year)
'("Yearly (landscape)" . cal-tex-mouse-year-landscape)
'("Filofax styles" . cal-tex-mouse-filofax)
)))))
(and selection (call-interactively selection))))
(defun cal-tex-mouse-filofax (event)
"Pop up sub-submenu for Mouse-2 for Filofax cal-tex commands for selected date."
(interactive "e")
(let* ((selection
(x-popup-menu
event
(list "Menu"
(list
(calendar-date-string date t nil)
'("Filofax Weekly (1 page)" . cal-tex-mouse-week5)
'("Filofax Weekly (2 pages)" . cal-tex-mouse-week6)
'("Filofax Yearly" . cal-tex-mouse-filofax-year)
)))))
(and selection (call-interactively selection))))
(define-key calendar-mouse-3-map [exit-calendar] (define-key calendar-mouse-3-map [exit-calendar]
'("Exit calendar" . exit-calendar)) '("Exit calendar" . exit-calendar))
(define-key calendar-mouse-3-map [show-diary] (define-key calendar-mouse-3-map [show-diary]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment