Re: [O] [PATCH] Center currently clocked headline to top of screen

[Sebastien Vauban]

Hi Carsten,

Carsten Dominik wrote:
> On Sep 2, 2013, at 4:02 PM, Sebastien Vauban <address@hidden> 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" <address@hidden>
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