Wishlist - Function to get to and reveal the current clocking task

Wishlist - Function to get to and reveal the current clocking task

[Bernt Hansen]

I'm finding that I want to get back to my current clocking task
frequently.  My org files are fairly large and when I fold all the tasks
the only way I know of to get back to the current clocking task is to
display today's agenda, press 'l' to get a display of my clocked tasks,
and put the cursor on the last entry then hit 'o' to close the other
window and RETURN.  I do this 20 times a day... and it's getting kind of
cumbersome :)

I'd love a function I could bind to a single key press to do this.

I know org-clock-marker points at the current location I want to get to
- I just don't know how to use it to get there and reveal the location
the same as if I used the above procedure from the agenda.

Any suggestions?

Thanks,
Bernt

Re: Wishlist - Function to get to and reveal the current clocking task

[Bastien]

Bernt Hansen <bernt@alumni.uwaterloo.ca> writes:

> I'd love a function I could bind to a single key press to do this.
>
> I know org-clock-marker points at the current location I want to get to
> - I just don't know how to use it to get there and reveal the location
> the same as if I used the above procedure from the agenda.

Something like this?

(defun org-goto-clocked-in-entry ()
  "Go to the currently clocked-in entry."
  (interactive)
  (goto-char org-clock-marker)
  (org-show-entry)
  (org-back-to-heading))

-- 
Bastien

Re: Wishlist - Function to get to and reveal the current clocking task

[Bernt Hansen]

Bastien <bzg@altern.org> writes:

> Bernt Hansen <bernt@alumni.uwaterloo.ca> writes:
>
>> I'd love a function I could bind to a single key press to do this.
>>
>> I know org-clock-marker points at the current location I want to get to
>> - I just don't know how to use it to get there and reveal the location
>> the same as if I used the above procedure from the agenda.
>
> Something like this?
>
> (defun org-goto-clocked-in-entry ()
>   "Go to the currently clocked-in entry."
>   (interactive)
>   (goto-char org-clock-marker)
>   (org-show-entry)
>   (org-back-to-heading))

Close :) My first attempt to code this failed miserably.

Your version doesn't handle switching files/buffers.  I also got the
'before first heading' error from your version when not in an org buffer
... so I hacked at it and this is what I have now:

(defun org-goto-clocked-in-entry ()
  "Go to the currently clocked-in entry."
  (interactive)
  (if (not (marker-buffer org-clock-marker))
      (error "No active clock"))
  (display-buffer (marker-buffer org-clock-marker))
  (goto-char org-clock-marker)
  (org-show-entry)
  (org-back-to-heading))

This is closer but still not right.

If I'm in another buffer it splits the window and displays the right
stuff in the other buffer - I just need to close the current window.

My Emacs lisp skills are sadly lacking :(

Thanks!
Bernt

Re: Wishlist - Function to get to and reveal the current clocking task

[Bastien]

Bernt Hansen <bernt@alumni.uwaterloo.ca> writes:

> If I'm in another buffer it splits the window and displays the right
> stuff in the other buffer - I just need to close the current window.

(defun org-goto-clocked-in-entry (&optional delete-windows)
  "Go to the currently clocked-in entry.
If DELETE-WINDOWS is non-nil, delete other windows. Sigh."
  (interactive "P")
  (if (not (marker-buffer org-clock-marker))
      (error "No active clock"))
  (switch-to-buffer-other-window
   (marker-buffer org-clock-marker))
  (if delete-windows (delete-other-windows))
  (goto-char org-clock-marker)
  (org-show-entry)
  (org-back-to-heading))

I guess that comes closer.  

-- 
Bastien

Re: Wishlist - Function to get to and reveal the current clocking task

[Bernt Hansen]

Bastien <bzg@altern.org> writes:

> Bernt Hansen <bernt@alumni.uwaterloo.ca> writes:
>
>> If I'm in another buffer it splits the window and displays the right
>> stuff in the other buffer - I just need to close the current window.
>
> (defun org-goto-clocked-in-entry (&optional delete-windows)
>   "Go to the currently clocked-in entry.
> If DELETE-WINDOWS is non-nil, delete other windows. Sigh."
>   (interactive "P")
>   (if (not (marker-buffer org-clock-marker))
>       (error "No active clock"))
>   (switch-to-buffer-other-window
>    (marker-buffer org-clock-marker))
>   (if delete-windows (delete-other-windows))
>   (goto-char org-clock-marker)
>   (org-show-entry)
>   (org-back-to-heading))
>
> I guess that comes closer.  

Thanks!

(global-set-key (kbd "C-M-<f12>") (lambda () (interactive) (org-goto-clocked-in-entry t)))

:)

Now the only weird thing it does is after going to the right place - if
I hit C-M-<f12> again it goes somewhere else... and again brings it
back.  I'm not sure what's up with that but this is alot better than
navigating through the agenda for me!

Thanks Bastien!!

Regards,
Bernt

P.S. And WOW that's fast response time!!  Much appreciated!

Re: Wishlist - Function to get to and reveal the current clocking task

[Bastien]

Bernt Hansen <bernt@alumni.uwaterloo.ca> writes:

> Now the only weird thing it does is after going to the right place -
> if I hit C-M-<f12> again it goes somewhere else... and again brings it
> back.

I can't reproduce that. You might have gnomes on your computer. Or we
both have, and mine just misbehave differently!

-- 
Bastien

Re: Wishlist - Function to get to and reveal the current clocking task

[Bernt Hansen]

Bastien <bzg@altern.org> writes:

> Bernt Hansen <bernt@alumni.uwaterloo.ca> writes:
>
>> Now the only weird thing it does is after going to the right place -
>> if I hit C-M-<f12> again it goes somewhere else... and again brings it
>> back.
>
> I can't reproduce that. You might have gnomes on your computer. Or we
> both have, and mine just misbehave differently!

Well just for fun I synchronised my setup to my laptop and the gnomes
are in both :)

If I fold my buffer it works but if I show all of the buffer with C-c
C-a then repeatedly run the new function it jumps back and forth between
two points in the file (lines 335 and 365 for me - the clock marker is
on line 365 - almost at the end of the file)

Bernt

Re: Re: Wishlist - Function to get to and reveal the current clocking task

[Bastien]

Bernt Hansen <bernt@alumni.uwaterloo.ca> writes:

> If I fold my buffer it works but if I show all of the buffer with C-c
> C-a then repeatedly run the new function it jumps back and forth between
> two points in the file (lines 335 and 365 for me - the clock marker is
> on line 365 - almost at the end of the file)

I guess the point itself is not moving, it's just the buffer being
centered differently. Let's add recenter:

------------------------------------------------------------------------
(defun org-goto-clocked-in-entry (&optional delete-windows)
  "Go to the currently clocked-in entry."
  (interactive "P")
  (if (not (marker-buffer org-clock-marker))
      (error "No active clock"))
  (switch-to-buffer-other-window
   (marker-buffer org-clock-marker))
  (if delete-windows (delete-other-windows))
  (goto-char org-clock-marker)
  (org-show-entry)
  (org-back-to-heading)
  (recenter))
------------------------------------------------------------------------

?

-- 
Bastien

Re: Wishlist - Function to get to and reveal the current clocking task

[Bernt Hansen]

Bastien <bzg@altern.org> writes:

> Bernt Hansen <bernt@alumni.uwaterloo.ca> writes:
>
>> If I fold my buffer it works but if I show all of the buffer with C-c
>> C-a then repeatedly run the new function it jumps back and forth between
>> two points in the file (lines 335 and 365 for me - the clock marker is
>> on line 365 - almost at the end of the file)
>
> I guess the point itself is not moving, it's just the buffer being
> centered differently. Let's add recenter:
>
> ------------------------------------------------------------------------
> (defun org-goto-clocked-in-entry (&optional delete-windows)
>   "Go to the currently clocked-in entry."
>   (interactive "P")
>   (if (not (marker-buffer org-clock-marker))
>       (error "No active clock"))
>   (switch-to-buffer-other-window
>    (marker-buffer org-clock-marker))
>   (if delete-windows (delete-other-windows))
>   (goto-char org-clock-marker)
>   (org-show-entry)
>   (org-back-to-heading)
>   (recenter))
> ------------------------------------------------------------------------

That seems to help.  Thanks.