[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [PATCH] Org-agenda.el
From: |
Sébastien Vauban |
Subject: |
[Orgmode] [PATCH] Org-agenda.el |
Date: |
Fri, 01 Oct 2010 13:21:59 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) |
Hello,
Here a tiny patch to:
* have padding with 0 for the clock time
* begin applying face org-time-grid from position 2, in order to be properly
aligned with the rest of the agenda (you don't see that if you don't have a
face with background color)
--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index f8ee2b3..49e0aa6 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5135,13 +5135,13 @@ The modified list may contain inherited tags, and tags
matched by
(throw 'exit list))
(while (setq time (pop gridtimes))
(unless (and remove (member time have))
- (setq time (replace-regexp-in-string " " "0" (format "%4s" time)))
+ (setq time (replace-regexp-in-string " " "0" (format "%04s" time)))
(push (org-format-agenda-item
nil string "" nil
(concat (substring time 0 -2) ":" (substring time -2)))
new)
(put-text-property
- 1 (length (car new)) 'face 'org-time-grid (car new))))
+ 2 (length (car new)) 'face 'org-time-grid (car new))))
(if (member 'time-up org-agenda-sorting-strategy-selected)
(append new list)
(append list new)))))
--8<---------------cut here---------------end--------------->8---
Best regards,
Seb
--
Sébastien Vauban
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Orgmode] [PATCH] Org-agenda.el,
Sébastien Vauban <=