Whitespace

global.org

@@ -827,19 +827,47 @@
                                  "")))
 
                       (format (concat "\n"
-                                "%-13s %s %4d%s\n"
+                                      "%12s  %s %4d%s\n"
-                                "%-13s\n"
+                                      "%12s \n"
-                                "%-13s %-10s\n"
+                                      "%12s  %-10s\n"
-                                "%-13s\n"
+                                      "%12s \n"
-                                "%-13s %s\n")
+                                      "%12s  %s\n")
                               (figlet-num day 0) monthname year weekstring
                               (figlet-num day 1)
                               (figlet-num day 2) dayname
                               (figlet-num day 3)
                               (figlet-num day 4) (sunrise-sunset))))
+
       (setq org-agenda-format-date #'org-agenda-format-date-figlet)
+      (setq org-agenda-prefix-format
+            '((agenda . " %i %9c · %?-12t% s")
+             (todo . " %i %9c · ")
+             (tags . " %i %9c · ")
+             (search . " %i %9c · ")))
+    #+end_src
+    - Add a whiteline after the header Now, this is a horrible hack:
+      the string that forms the header is obtained by constructing
+      some pretty-text in a temporary buffer and then retrieving the
+      string with #'buffer-string Hence we add (and remove) an advice
+      to the function buffer-string that concat's a newline around
+      each function that produces the headers
+    #+begin_src emacs-lisp
+      (defun concat-newline (s)
+      (concat s "\n"))
+
+      (mapcar (lambda (fun)
+                (advice-add fun :around
+                  (lambda (orig-fun &rest args)
+                    (advice-add #'buffer-string :filter-return #'concat-newline)
+                    (apply orig-fun args)
+                    (advice-remove #'buffer-string #'concat-newline))))
+              '(org-tags-view org-todo-list))
+    #+end_src
+    #+begin_src emacs-lisp
+    (advice-add #'org-agenda--insert-overriding-header :filter-args
+                  (lambda (params)
+                    (list `(concat ,(car params) "\n"))))
     #+end_src
-
     Improve the org-habit graph thing
     #+begin_src emacs-lisp
       (setq org-habit-regular-glyph ?□