Bugfix: total rows not always displayed for trees

Author: matthewdowney

README.md

@@ -8,7 +8,7 @@ common sense styling.
 
 Lein:
 ```
-[org.clojars.mjdowney/excel-clj "1.1.0"]
+[org.clojars.mjdowney/excel-clj "1.1.1"]
 ```
 
 - [Getting Started](#getting-started)

project.clj

@@ -1,4 +1,4 @@
-(defproject org.clojars.mjdowney/excel-clj "1.1.0"
+(defproject org.clojars.mjdowney/excel-clj "1.1.1"
   :description "Generate Excel documents & PDFs from Clojure data."
   :url "https://github.com/matthewdowney/excel-clj"
   :license {:name "Eclipse Public License"

src/excel_clj/tree.clj

@@ -163,8 +163,10 @@
                 (mapv #(update % ::depth inc) children)
                 ;; And finally an aggregation if there are multiple header children
                 ;; or any leaf children
-                (when (or (> (count (group-by :depth children)) 2) (not (::header? (first children))))
-                  [(merge {::depth 0 ::label "" ::total? true} (value node aggregate-with))]))
+                (let [fchild (first children)
+                      siblings (get (group-by :depth children) (:depth fchild))]
+                  (when (or (>= (count siblings) 2) (not (::header? fchild)))
+                    [(merge {::depth 0 ::label "" ::total? true} (value node aggregate-with))])))
               ;; A leaf just has its label & value attrs. The depth is inc'd by each
               ;; parent back to the root, so it does not stay at 0.
               (merge {::depth 0 ::label (label node)} (value node aggregate-with))))