From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: Re: [PATCH] Correctly align clock information in default time grid Date: Tue, 05 Feb 2013 20:54:18 +0100 Message-ID: <86lib2pmdx.fsf@somewhere.org> References: <86lib4qlld.fsf@somewhere.org> <87d2wghucq.fsf@norang.ca> 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 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 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