mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Edward M. Reingold 1995-10-12 15:28:06 +00:00
parent 3076647c69
commit e519449d33
1 changed files with 139 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

139
lisp/calendar/cal-menu.el
View File

@ -194,6 +194,18 @@
(put 'insert-yearly-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 '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)
"Date of last event.
@ -271,6 +283,95 @@ ERROR is t, otherwise just returns nil."
(calendar-goto-date (calendar-event-to-date))
(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 ()
"Pop up menu of equivalent dates to mouse selected date."
(interactive)
@ -337,6 +438,7 @@ ERROR is t, otherwise just returns nil."
'("Mark date" . calendar-mouse-set-mark)
'("Sunrise/sunset" . calendar-mouse-sunrise/sunset)
'("Other calendars" . calendar-mouse-print-dates)
'("Prepare LaTeX buffer" . calendar-mouse-cal-tex-menu)
'("Diary entries" . calendar-mouse-view-diary-entries)
'("Insert diary entry" . calendar-mouse-insert-diary-entry)
'("Other diary file entries"
@ -344,6 +446,43 @@ ERROR is t, otherwise just returns nil."
)))))
(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]
'("Exit calendar" . exit-calendar))
(define-key calendar-mouse-3-map [show-diary]