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

(defn show
  "Renders the budet details"
  [id]
  (let [budget (-> (budgets/find-by-id (env :db) id)
                   (update-in [:items] group-budget-items))]
  (layout
    (str "Budget: " (:name budget)) {}
    [:div.row

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

(defn- summarize-periods
  [items]
