17 lines
693 B
Scheme
Executable file
17 lines
693 B
Scheme
Executable file
#!/usr/bin/env sh
|
|
# -*- mode: scheme; -*-
|
|
IFS=" "
|
|
exec scsh -o thread-fluids -s "$0" "$@"
|
|
!#
|
|
|
|
(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)))))
|