[elpa] master b43e0e7 12/92: Added header face

[Alexey Veretennikov]

branch: master
commit b43e0e7308a5275e56398931bce3085ec319540a
Author: Alexey Veretennikov <address@hidden>
Commit: Alexey Veretennikov <address@hidden>

    Added header face
---
 ztree.el |   19 +++++++++++++++----
 1 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/ztree.el b/ztree.el
index 09c9f9c..31b395d 100644
--- a/ztree.el
+++ b/ztree.el
@@ -93,6 +93,15 @@ line")
     map)
   "Keymap for `ztree-mode'.")
 
+(defface ztreep-header-face
+  '((((type tty pc) (class color)) :foreground "lightblue" :weight bold)
+   (((background dark)) (:height 1.2 :foreground "lightblue" :weight bold))
+    (t :height 1.2 :foreground "darkblue" :weight bold))
+  "*Face used for the header in Ztree buffer."
+  :group 'Ztree :group 'font-lock-highlighting-faces)
+(defvar ztreep-header-face 'ztreep-header-face)
+
+
 (defface ztreep-dir-face
     '((((background dark)) (:foreground "#ffffff"))
       (((type nil))        (:inherit 'font-lock-function-name-face))
@@ -344,10 +353,12 @@ apparently shall not be visible"
     line))
 
 (defun ztree-insert-buffer-header ()
-  (insert "Directory tree")
-  (newline)
-  (insert "==============")
-  (newline)
+  (let ((start (point)))
+    (insert "Directory tree")
+    (newline)
+    (insert "==============")
+    (set-text-properties start (point) '(face ztreep-header-face))
+    (newline))
   (setq ztree-start-line (line-number-at-pos (point))))