diff options
Diffstat (limited to 'modules/nerd-icons-config.el')
| -rw-r--r-- | modules/nerd-icons-config.el | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/modules/nerd-icons-config.el b/modules/nerd-icons-config.el new file mode 100644 index 00000000..4a8ce194 --- /dev/null +++ b/modules/nerd-icons-config.el @@ -0,0 +1,94 @@ +;;; nerd-icons-config.el --- Nerd-icons setup, integrations, and tinting -*- lexical-binding: t; -*- +;; author: Craig Jennings <c@cjennings.net> + +;;; Commentary: +;; +;; Single home for nerd-icons: +;; - the package itself +;; - completion integration (`nerd-icons-completion') +;; - ibuffer integration (`nerd-icons-ibuffer') +;; - bulk color tinting of every `nerd-icons-*' color face +;; - dir-icon color advice (so directory glyphs carry a color face like +;; file glyphs do, instead of falling through to the buffer default +;; face) +;; +;; Per-feature USE of nerd-icons stays in the feature module that consumes +;; it: `dashboard-icon-type', `dirvish-attributes', and the keyboard-compat +;; terminal-frame icon-blanking advice are not centralized here. + +;;; Code: + +;; ----------------------------- Customization --------------------------------- + +(defcustom cj/nerd-icons-tint-color "darkgoldenrod" + "Single foreground color applied to every `nerd-icons-*' color face. +Set via Customize or by `setq' before this module loads, then call +`cj/nerd-icons-apply-tint' to re-apply on demand." + :type 'string + :group 'cj) + +(defconst cj/--nerd-icons-color-faces + '(nerd-icons-red nerd-icons-lred nerd-icons-dred nerd-icons-red-alt + nerd-icons-green nerd-icons-lgreen nerd-icons-dgreen + nerd-icons-yellow nerd-icons-lyellow nerd-icons-dyellow + nerd-icons-orange nerd-icons-lorange nerd-icons-dorange + nerd-icons-blue nerd-icons-blue-alt nerd-icons-lblue nerd-icons-dblue + nerd-icons-cyan nerd-icons-cyan-alt nerd-icons-lcyan nerd-icons-dcyan + nerd-icons-purple nerd-icons-purple-alt nerd-icons-lpurple nerd-icons-dpurple + nerd-icons-pink nerd-icons-lpink nerd-icons-dpink + nerd-icons-maroon nerd-icons-lmaroon nerd-icons-dmaroon + nerd-icons-silver nerd-icons-lsilver nerd-icons-dsilver) + "Every color face nerd-icons attaches to glyphs via `:inherit'.") + +;; ------------------------------- Helpers ------------------------------------- + +(defun cj/nerd-icons-apply-tint (&optional color) + "Set every face in `cj/--nerd-icons-color-faces' to foreground COLOR. +COLOR defaults to `cj/nerd-icons-tint-color'. Faces that are not yet +defined (nerd-icons not loaded) are silently skipped." + (interactive) + (let ((c (or color cj/nerd-icons-tint-color))) + (dolist (f cj/--nerd-icons-color-faces) + (when (facep f) + (set-face-foreground f c))))) + +(defun cj/--nerd-icons-color-dir (icon) + "Layer `nerd-icons-yellow' onto ICON's face stack and return ICON. +ICON is the propertized string returned by `nerd-icons-icon-for-dir'. +Without this, directory icons render in the buffer default face — so a +buffer-local face-remap of `default' catches them unintentionally. + +Idempotent: nerd-icons memoizes its return strings, and this advice modifies +in place, so a naive `add-face-text-property' would stack the face symbol on +every call. The `memq' check skips when the face is already present." + (when (and (stringp icon) (> (length icon) 0)) + (let ((faces (ensure-list (get-text-property 0 'face icon)))) + (unless (memq 'nerd-icons-yellow faces) + (add-face-text-property 0 (length icon) 'nerd-icons-yellow nil icon)))) + icon) + +;; ------------------------------- Packages ------------------------------------ + +(use-package nerd-icons + :demand t + :config + (advice-add 'nerd-icons-icon-for-dir :filter-return #'cj/--nerd-icons-color-dir) + (cj/nerd-icons-apply-tint)) + +(use-package nerd-icons-completion + :demand t + :after (nerd-icons marginalia) + :hook (marginalia-mode . nerd-icons-completion-marginalia-setup) + :config + (nerd-icons-completion-mode)) + +(use-package nerd-icons-ibuffer + :after nerd-icons + :hook (ibuffer-mode . nerd-icons-ibuffer-mode) + :custom + (nerd-icons-ibuffer-icon t) + (nerd-icons-ibuffer-color-icon t) + (nerd-icons-ibuffer-human-readable-size t)) + +(provide 'nerd-icons-config) +;;; nerd-icons-config.el ends here |