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