From 565858ac1316ffb91be7b1fec8459da93a1670a8 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Sun, 14 Dec 2014 17:33:55 +0800 Subject: [PATCH 4/4] New function org-agenda-show-log-item * lisp/org-agenda.el (org-agenda-show-log-item): Function to echo an entry's most recent log item in the message area. Bind to "V" in the agenda keymap. --- lisp/org-agenda.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 529cd0e..0063b31 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2247,6 +2247,7 @@ The following commands are available: (org-defkey org-agenda-mode-map "E" 'org-agenda-entry-text-mode) (org-defkey org-agenda-mode-map "l" 'org-agenda-log-mode) (org-defkey org-agenda-mode-map "v" 'org-agenda-view-mode-dispatch) +(org-defkey org-agenda-mode-map "V" 'org-agenda-show-log-item) (org-defkey org-agenda-mode-map "D" 'org-agenda-toggle-diary) (org-defkey org-agenda-mode-map "!" 'org-agenda-toggle-deadlines) (org-defkey org-agenda-mode-map "G" 'org-agenda-toggle-time-grid) @@ -8844,6 +8845,21 @@ the same tree node, and the headline of the tree node in the Org-mode file." (org-flag-heading nil))) ; show the next heading (org-add-note)))) +(defun org-agenda-show-log-item () + "Echo the text of the entry's most recent log note." + (interactive) + (let (log-list item) + (org-agenda-with-point-at-orig-entry + nil (setq log-list (org-get-log-list))) + (if (not log-list) + (message "Entry has no log") + (setq item + (if org-log-states-order-reversed + (car log-list) + (last log-list))) + (message (org-element-interpret-data + (org-element-contents item)))))) + (defun org-agenda-change-all-lines (newhead hdmarker &optional fixface just-this) "Change all lines in the agenda buffer which match HDMARKER. -- 2.1.3