[PATCH] Proposed command: org-agenda-clock-goto

From: Bastien <bastien.guerry@wikimedia.fr>
To: emacs-orgmode@gnu.org
Subject: [PATCH] Proposed command: org-agenda-clock-goto
Date: Sun, 01 Aug 2010 09:57:47 +0200	[thread overview]
Message-ID: <87pqy29344.fsf@gnu.org> (raw)

[-- Attachment #1: Type: text/plain, Size: 238 bytes --]

From the agenda, I often want to jump to the currently clocking task
without leaving the agenda buffer.

The attached patch contains a function that does so.

Would that be useful to anyone else?

If so, any suggestion for a keybinding?


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-agenda.el.patch --]
[-- Type: text/x-patch, Size: 731 bytes --]

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index d62b193..bba8683 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2806,6 +2806,16 @@ the global options and expect it to be applied to the entire view.")
 	(org-agenda-filter-apply org-agenda-filter))
       )))
 
+(defun org-agenda-clock-goto ()
+  "Jump to the currently clocked in task within the agenda."
+  (interactive)
+  (let (pos)
+    (mapc (lambda (o)
+	    (if (eq (overlay-get o 'type) 'org-agenda-clocking)
+		(setq pos (overlay-start o))))
+	  (overlays-in (point-min) (point-max)))
+    (if pos (goto-char pos))))
+
 (defun org-agenda-mark-clocking-task ()
   "Mark the current clock entry in the agenda if it is present."
   (mapc (lambda (o)

[-- Attachment #3: Type: text/plain, Size: 14 bytes --]


-- 
 Bastien

[-- Attachment #4: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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
