[PATCH] Display invisible entry text at point when visiting a task from the agenda

[PATCH] Display invisible entry text at point when visiting a task from the agenda

[Bernt Hansen]

* 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

Re: [PATCH] Display invisible entry text at point when visiting a task from the agenda

[Carsten Dominik]

Applied, thanks.

- Carsten

On Jan 1, 2011, at 2:33 PM, Bernt Hansen wrote:

> * 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
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten