From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [PATCH] Correctly align clock information in default time grid Date: Mon, 04 Feb 2013 14:01:34 +0100 Message-ID: <86lib4qlld.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org 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 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