emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] [PATCH] Display invisible entry text at point when visiting a


From: Bernt Hansen
Subject: [Orgmode] [PATCH] Display invisible entry text at point when visiting a task from the agenda
Date: Sat, 1 Jan 2011 08:33:35 -0500

* lisp/org-agenda.el (org-agenda-goto): Display invisible entry text
* lisp/org-agenda.el (org-agenda-switch-to): Display invisible entry text

Visiting clock lines with RET or TAB in the agenda can put point on a
folded clock drawer.  This means you are editing invisible/hidden text
inside the task entry.  Now when moving to invisible regions show the
entry so point is always visible.
---
Hi,

I regularly visit clock line details from the agenda (C-u l then TAB or 
RET on a clock line or state change log entry line).  My clocks and state 
changes 
are in two separate drawers :CLOCK: and :LOGBOOK: respectively.

Visiting lines inside drawers are normally folded for me and the point is 
buried in invisible text.

This patch is available at git://git.norang.ca/org-mode.git 
agenda-visit-shows-entry

Happy New Year all!

-Bernt

 lisp/org-agenda.el |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index f787240..bf36758 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6486,7 +6486,9 @@ and by additional input from the age of a schedules or 
deadline entry."
       (org-show-context 'agenda)
       (save-excursion
        (and (outline-next-heading)
-            (org-flag-heading nil)))) ; show the next heading
+            (org-flag-heading nil))))  ; show the next heading
+    (when (outline-invisible-p)
+      (show-entry))                    ; display invisible text
     (recenter (/ (window-height) 2))
     (run-hooks 'org-agenda-after-show-hook)
     (and highlight (org-highlight (point-at-bol) (point-at-eol)))))
@@ -6672,7 +6674,9 @@ at the text of the entry itself."
        (org-show-context 'agenda)
        (save-excursion
          (and (outline-next-heading)
-              (org-flag-heading nil)))))))  ; show the next heading
+              (org-flag-heading nil))) ; show the next heading
+       (when (outline-invisible-p)
+         (show-entry))))))             ; display invisible text
 
 (defun org-agenda-goto-mouse (ev)
   "Go to the Org-mode file which contains the item at the mouse click."
-- 
1.7.4.rc0




reply via email to

[Prev in Thread] Current Thread [Next in Thread]