Some changes

This commit is contained in:
2025-02-04 21:02:12 -08:00
parent f40f9f5277
commit ee1321e857
6 changed files with 83 additions and 28 deletions

View File

@ -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}"