       (reduce (fn [totals periods]
                 (->> (interleave totals periods)
                      (partition 2)
-                     (map #(apply + %))
-                     (map #(hash-map :value %))))
+                     (map #(apply + %))))
               period-matrix))
     items))
 

                 nil)}
   (html
     [:td (:caption item)]
     (map #(vector :td.text-right (format-number %)) (:data item))
     [:td.text-right (format-number (reduce + 0 (:data item)))])])

(defn- summarize-periods
  [items]

                             ; header
                             [{:caption (humanize account-type)
                               :style :header
                               :data (map #(hash-map :value %) totals)}]
                             ; data
                             (map #(hash-map :caption (-> % :account :name)
                                             :style :data
