Add eww-mu4e-messages
This commit is contained in:
parent
38a7e04b93
commit
bac0d1a109
14
eww/eww-mu4e-messages
Executable file
14
eww/eww-mu4e-messages
Executable file
@ -0,0 +1,14 @@
|
|||||||
|
#!/usr/bin/env -S emacs -x
|
||||||
|
;;; -*- mode: emacs-lisp; lexical-binding: t -*-
|
||||||
|
(require 'server)
|
||||||
|
(princ
|
||||||
|
(if-let ((modeline-string (server-eval-at "server" '(mu4e--modeline-string)))
|
||||||
|
((string-match "/\\([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"))
|
||||||
|
(terpri)
|
Loading…
Reference in New Issue
Block a user