diff options
Diffstat (limited to 'polybar')
| -rwxr-xr-x | polybar/usr/bin/count-emails | 24 |
1 files changed, 12 insertions, 12 deletions
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))))) |