Some changes
This commit is contained in:
@ -1,17 +1,4 @@
|
||||
#!/usr/bin/env -S emacs -x
|
||||
;;; -*- mode: emacs-lisp; lexical-binding: t -*-
|
||||
(require 'server)
|
||||
(princ
|
||||
(condition-case _
|
||||
(if-let ((modeline-string (server-eval-at "server" '(mu4e--modeline-string)))
|
||||
((string-match "\\([0-9]+\\)\\((\\+[0-9]+)\\)?/[0-9]+ $" modeline-string))
|
||||
(matched-string (match-string 1 modeline-string)))
|
||||
(progn
|
||||
(set-text-properties 0 (length matched-string)
|
||||
nil
|
||||
matched-string)
|
||||
matched-string)
|
||||
"0")
|
||||
(error
|
||||
"0")))
|
||||
(terpri)
|
||||
#!/usr/bin/env zsh
|
||||
|
||||
lines="${(f)$(mu find 'maildir:/protonmail/Inbox AND flag:unread' 2>/dev/null)}"
|
||||
printf '%d' "${#lines}"
|
||||
|
Reference in New Issue
Block a user