[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] Correctly align clock information in default time grid
From: |
Sebastien Vauban |
Subject: |
[O] [PATCH] Correctly align clock information in default time grid |
Date: |
Mon, 04 Feb 2013 14:01:34 +0100 |
User-agent: |
Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2.92 (windows-nt) |
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
- [O] [PATCH] Correctly align clock information in default time grid,
Sebastien Vauban <=