From 6c3bf820142ffcb4f3f36ff2a845babebd3ed086 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 26 May 2022 23:32:52 -0700
Subject: [polybar] Use notmuch if available to count unread emails

---
 polybar/usr/bin/count-emails | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'polybar')

diff --git a/polybar/usr/bin/count-emails b/polybar/usr/bin/count-emails
index 787d69d..4bb75c1 100755
--- a/polybar/usr/bin/count-emails
+++ b/polybar/usr/bin/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)))))
-- 
cgit v1.2.3-54-g00ecf