                        identity)
         raw-value ($x:text? xpath node)
         value (if raw-value
-                (transform-fn raw-value)
+                 (transform-fn raw-value)
                 default)]
     (if (nil? value)
       result


(defmethod process-node :gnc:budget
  [node]
  (-> node
      (node->model budget-attributes)
      (assoc :items (map node->budget-item ($x "bgt:slots/slot" node)))
      (with-meta {:record-type :budget})))

(def ^:private commodity-attributes
  [{:attribute :exchange


(defn- node->budget-item-period
  [node]
  (node->model node budget-item-period-attributes))

(defn- node->budget-item
  [node]
