Mercurial > emacs
comparison lisp/calendar/cal-menu.el @ 19975:927a8710de05
(cal-tex-mouse-filofax-daily): New function.
(cal-tex-mouse-filofax): Add menu item for it.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 24 Sep 1997 16:29:39 +0000 |
| parents | 947c67a81ec6 |
| children | f2a0f6498003 |
comparison
equal
deleted
inserted
replaced
| 19974:620ed2f8250e | 19975:927a8710de05 |
|---|---|
| 305 "One page calendar for week indicated by cursor." | 305 "One page calendar for week indicated by cursor." |
| 306 (interactive) | 306 (interactive) |
| 307 (save-excursion | 307 (save-excursion |
| 308 (calendar-mouse-goto-date (calendar-event-to-date)) | 308 (calendar-mouse-goto-date (calendar-event-to-date)) |
| 309 (cal-tex-cursor-week-monday nil))) | 309 (cal-tex-cursor-week-monday nil))) |
| 310 | |
| 311 (defun cal-tex-mouse-filofax-daily () | |
| 312 "Day-per-page Filofax calendar for week indicated by cursor." | |
| 313 (interactive) | |
| 314 (save-excursion | |
| 315 (calendar-mouse-goto-date (calendar-event-to-date)) | |
| 316 (cal-tex-cursor-filofax-daily nil))) | |
| 310 | 317 |
| 311 (defun cal-tex-mouse-filofax-2week () | 318 (defun cal-tex-mouse-filofax-2week () |
| 312 "One page Filofax calendar for week indicated by cursor." | 319 "One page Filofax calendar for week indicated by cursor." |
| 313 (interactive) | 320 (interactive) |
| 314 (save-excursion | 321 (save-excursion |
| 468 (x-popup-menu | 475 (x-popup-menu |
| 469 event | 476 event |
| 470 (list (calendar-date-string date t nil) | 477 (list (calendar-date-string date t nil) |
| 471 (list | 478 (list |
| 472 "" | 479 "" |
| 480 '("Filofax Daily (one-day-per-page)" . | |
| 481 cal-tex-mouse-filofax-daily) | |
| 473 '("Filofax Weekly (2-weeks-at-a-glance)" . | 482 '("Filofax Weekly (2-weeks-at-a-glance)" . |
| 474 cal-tex-mouse-filofax-2week) | 483 cal-tex-mouse-filofax-2week) |
| 475 '("Filofax Weekly (week-at-a-glance)" . | 484 '("Filofax Weekly (week-at-a-glance)" . |
| 476 cal-tex-mouse-filofax-week) | 485 cal-tex-mouse-filofax-week) |
| 477 '("Filofax Yearly" . cal-tex-mouse-filofax-year) | 486 '("Filofax Yearly" . cal-tex-mouse-filofax-year) |