Hi Carsten, Carsten Dominik wrote: > On Sep 2, 2013, at 4:02 PM, Sebastien Vauban <sva-n...@mygooglest.com> wrote: >> Carsten Dominik wrote: >>>> El Thu, 22 Aug 2013 10:36:00 +0200 Sebastien Vauban va escriure: >>>> >>>>> When jumping to the currently clocked headline (via `C-c C-x C-j'), it >>>>> seems (to me) more logical to recenter that headline at the top of the >>>>> screen (vs at the center of the screen, that is the current behavior). >>> >>>> Seeing a bit of context is nice; maybe putting it at line 2 or 3 is >>>> better than at the top and I think it is better than centered. It could >>>> also be configurable. >>> >>> Yup, I have made this a (recenter 2). Non-configurable until arrival of >>> more votes. >> >> I'd vote for (recenter 0), as: >> >> - I generally only clock on projects, and >> >> - I'm not interested by seeing the last action(s) of the previous project, >> when jumping to the currently clocking task. >> >> May I submit a patch with a configurable variable? > > Yes.
Here it is! Best regards, Seb From: "Sebastien Vauban" <sva-n...@mygooglest.com> Date: Tue, 10 Sep 2013 11:52:51 +0200 Subject: [PATCH] Add option with number of context lines before currently clocked-in entry * org-clock.el (org-clock-goto-before-context): New option. (org-clock-goto): Use that option. --- lisp/org-clock.el | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 524dbf1..c39b589 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1668,6 +1668,9 @@ Optional argument N tells to change by that many units." (message "Clock canceled") (run-hooks 'org-clock-cancel-hook)) +(defvar org-clock-goto-before-context 2 + "Number of lines of context to display before currently clocked-in entry.") + ;;;###autoload (defun org-clock-goto (&optional select) "Go to the currently clocked-in entry, or to the most recently clocked one. @@ -1691,7 +1694,7 @@ With prefix arg SELECT, offer recently clocked tasks for selection." (org-show-entry) (org-back-to-heading t) (org-cycle-hide-drawers 'children) - (recenter 2) + (recenter org-clock-goto-before-context) (org-reveal) (if recent (message "No running clock, this is the most recently clocked task")) -- 1.7.9