- (interactive)
- (calendar-mouse-view-diary-entries
- (cal-menu-event-to-date)
- (read-file-name "Enter diary file name: " default-directory nil t)))
-
-(defun calendar-mouse-insert-diary-entry ()
- "Insert diary entry for mouse-selected date."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (diary-insert-entry nil)))
-
-(defun calendar-mouse-set-mark ()
- "Mark the date under the cursor."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (calendar-set-mark nil)))
-
-(defun calendar-mouse-tex-day ()
- "Make a buffer with LaTeX commands for the day mouse is on."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-day nil)))
-
-(defun calendar-mouse-tex-week ()
- "One page calendar for week indicated by cursor.
-Holidays are included if `cal-tex-holidays' is non-nil."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-week nil)))
-
-(defun calendar-mouse-tex-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-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-week2 nil)))
-
-(defun calendar-mouse-tex-week-iso ()
- "One page calendar for week indicated by cursor.
-Holidays are included if `cal-tex-holidays' is non-nil."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-week-iso nil)))
-
-(defun calendar-mouse-tex-week-monday ()
- "One page calendar for week indicated by cursor."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-week-monday nil)))
-
-(defun calendar-mouse-tex-filofax-daily ()
- "Day-per-page Filofax calendar for week indicated by cursor."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-filofax-daily nil)))
-
-(defun calendar-mouse-tex-filofax-2week ()
- "One page Filofax calendar for week indicated by cursor."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-filofax-2week nil)))
-
-(defun calendar-mouse-tex-filofax-week ()
- "Two page Filofax calendar for week indicated by cursor."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-filofax-week nil)))
-
-(defun calendar-mouse-tex-month ()
- "Make a buffer with LaTeX commands for the month cursor is on.
-Calendar is condensed onto one page."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-month nil)))
-
-(defun calendar-mouse-tex-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-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-month-landscape nil)))
-
-(defun calendar-mouse-tex-year ()
- "Make a buffer with LaTeX commands for the year cursor is on."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-year nil)))
-
-(defun calendar-mouse-tex-filofax-year ()
- "Make a buffer with LaTeX commands for Filofax calendar of year cursor is on."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-filofax-year nil)))
-
-(defun calendar-mouse-tex-year-landscape ()
- "Make a buffer with LaTeX commands for the year cursor is on."
- (interactive)
- (save-excursion
- (calendar-mouse-goto-date (cal-menu-event-to-date))
- (cal-tex-cursor-year-landscape nil)))
-
-(defun calendar-mouse-print-dates (&optional event)
- "Pop up menu of equivalent dates to mouse selected date.
-EVENT is the event that invoked this command."