branch: master
commit f0379794a70d7f3879ea204c43c452e484ea19f3
Author: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Commit: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Added rounding at the end of vertical line
---
README.md | 3 ++-
ztree-view.el | 16 +++++++++++-----
2 files changed, 13 insertions(+), 6 deletions(-)
diff --git a/README.md b/README.md
index 18c5774..b4dae55 100644
--- a/README.md
+++ b/README.md
@@ -1,7 +1,8 @@
ztree
=====
-Ztree is a project dedicated to implementation of several text-tree
applications inside Emacs. It consists of 2 subprojects: **ztree-diff** and
**ztree-dir**(the basis of **ztree-diff**)
+Ztree is a project dedicated to implementation of several text-tree
applications inside Emacs. It consists of 2 subprojects: **ztree-diff** and
**ztree-dir**(the basis of **ztree-diff**). Available in MELPA
(http://melpa.milkbox.net/#/).
+
ztree-diff
==========
diff --git a/ztree-view.el b/ztree-view.el
index a8b4d6a..d1f71a4 100644
--- a/ztree-view.el
+++ b/ztree-view.el
@@ -346,11 +346,17 @@ list of leafs"
(put-text-property (1- (point)) (point) 'face (if face face
'ztreep-arrow-face))))
(defun ztree-draw-vertical-line (y1 y2 x &optional face)
- (if (> y1 y2)
- (dotimes (y (1+ (- y1 y2)))
- (ztree-draw-char ?\| x (+ y2 y) face))
- (dotimes (y (1+ (- y2 y1)))
- (ztree-draw-char ?\| x (+ y1 y) face))))
+ "Draw a vertical line of '|' characters finishing with '`' character"
+ (let ((count (abs (- y1 y2))))
+ (if (> y1 y2)
+ (progn
+ (dotimes (y count)
+ (ztree-draw-char ?\| x (+ y2 y) face))
+ (ztree-draw-char ?\` x (+ y2 count) face))
+ (progn
+ (dotimes (y count)
+ (ztree-draw-char ?\| x (+ y1 y) face))
+ (ztree-draw-char ?\` x (+ y1 count) face)))))
(defun ztree-draw-horizontal-line (x1 x2 y)
(if (> x1 x2)
