[Orgmode] [PATCH] Org-agenda.el

[Sébastien Vauban]

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