aboutsummaryrefslogtreecommitdiffstats
path: root/config/doom
diff options
context:
space:
mode:
authorÓscar Nájera <hi@oscarnajera.com>2022-10-11 05:12:31 +0200
committerÓscar Nájera <hi@oscarnajera.com>2022-10-11 05:12:31 +0200
commite130c7984df9991e3158db02a5a54255e60c17bd (patch)
tree91731b72e895d6f5b384a7c46aca4209b34c514c /config/doom
parent406d8ddbceb2d0e33cebccf709b5b13ab2065f58 (diff)
downloaddotfiles-e130c7984df9991e3158db02a5a54255e60c17bd.tar.gz
dotfiles-e130c7984df9991e3158db02a5a54255e60c17bd.tar.bz2
dotfiles-e130c7984df9991e3158db02a5a54255e60c17bd.zip
Tagmail colorize in emacs reader not terminal output
Diffstat (limited to 'config/doom')
-rw-r--r--config/doom/config.org11
1 files changed, 9 insertions, 2 deletions
diff --git a/config/doom/config.org b/config/doom/config.org
index 3e1a422..cce1403 100644
--- a/config/doom/config.org
+++ b/config/doom/config.org
@@ -379,13 +379,20 @@ this new window.
(completing-read "Which mailbox"))
(kill-buffer buffer)))))
+
+(define-derived-mode mail-sync-log-mode comint-mode "mail-sync-log"
+ "Major mode for reading mail sync."
+ ;; code for syntax highlighting
+ (setq font-lock-defaults `(((,(rx bol "[" (1+ (or letter space)) "]") . font-lock-warning-face)
+ (,(rx bol " [mv]") . font-lock-constant-face)
+ (,(rx bol " [rm]") . font-lock-keyword-face)))))
+
(defun on/fetch-all-email ()
"Start tagmail fetch on a subprocess."
(interactive)
(with-current-buffer (get-buffer-create "*E-mail fetch*")
(pop-to-buffer (current-buffer))
- (comint-mode)
- (ansi-color-for-comint-mode-on)
+ (mail-sync-log-mode)
(make-process
:name "E-mail fetch"
:buffer (current-buffer)