mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
2212a5eb13
I don't like the "check_cicle_outline" icon that doom-modeline uses by default. Hence we override that icon to replace it with "check_bold".
47 lines
1.4 KiB
EmacsLisp
47 lines
1.4 KiB
EmacsLisp
;;; siren-doom-modeline.el --- jimeh's Emacs Siren: doom-modeline theme.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Setup for doom-modeline theme.
|
|
|
|
;;; Code:
|
|
|
|
(use-package doom-modeline
|
|
:custom
|
|
(doom-modeline-bar-width 3)
|
|
(doom-modeline-buffer-encoding nil)
|
|
(doom-modeline-buffer-file-name-style 'auto)
|
|
(doom-modeline-buffer-modification-icon t)
|
|
(doom-modeline-buffer-state-icon t)
|
|
(doom-modeline-checker-simple-format t)
|
|
(doom-modeline-enable-word-count t)
|
|
(doom-modeline-height 25)
|
|
(doom-modeline-indent-info nil)
|
|
(doom-modeline-minor-modes t)
|
|
(doom-modeline-hud t)
|
|
(doom-modeline-persp-name nil)
|
|
(doom-modeline-vcs-max-length 24)
|
|
(doom-modeline-workspace-name nil)
|
|
|
|
:preface
|
|
(defgroup siren-doom-modeline nil
|
|
"Siren specific tweaks to doom-modeline."
|
|
:group 'doom-modeline)
|
|
|
|
(defcustom siren-doom-modeline-override-icons '(("nf-md-check_circle_outline" . "nf-md-check_bold"))
|
|
"List of icons to override with different icons."
|
|
:type '(alist :key-type string :value-type string)
|
|
:group 'siren-doom-modeline)
|
|
|
|
(defun siren-doom-modeline-checker-icon-advice (orig-fun icon unicode text face)
|
|
(let ((icon (or (cdr (assoc icon siren-doom-modeline-override-icons)) icon)))
|
|
(apply orig-fun (list icon unicode text face))))
|
|
|
|
:config
|
|
(advice-add 'doom-modeline-checker-icon :around #'siren-doom-modeline-checker-icon-advice)
|
|
|
|
(doom-modeline-mode))
|
|
|
|
(provide 'siren-doom-modeline)
|
|
;;; siren-doom-modeline.el ends here
|