Do not show habits in week agenda

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