Add eww-mu4e-messages

2024-08-16 21:09:57 -07:00 · 2024-08-16 21:09:57 -07:00 · bac0d1a109
commit bac0d1a109
parent 38a7e04b93
1 changed files with 14 additions and 0 deletions
--- a/eww/eww-mu4e-messages
+++ b/eww/eww-mu4e-messages
@ -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)