summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2024-04-28 21:21:02 -0500
committerCraig Jennings <c@cjennings.net>2024-04-28 21:21:02 -0500
commit53fc9c40c16a8d7b7f598350838717485756f547 (patch)
tree30b4cb836ba593e1bdae56675dfd3629774f26aa
parent3d207c669a873035ecaf2679e838969cd0625f9f (diff)
moving to Emacs built-in named facesdevelop
-rw-r--r--feebleline.el10
1 files 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)
)