hl-line-mode for agenda

The one place I've actually found it to be useful.

diff --git a/re/re-org.el b/re/re-org.el
index 044f7eb636ffc1444cb6356c836a9fce01f58ede..c6fcc1a347cb8506b5ff13b4966d647181d6d044 100644 (file)
--- a/re/re-org.el
+++ b/re/re-org.el
@@ -27,6 +27,8 @@
       org-special-ctrl-k t
       org-return-follows-link t
       org-yank-adjusted-subtrees t)
+
+(add-hook 'org-agenda-mode-hook #'hl-line-mode)
 \f
 ;; Agenda and capture
 (setq org-agenda-files '("~/org/inbox.org"
@@ -75,17 +77,17 @@
       org-deadline-warning-days 7
       org-agenda-window-setup 'current-window)
 
-(setq org-agenda-prefix-format '((agenda . " %?-12t% s")
-                                (todo . " ")
-                                (tags . " ")
-                                (search . " "))
+(setq org-agenda-prefix-format '((agenda . "  %?-12t% s")
+                                (todo . "  %?-12t% s")
+                                (tags . "  %?-12t% s")
+                                (search . "  %?-12t% s"))
       org-agenda-scheduled-leaders '("BOOKED: " "Booked %2d d. ago: ")
       org-agenda-deadline-leaders '("DEADLINE: " "In %3d d.: " "%2d d. ago: "))
 
 (setq org-agenda-custom-commands
       '(("d" "Done items" todo "DONE" ((org-agenda-skip-function
                                        '(org-agenda-skip-entry-if 'notregexp "^\\* "))
-                                      (org-agenda-overriding-header "DONE - MAYBE ARCHIVE")))
+                                      (org-agenda-overriding-header "DONE - MAYBE ARCHIVE:")))
        ("f" "Maybe Someday" tags "someday" ((org-agenda-files '("~/org/someday.org"))
                                             (org-agenda-overriding-header "SOMEDAY:")))
        ("i" "Inbox" tags "inbox" ((org-agenda-overriding-header "INBOX:")))