Re: [O] [PATCH] Correctly align clock information in default time grid

[Sebastien Vauban]

Hi Bernt and Bastien,

Bernt Hansen wrote:
> "Sebastien Vauban" writes:
>> Here a tiny patch to correctly align clock info in the default time grid.
>>
>> For example:
>>
>> Day-agenda (W06):
>> 2013-02-04 Mon __________________________________________________
>>                8:00......
>>  Clk (1:05)    9:03-10:08 TODO Organize work
>>               10:00......
>>  Clk (0:59)   10:08-11:07 DONE Do work for client A
>>  Clk (1:24)   11:06-12:30 TODO Do other work for client B
>>               12:00......
>>  Clk (-)      13:34...... TODO Send patch to org-mode ML
>>               13:49...... now
>>               14:00......
>
> I'm not sure 'Clk' is more readable than 'Clocked' but it does align
> clock entries better.  However state change logs suffer from a similar
> misalignment.  I think a complete fix should correct the alignment for
> all of the items.

Here is a patch which fixes both string together.

> Personally I don't mind the clock line misalignment - I think it's
> easier to read Clocked vs Clk.  I think everything should be aligned or
> leave it as is.

By respecting the rule "11-char wide string" for more elements which are
displayed in the time grid, I think it becomes much more easy to adapt things
to our personal flavor, while still being able to keep things aligned.

For example, here is how the patch looks like with the Org default settings --
well with my `leuven-theme':

    http://screencast.com/t/OXBjlIZgkTz

The same patch with the following settings:

--8<---------------cut here---------------start------------->8---
    (setq org-agenda-prefix-format
          '((agenda . " %-11s%i %?-12t")
            (timeline . " % s")
            (todo . " %i %-12:c")
            (tags . " %i %-12:c")
            (search . " %i %-12:c")))

    (setq org-agenda-scheduled-leaders
          '("Today      "
            "           "))

    (setq org-agenda-deadline-leaders
          '("Deadline   "
            "In %d d" ;; or "%d d left"
            "%d d ago"))
--8<---------------cut here---------------end--------------->8---

gives a better layout (IMHO):

    http://screencast.com/t/KCrAHxCTJo

Best regards,
  Seb

>From 513702851922a87e1d94adf862f573b7e96c1dd0 Mon Sep 17 00:00:00 2001
From: Sebastien Vauban <address@hidden>
Date: Tue, 5 Feb 2013 20:46:16 +0100
Subject: [PATCH 2/2] Correctly align clock information and task initial
 status in time grid

* org-agenda.el (org-agenda-get-progress): By respecting the default
11-char convention for "Scheduling/Deadline information" (`%s' in
`org-agenda-prefix-format'), the clocked lines and the status changes are
perfectly aligned in the time grid.

---
 lisp/org-agenda.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 2ce9f20..5d19a39 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5812,8 +5812,8 @@ please use `org-class' instead."
            (setq txt (org-agenda-format-item
                       (cond
                        (closedp "Closed:    ")
-                       (statep (concat "State:     (" state ")"))
-                       (t (concat "Clocked:   (" clocked  ")")))
+                       (statep (concat "St  (" state ") "))
+                       (t (concat "Clk (" clocked  ") ")))
                       txt level category tags timestr)))
          (setq priority 100000)
          (org-add-props txt props
@@ -5853,7 +5853,7 @@ See also the user option 
`org-agenda-clock-consistency-checks'."
                       '((:background "DarkRed") (:foreground "white"))))
         issue face m te ts dt ov)
     (goto-char (point-min))
-    (while (re-search-forward " Clocked: +(-\\|\\([0-9]+:[0-9]+\\))" nil t)
+    (while (re-search-forward " Clk (-\\|\\([0-9]+:[0-9]+\\)) " nil t)
       (setq issue nil face def-face)
       (catch 'next
        (setq m (org-get-at-bol 'org-marker)
--
1.7.9

--
Sebastien Vauban