Use notmuch if available to count unread emails

1 files changed, 12 insertions, 12 deletions

diff --git a/count-emails b/count-emails
index 787d69d..4bb75c1 100755
--- a/count-emails
+++ b/count-emails
@@ -1,17 +1,17 @@
 #!/usr/bin/env sh
 # -*- mode: scheme; -*-
 IFS=" "
-exec scsh -s "$0" "$@"
+exec scsh -o thread-fluids -s "$0" "$@"
 !#
 
-(define mail-root (string-append (getenv "HOME") "/documents/mail"))
-
-(define unread-emails
-  (run/sexp (pipe (find ,mail-root -type f -name "*:2,*" -and -not -name "*:2,*S*")
-                  (wc -l))))
-
-(define new-emails
-  (run/sexp (pipe (find ,mail-root -type f -wholename "*/new/*")
-                  (wc -l))))
-
-(display (+ unread-emails new-emails))
+(if (exec-path-search "notmuch" (thread-fluid exec-path-list))
+    (display (length (run/sexp (notmuch search --output=files --format=sexp tag:unread))))
+    (begin
+      (let* ((mail-root (string-append (getenv "HOME") "/documents/mail"))
+             (unread-emails
+              (run/sexp (pipe (find ,mail-root -type f -name "*:2,*" -and -not -name "*:2,*S*")
+                              (wc -l))))
+             (new-emails
+              (run/sexp (pipe (find ,mail-root -type f -wholename "*/new/*")
+                              (wc -l)))))
+        (display (+ unread-emails new-emails)))))