#!/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]+\\)\\((\\+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"))
(terpri)
