From 53fc9c40c16a8d7b7f598350838717485756f547 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sun, 28 Apr 2024 21:21:02 -0500 Subject: moving to Emacs built-in named faces --- feebleline.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/feebleline.el b/feebleline.el index 25ed62e..89ac71d 100644 --- a/feebleline.el +++ b/feebleline.el @@ -96,7 +96,7 @@ This buffer is primarily used to overwrite the echo area.") ;; -------------------------- Line And Column Element -------------------------- (defface feebleline-line-column-face - '((t :inherit 'default :foreground "#E37464")) + '((t :inherit 'font-lock-number-face)) "The default face used to display version control project names and branches." :group 'feebleline) @@ -110,12 +110,12 @@ For example, the string for line 120 and column 15 would be ' 120:15 '." ;; ----------------- Buffer Name Or File Name With Path Element ---------------- (defface feebleline-dir-name-face - '((t :inherit 'default :foreground "#5E4D37")) + '((t :inherit 'font-lock-comment-face)) "The default face used to display directory paths." :group 'feebleline) (defface feebleline-buffer-name-face - '((t :inherit 'default :foreground "#2B61B6")) + '((t :inherit 'font-lock-function-name-face)) "The default face used to display file and buffer names." :group 'feebleline) @@ -139,7 +139,7 @@ For example, the string for line 120 and column 15 would be ' 120:15 '." ;; --------------------------- VC Information Element -------------------------- (defface feebleline-vc-info-face - '((t :inherit 'default :foreground "#94E151")) + '((t :inherit 'font-lock-warning-face)) "The default face used to display version control project names and branches." :group 'feebleline) @@ -179,7 +179,7 @@ When the project name doesn't exist, return nil." (feebleline-file-directory :face feebleline-dir-name-face :post "") ;; the message to invalid face reference is with file-or-buffer-name ;; here in the next line when it tries to apply to file or buffer name - (feebleline-file-or-buffer-name :post "") + (feebleline-file-or-buffer-name :face feebleline-buffer-name-face :post "") (feebleline-buffer-modified-star :face feebleline-buffer-name-face) (feebleline-line-column-info :face feebleline-line-column-face) ) -- cgit v1.2.3