Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Refresh the eww message count whenever a message is updated in mu4e

Browse Source
This commit is contained in:
Alexander Rosenberg 2025-02-06 15:41:39 -08:00
parent 719a2ffac7
commit 6a1d358548
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
init.el
View File

@ -530,6 +530,13 @@ printed representation (via `princ') set as the new value for the key."
(when cfg-dir (when cfg-dir
(setq args (nconc (list "-c" cfg-dir) args))) (setq args (nconc (list "-c" cfg-dir) args)))
(apply 'call-process "eww" nil 0 nil args))) (apply 'call-process "eww" nil 0 nil args)))
(defun my/eww-poll-variables (&rest vars)
"Poll each variable in VARS, which is a lists of strings or symbols."
(let* ((args (cons "poll" (mapcar #'(lambda (elt) (format "%s" elt)) vars)))
(cfg-dir (my/eww-current-config-dir)))
(when cfg-dir
(setq args (nconc (list "-c" cfg-dir) args)))
(apply 'call-process "eww" nil 0 nil args)))
;; mozc ;; mozc
(require 'mozc nil t) (require 'mozc nil t)
@ -2647,6 +2654,11 @@ The name is compared with the field name using TESTFN (defaults to `equal')."
(mu4e-alert-set-default-style 'libnotify)) (mu4e-alert-set-default-style 'libnotify))
(mu4e t) (mu4e t)
(mu4e-context-switch nil "Personal") (mu4e-context-switch nil "Personal")
;; refresh the eww message count
(defun my/-mu4e-eww-refresh-unread-count ()
"Refresh the eww unread message count."
(my/eww-poll-variables "mu4e"))
(add-hook 'mu4e-message-changed-hook #'my/-mu4e-eww-refresh-unread-count)
;; mu4e compose HTML messages ;; mu4e compose HTML messages
(use-package org-mime) (use-package org-mime)