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

[Sebastien Vauban]

Hello,

Here a tiny patch to correctly align clock info in the default time grid.

For example:

--8<---------------cut here---------------start------------->8---
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...... 
--8<---------------cut here---------------end--------------->8---

Best regards,
  Seb

>From ee8632ac6d68aebe1613bf3e190ee5616bfb19ee Mon Sep 17 00:00:00 2001
From: Sebastien Vauban <address@hidden>
Date: Mon, 4 Feb 2013 13:47:54 +0100
Subject: [PATCH] Respect the 11-char default convention for %s info

* 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 are perfectly aligned
in the time grid.

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

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 2ce9f20..355a477 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5813,7 +5813,7 @@ please use `org-class' instead."
                       (cond
                        (closedp "Closed:    ")
                        (statep (concat "State:     (" state ")"))
-                       (t (concat "Clocked:   (" clocked  ")")))
+                       (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