[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Setting org-agenda-time-grid: My day starts at midnight
From: |
Bastien |
Subject: |
Re: [Orgmode] Setting org-agenda-time-grid: My day starts at midnight |
Date: |
Thu, 02 Sep 2010 15:22:46 +0200 |
User-agent: |
Gnus/5.110011 (No Gnus v0.11) Emacs/23.2 (gnu/linux) |
Memnon Anon <address@hidden> writes:
> I added one line:
> (unless (and remove (member time have))
> (setq time (int-to-string time))
> ;;MAN make sure time is at least 3 characters long or substring will fail
> => (when (< (length time) 3) (setq time (concat "00" time)))
> (push (org-format-agenda-item
Thanks for the report.
I fixed this in a slightly different way:
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 3f66725..90c6935 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5118,7 +5118,7 @@ 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 (int-to-string time))
+ (setq time (format "%2d" time))
(push (org-format-agenda-item
nil string "" nil
(concat (substring time 0 -2) ":" (substring time -2)))
--
Bastien
- Re: [Orgmode] Setting org-agenda-time-grid: My day starts at midnight,
Bastien <=