Zander671/random-scripts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix eww-mu4e-messages

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-08-18 09:54:18 -07:00
parent c9a999f5a2
commit a6fa3120d6
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
eww/eww-mu4e-messages
View File

@ -2,13 +2,16 @@
;;; -*- mode: emacs-lisp; lexical-binding: t -*-
(require 'server)
(princ
(if-let ((modeline-string (server-eval-at "server" '(mu4e--modeline-string)))
((string-match "\\([0-9]+\\)\\((\\+1)\\)?/[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"))
(condition-case _
(if-let ((modeline-string (server-eval-at "server" '(mu4e--modeline-string)))
((string-match "\\([0-9]+\\)\\((\\+1)\\)?/[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)