branch: master
commit 7c739c4d720ba6d6a1f1d6695f1eed46b4bf69c2
Author: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Commit: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Added faces for arrows and [+] signs
---
ztree.el | 28 +++++++++++++++++++++++-----
1 files changed, 23 insertions(+), 5 deletions(-)
diff --git a/ztree.el b/ztree.el
index 231c8e5..09c9f9c 100644
--- a/ztree.el
+++ b/ztree.el
@@ -38,7 +38,7 @@
;;
;;; TODO:
;; 1) Add some file-handling and marking abilities
-;; 2) More syntax highlighting
+;; 2) Extract tree code as as separate package
;;
;;
;;; Change Log:
@@ -97,7 +97,7 @@ line")
'((((background dark)) (:foreground "#ffffff"))
(((type nil)) (:inherit 'font-lock-function-name-face))
(t (:foreground "Blue")))
- "*Face used for directories if Ztree buffer."
+ "*Face used for directories in Ztree buffer."
:group 'Ztree :group 'font-lock-highlighting-faces)
(defvar ztreep-dir-face 'ztreep-dir-face)
@@ -105,10 +105,24 @@ line")
'((((background dark)) (:foreground "cyan1"))
(((type nil)) (:inherit 'font-lock-variable-name-face))
(t (:foreground "darkblue")))
- "*Face used for directories if Ztree buffer."
+ "*Face used for files in Ztree buffer."
:group 'Ztree :group 'font-lock-highlighting-faces)
(defvar ztreep-file-face 'ztreep-file-face)
+(defface ztreep-arrow-face
+ '((((background dark)) (:foreground "#7f7f7f"))
+ (t (:inherit 'font-lock-comment-face)))
+ "*Face used for arrows in Ztree buffer."
+ :group 'Ztree :group 'font-lock-highlighting-faces)
+(defvar ztreep-arrow-face 'ztreep-arrow-face)
+
+(defface ztreep-dirsign-face
+ '((((background dark)) (:foreground "#7f7fff"))
+ (t (:inherit 'font-lock-comment-face)))
+ "*Face used for directory sign [+] in Ztree buffer."
+ :group 'Ztree :group 'font-lock-highlighting-faces)
+(defvar ztreep-dirsign-face 'ztreep-dirsign-face)
+
;;;###autoload
(define-derived-mode ztree-mode special-mode "Ztree"
@@ -214,7 +228,8 @@ apparently shall not be visible"
(beginning-of-line)
(goto-char (+ x (-(point) 1)))
(delete-char 1)
- (insert-char c 1)))
+ (insert-char c 1)
+ (set-text-properties (1- (point)) (point) '(face ztreep-arrow-face))))
(defun ztree-draw-vertical-line (y1 y2 x)
(if (> y1 y2)
@@ -304,7 +319,10 @@ apparently shall not be visible"
(defun ztree-insert-entry (path offset expanded)
(let ((short-name (printable-string (file-basename path)))
(dir-sign #'(lambda (exp)
- (insert "[" (if exp "-" "+") "]")))
+ (insert "[" (if exp "-" "+") "]")
+ (set-text-properties (- (point) 3)
+ (point)
+ '(face ztreep-dirsign-face))))
(is-dir (file-directory-p path))
(line (line-number-at-pos)))
(when (> offset 0)
