Do not show habits in week agenda

3 years ago · e7106e9a6e
parent 28db0c70d8
commit e7106e9a6e
1 changed files with 7 additions and 0 deletions
--- a/global.org
+++ b/global.org
@ -1189,6 +1189,13 @@
              (todo . " %i %6c · ")
              (tags . " %i %6c · ")
              (search . " %i %6c · ")))
+
+      (advice-add 'org-agenda-get-scheduled :around
+                  (lambda (orig-fun &rest args)
+                    "Only show habits on day wiew, not on week view"
+                    (let ((org-habit-show-habits
+                           (with-current-buffer org-agenda-buffer (eq org-agenda-current-span 'day))))
+                           (apply orig-fun args))))
    #+end_src
    - Add a whiteline after the header Now, this is a horrible hack:
      the string that forms the header is obtained by constructing