diff --git a/doom-modeline.el b/doom-modeline.el index c4e00cc..49a432a 100644 --- a/doom-modeline.el +++ b/doom-modeline.el @@ -179,94 +179,6 @@ active.") "The face used for eyebrowse.") -;; -;; Custom faces -;; - -(defgroup doom-modeline nil - "Doom mode-line faces." - :group 'faces) - -(defface doom-modeline-buffer-path - '((t (:inherit mode-line-emphasis :bold t))) - "Face used for the dirname part of the buffer path.") - -(defface doom-modeline-buffer-file - '((t (:inherit mode-line-buffer-id))) - "Face used for the filename part of the mode-line buffer path.") - -(defface doom-modeline-buffer-modified - '((t (:inherit error :background nil :bold t))) - "Face used for the 'unsaved' symbol in the mode-line.") - -(defface doom-modeline-buffer-major-mode - '((t (:inherit mode-line-emphasis :bold t))) - "Face used for the major-mode segment in the mode-line.") - -(defface doom-modeline-highlight - '((t (:inherit mode-line-emphasis))) - "Face for bright segments of the mode-line.") - -(defface doom-modeline-panel - '((t (:inherit mode-line-highlight))) - "Face for 'X out of Y' segments, such as `doom-modeline--anzu', `doom-modeline--evil-substitute' and -`iedit'") - -(defface doom-modeline-info - `((t (:inherit success :bold t))) - "Face for info-level messages in the modeline. Used by `*vc'.") - -(defface doom-modeline-warning - `((t (:inherit warning :bold t))) - "Face for warnings in the modeline. Used by `*flycheck'") - -(defface doom-modeline-urgent - `((t (:inherit error :bold t))) - "Face for errors in the modeline. Used by `*flycheck'") - -;; Bar -(defface doom-modeline-bar '((t (:inherit highlight))) - "The face used for the left-most bar on the mode-line of an active window.") - -(defface doom-modeline-eldoc-bar '((t (:inherit shadow))) - "The face used for the left-most bar on the mode-line when eldoc-eval is -active.") - -(defface doom-modeline-inactive-bar '((t (:inherit warning :inverse-video t))) - "The face used for the left-most bar on the mode-line of an inactive window.") - -(defface doom-modeline-persp '((t ())) - "The face used for persp number.") - -(defface doom-modeline-eyebrowse '((t ())) - "The face used for eyebrowse.") - -(defface doom-modeline-bracket '((t (:inherit shadow))) - "The face used for brackets around the project.") - -(eval-and-compile - (defun doom-modeline--resolve-hook-forms (hooks) - (cl-loop with quoted-p = (eq (car-safe hooks) 'quote) - for hook in (doom-modeline-enlist (doom-modeline-unquote hooks)) - if (eq (car-safe hook) 'quote) - collect (cadr hook) - else if quoted-p - collect hook - else collect (intern (format "%s-hook" (symbol-name hook))))) - - (defun doom-modeline-enlist (exp) - "Return EXP wrapped in a list, or as-is if already a list." - (if (listp exp) exp (list exp))) - - (defun doom-modeline-unquote (exp) - "Return EXP unquoted." - (while (memq (car-safe exp) '(quote function)) - (setq exp (cadr exp))) - exp) - - (defvar doom-modeline--transient-counter 0)) - - ;; ;; Modeline library ;;