Fix imminent streak loss face

global.org

@@ -1506,7 +1506,7 @@
                  (streak-current (car streak))
                  (streak-current-stats (nth 1 streak))
                   (current-ok (< (car streak-current-stats) (nth 1 streak-current-stats)))
-                  (current-on-deadline (> (car streak-current-stats) (nth 2 streak-current-stats)))
+                  (current-on-deadline (= (car streak-current-stats) (nth 2 streak-current-stats)))
                  (streak-face (if (eq 0 streak-current) 'font-lock-comment-face
                                   (if current-on-deadline 'org-habit-overdue-face
                                        (if current-ok 'org-habit-ready-face
@@ -1521,6 +1521,8 @@
     suitable to be taken care of during a pomodoro break.  Such tasks
     should be marked with tags ~:5m:~ and ~:20m:~ according to the
     estimate on the time it would take to take care of them
+
+    Is it possible to edit the default agenda views?
     #+begin_src emacs-lisp
       (setq org-agenda-custom-commands
             '(