From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 24 Sep 1997 16:29:39 +0000 (+0000)
Subject: (cal-tex-mouse-filofax-daily): New function.
X-Git-Tag: emacs-20.3~3098
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a137e62c850e0c3f09d5683f1bbaed7293755da5;p=emacs.git

(cal-tex-mouse-filofax-daily): New function.
(cal-tex-mouse-filofax): Add menu item for it.
---

diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index 85e40093b58..452683cc0a8 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -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)" .