[elpa] master 2dd7c7b 75/92: Fixed vertical line for separator - now it is not rounded

[Alexey Veretennikov]

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

    Fixed vertical line for separator - now it is not rounded
---
 ztree-view.el |   20 +++++++++++++++++---
 1 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/ztree-view.el b/ztree-view.el
index d1f71a4..bbde2ca 100644
--- a/ztree-view.el
+++ b/ztree-view.el
@@ -346,6 +346,19 @@ 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)
+  "Draw a vertical line of '|' characters"
+  (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-vertical-rounded-line (y1 y2 x &optional face)
   "Draw a vertical line of '|' characters finishing with '`' character"
   (let ((count (abs (- y1 y2)))) 
     (if (> y1 y2)
@@ -358,6 +371,7 @@ list of leafs"
           (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)
       (dotimes (x (1+ (- x1 x2)))
@@ -397,9 +411,9 @@ list of leafs"
                                           (funcall visible (car-atom x)))))
               (x-offset (+ 2 offset)))
           (when last-child
-            (ztree-draw-vertical-line (1+ root)
-                                      (car-atom last-child)
-                                      x-offset)))
+            (ztree-draw-vertical-rounded-line (1+ root)
+                                              (car-atom last-child)
+                                              x-offset)))
         ;; draw recursively
         (dolist (child children)
           (ztree-draw-tree child (1+ depth) start-offset)