From bac0d1a10926ee0e23a5fae9a808aee1377f6499 Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Fri, 16 Aug 2024 21:09:57 -0700 Subject: [PATCH] Add eww-mu4e-messages --- eww/eww-mu4e-messages | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100755 eww/eww-mu4e-messages diff --git a/eww/eww-mu4e-messages b/eww/eww-mu4e-messages new file mode 100755 index 0000000..fb19580 --- /dev/null +++ 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)