diff options
| author | Bastien Guerry <bzg@altern.org> | 2011-02-19 12:13:42 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2011-02-19 12:13:42 +0100 |
| commit | 3655dcbd371cfcb43b4fa48ec7769bda116cbd98 (patch) | |
| tree | 85bc16104013770419c388d3375cd7693439cfdb | |
| parent | 9ec8510687bdf1c0fba598810ec86bcfc3a91840 (diff) | |
| download | org-mode-3655dcbd371cfcb43b4fa48ec7769bda116cbd98.tar.gz | |
New command `org-agenda-append-agenda' to append agendas.
* org-agenda.el (org-agenda-append-agenda): New command.
(org-agenda-mode-map): New keybinding to this new command.
| -rw-r--r-- | lisp/org-agenda.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 67b53f1..dee23e0 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1765,6 +1765,7 @@ The following commands are available: (org-defkey org-agenda-mode-map "%" 'org-agenda-bulk-mark-regexp) (org-defkey org-agenda-mode-map "u" 'org-agenda-bulk-unmark) (org-defkey org-agenda-mode-map "U" 'org-agenda-bulk-remove-all-marks) +(org-defkey org-agenda-mode-map "A" 'org-agenda-append-agenda) (org-defkey org-agenda-mode-map "B" 'org-agenda-bulk-action) (org-defkey org-agenda-mode-map "\C-c\C-x!" 'org-reload) (org-defkey org-agenda-mode-map "\C-c\C-x\C-a" 'org-agenda-archive-default) @@ -2043,7 +2044,6 @@ The following commands are available: (defvar org-agenda-pending-undo-list nil "In a series of undo commands, this is the list of remaining undo items.") - (defun org-agenda-undo () "Undo a remote editing step in the agenda. This undoes changes both in the agenda buffer and in the remote buffer @@ -2261,6 +2261,15 @@ Pressing `<' twice means to restrict to the current subtree or region ((equal keys "!") (customize-variable 'org-stuck-projects)) (t (error "Invalid agenda key")))))) +(defun org-agenda-append-agenda () + "Append another agenda view to the current one. +This function allows interactive building of block agendas. +Agenda views are separated by `org-agenda-block-separator'." + (interactive) + (let ((org-agenda-multi t)) + (org-agenda) + (widen))) + (defun org-agenda-normalize-custom-commands (cmds) (delq nil (mapcar |