diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-06-26 17:22:40 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-06-26 17:22:48 +0200 |
commit | 94812099b0cf13dfe11a865d6bbbc3e8463452be (patch) | |
tree | 4b6f82eb04bcb9619b6822b8478d4bb964b25ec4 /lisp/org-agenda.el | |
parent | 7eb397356f58159f4ba2bf4e589fc01d30a8a3e2 (diff) |
Agenda: Add more keys to the view dispatcher
Diffstat (limited to 'lisp/org-agenda.el')
-rw-r--r-- | lisp/org-agenda.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 58541ce07..8c22a21e1 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4994,7 +4994,8 @@ With prefix ARG, go backward that many times the current span." (defun org-agenda-view-mode-dispatch () "Call one of the view mode commands." (interactive) - (message "View: [d]ay [w]eek [m]onth [y]ear [l]og [L]og-all [a]rch-trees [A]rch-files") + (message "View: [d]ay [w]eek [m]onth [y]ear [l]og [L]og-all [a]rch-trees [A]rch-files + clock[R]eport time[G]rid include[D]iary") (let ((a (read-char-exclusive))) (case a (?d (call-interactively 'org-agenda-day-view)) @@ -5003,7 +5004,12 @@ With prefix ARG, go backward that many times the current span." (?y (call-interactively 'org-agenda-year-view)) (?l (call-interactively 'org-agenda-log-mode)) (?a (call-interactively 'org-agenda-archives-mode)) - (?A (org-agenda-archives-mode 'files))))) + (?A (org-agenda-archives-mode 'files)) + (?R (call-interactively 'org-agenda-clockreport-mode)) + (?G (call-interactively 'org-agenda-toggle-time-grid)) + (?D (call-interactively 'org-agenda-toggle-diary)) + (?q (message "Abort")) + (otherwise (error "Invalid key" ))))) (defun org-agenda-day-view (&optional day-of-year) "Switch to daily view for agenda. |