Color and Larger Header

2 files changed, 12 insertions, 1 deletions

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))))