mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(cal-tex-mouse-filofax-daily): New function.

Browse Source 
(cal-tex-mouse-filofax): Add menu item for it.
This commit is contained in:
Karl Heuer 1997-09-24 16:29:39 +00:00
parent 9018e77d44
commit a137e62c85
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -308,6 +308,13 @@ Holidays are included if `cal-tex-holidays' is t."
(calendar-mouse-goto-date (calendar-event-to-date))
(cal-tex-cursor-week-monday nil)))
(defun cal-tex-mouse-filofax-daily ()
"Day-per-page Filofax calendar for week indicated by cursor."
(interactive)
(save-excursion
(calendar-mouse-goto-date (calendar-event-to-date))
(cal-tex-cursor-filofax-daily nil)))
(defun cal-tex-mouse-filofax-2week ()
"One page Filofax calendar for week indicated by cursor."
(interactive)
@ -470,6 +477,8 @@ The output is in landscape format, one month to a page."
(list (calendar-date-string date t nil)
(list
""
'("Filofax Daily (one-day-per-page)" .
cal-tex-mouse-filofax-daily)
'("Filofax Weekly (2-weeks-at-a-glance)" .
cal-tex-mouse-filofax-2week)
'("Filofax Weekly (week-at-a-glance)" .