[elpa] master 41ab149 29/92: Added sorting to the tree

[Alexey Veretennikov]

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

    Added sorting to the tree
---
 ztree-view.el |   18 +++++++++++-------
 1 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/ztree-view.el b/ztree-view.el
index f6fbf0c..6c1c4c5 100644
--- a/ztree-view.el
+++ b/ztree-view.el
@@ -256,13 +256,17 @@ if previous key was Backspace - close the node"
 (defun ztree-get-splitted-node-contens (path)
   "Returns pair of 2 elements: list of expandable nodes and
 list of leafs"
-  (let ((nodes (funcall ztree-node-contents-fun path)))
-    (cons (ztree-filter
-           #'(lambda (f) (funcall ztree-node-is-expandable-fun f))
-           nodes)
-          (ztree-filter
-           #'(lambda (f) (not (funcall ztree-node-is-expandable-fun f)))
-           nodes))))
+  (let ((nodes (funcall ztree-node-contents-fun path))
+        (comp  #'(lambda (x y)
+                 (string< (funcall ztree-node-short-name-fun x)
+                          (funcall ztree-node-short-name-fun y)))))
+    (cons (sort (ztree-filter
+                 #'(lambda (f) (funcall ztree-node-is-expandable-fun f))
+                 nodes) comp)
+          (sort (ztree-filter
+                 #'(lambda (f) (not (funcall ztree-node-is-expandable-fun f)))
+                 nodes) comp))))
+                
 
 (defun ztree-node-is-in-filter-list (node)
   "Determine if the node is in filter list (and therefore