Dont send org notify on 'PROGRESS'

files/emacs/init.org

@@ -586,6 +586,22 @@ I need my =hjkl= :(
   :straight t
   :config
   (setq alert-default-style 'libnotify)
+  (defun org-alert--parse-entry ()
+    "Parse an entry from the org agenda and return a list of the heading and the scheduled/deadline time"
+    (let ((head (org-alert--strip-text-properties (org-get-heading t t t t)))
+  	  (body (org-alert--grab-subtree))
+	  (todo (org-get-todo-state)))
+      (string-match org-alert-time-match-string body)
+      (list head (match-string 1 body) todo)))
+  (defun org-alert--dispatch ()
+    (let* ((entry (org-alert--parse-entry))
+  	 (head (car entry))
+  	 (time (cadr entry))
+	 (todo (cadr (cdr entry))))
+      (if time
+  	(when (and (string= todo "TODO") (org-alert--check-time time))
+  	  (alert (concat time ": " head) :title org-alert-notification-title))
+        (alert head :title org-alert-notification-title))))
   (org-alert-enable))
 #+end_src