random-scripts/eww/eww-mu4e-messages

#!/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)