refactored transactions.

src/cljs/auto_ap/views/components/expense_accounts_field.cljs

@@ -12,7 +12,7 @@
            (<= 1 (count accounts)))
        (not (get-in accounts [0 :account :id]))))
 
-(defn default-account [accounts default-account amount]
+(defn default-account [accounts default-account amount locations]
   [{:id (doto (get-in accounts [0 :id]
                       (str "new-" (random-uuid)))
           println)
@@ -21,7 +21,10 @@
     :amount-mode "%"
     :location (or
                (:location default-account)
-               (get-in accounts [0 :account :location]))
+               (get-in accounts [0 :account :location])
+               (if (= 1 (count locations))
+                 (first locations)
+                 nil))
     :account default-account}])
 
 

src/cljs/auto_ap/views/components/layouts.cljs

@@ -136,3 +136,7 @@
      bottom
      [:div#dz-hidden]]))
 
+
+(defn side-bar [{:keys [on-close]} children]
+  [:div [:a.delete.is-pulled-right {:on-click on-close}] [:div children]])
+

src/cljs/auto_ap/views/components/typeahead.cljs

@@ -153,7 +153,7 @@
                                                     [:div.control
                                                      [:div.tags.has-addons
                                                       [:span.tag text]
-                                                      [:a.tag.is-delete {:on-click (fn [] (select nil))}]]]]
+                                                      [:a.tag.is-delete {:on-click (fn [] (select nil) (reset! text-atom nil))}]]]]
                                ^{:key "typeahead"} [:input.input {:type "text"
                                                                   :class class