diff options
| 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 |
| commit | e130c7984df9991e3158db02a5a54255e60c17bd (patch) | |
| tree | 91731b72e895d6f5b384a7c46aca4209b34c514c /config | |
| parent | 406d8ddbceb2d0e33cebccf709b5b13ab2065f58 (diff) | |
| download | dotfiles-e130c7984df9991e3158db02a5a54255e60c17bd.tar.gz dotfiles-e130c7984df9991e3158db02a5a54255e60c17bd.tar.bz2 dotfiles-e130c7984df9991e3158db02a5a54255e60c17bd.zip | |
Tagmail colorize in emacs reader not terminal output
Diffstat (limited to 'config')
| -rw-r--r-- | config/doom/config.org | 11 |
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) |