From e9a34f99c4a4bc79b2927d63f4d44b8eb0805a9d Mon Sep 17 00:00:00 2001 From: Christian Cunningham Date: Sun, 9 Jun 2024 23:17:23 -0700 Subject: Color and Larger Header --- elchemy-personal.el | 12 +++++++++++- elchemy.el | 1 + 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/elchemy-personal.el b/elchemy-personal.el index 1855383..8d13bdd 100644 --- a/elchemy-personal.el +++ b/elchemy-personal.el @@ -172,7 +172,17 @@ (make-local-variable 'face-remapping-alist) (add-to-list 'face-remapping-alist '(default (:background "gray90"))))) -(setq-default header-line-format '("♥︎ ELCHEMY ♦︎ %b ♣︎ " (:eval mode-name) " ♠︎")) +(setq-default header-line-format '( + (:propertize "♥︎" face (:foreground "red")) + " " + (:propertize "ELCHEMY" face (:weight bold)) + " " + (:propertize "♦︎" face (:foreground "red")) + " " + (:propertize "%b" face (:slant italic)) + " ♣︎ " + (:eval mode-name) + " ♠︎")) (load "extras/guile-interaction.el") (require 'guile-interaction) diff --git a/elchemy.el b/elchemy.el index d9cd4c5..a4e224b 100644 --- a/elchemy.el +++ b/elchemy.el @@ -30,6 +30,7 @@ ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. + '(header-line ((t (:inherit mode-line :background "gray95" :foreground "grey20" :box nil :height 1.1)))) '(org-document-title ((t (:height 2.0 :underline nil)))) '(org-document-info-keyword ((t (:foreground "gray100" :height 0.1)))) '(org-level-1 ((t (:inherit outline-1 :extend nil :weight extra-bold :height 1.4)))) -- cgit v1.2.1