[elpa] externals/taxy 4686e03 36/39: Add: (taxy-size)

[ELPA Syncer]

branch: externals/taxy
commit 4686e03bc81c32322ff15edcf32996ecd495c659
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Add: (taxy-size)
---
 images/diredy.png     | Bin 33772 -> 36255 bytes
 taxy-magit-section.el |   7 +++++--
 taxy.el               |   7 +++++++
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/images/diredy.png b/images/diredy.png
index 4e8f3e5..7e84fb4 100644
Binary files a/images/diredy.png and b/images/diredy.png differ
diff --git a/taxy-magit-section.el b/taxy-magit-section.el
index d14f36b..1760b52 100644
--- a/taxy-magit-section.el
+++ b/taxy-magit-section.el
@@ -65,8 +65,11 @@ descendant taxys; if `last', insert them after descendants."
                           (magit-insert-heading
                             (make-string (* depth taxy-magit-section-indent) ? 
)
                             (propertize (taxy-name taxy) 'face 
'magit-section-heading)
-                            (when (taxy-description taxy)
-                              (concat " (" (taxy-description taxy) ")")))
+                            (format " (%s%s)"
+                                    (if (taxy-description taxy)
+                                        (concat (taxy-description taxy) " ")
+                                      "")
+                                    (taxy-size taxy)))
                           (magit-insert-section-body
                             (when (eq 'first objects)
                               (mapc #'insert-object (taxy-objects taxy)))
diff --git a/taxy.el b/taxy.el
index 6ba04a5..334d1c8 100644
--- a/taxy.el
+++ b/taxy.el
@@ -175,6 +175,13 @@ by KEY-NAME-FN called with OBJECT."
           (taxy-take-keyed* (cdr key-fns) object taxy)
         (push object (taxy-objects taxy))))))
 
+(defun taxy-size (taxy)
+  "Return the number of objects TAXY holds.
+Includes objects in TAXY's sub-taxys."
+  (cl-loop for sub-taxy in (taxy-taxys taxy)
+           sum (taxy-size sub-taxy) into total
+           finally return (+ total (length (taxy-objects taxy)))))
+
 ;;;; Footer
 
 (provide 'taxy)