From 2212a5eb1330b40c712578ee98e5c7c6bfeb9da6 Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Tue, 1 Aug 2023 02:17:28 +0100 Subject: [PATCH] feat(editor/doom-modeline): override flycheck/flymake "ok" icon 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". --- modules/editor/siren-doom-modeline.el | 16 ++++++++++++++++ straight/versions/default.el | 2 +- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/modules/editor/siren-doom-modeline.el b/modules/editor/siren-doom-modeline.el index eefee86..2863e0b 100644 --- a/modules/editor/siren-doom-modeline.el +++ b/modules/editor/siren-doom-modeline.el @@ -23,7 +23,23 @@ (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) diff --git a/straight/versions/default.el b/straight/versions/default.el index 6585c93..5f02677 100644 --- a/straight/versions/default.el +++ b/straight/versions/default.el @@ -38,7 +38,7 @@ ("dired-plus" . "90fc0d5a110063278e3fe320dd903ec07be5dba7") ("dirvish" . "4b63cd2e5ba994f8e674388db7035de1a8f0343f") ("docker.el" . "4a308e6b2184a1b7745df5a8b8adafb29b3f7157") - ("doom-modeline" . "af3274ae5f31947370bbc57661c0f19b5c06ccfc") + ("doom-modeline" . "265a8249ff8b61ef7f2e09c56988dd04b1f2d56e") ("dumb-jump" . "0a783d1db610ff1dc4e1b7869589cff16ff92f7a") ("edit-indirect" . "f80f63822ffae78de38dbe72cacaeb1aaa96c732") ("editorconfig-emacs" . "a8b31c925e5cdee4b26b10a43094787937fe441e")