only chooseable expense accounts.

src/cljs/auto_ap/subs.cljs

@@ -1,7 +1,7 @@
 (ns auto-ap.subs
   (:require [re-frame.core :as re-frame]
             [clojure.string :as str]
-            [auto-ap.expense-accounts :refer [expense-accounts]]
+            [auto-ap.expense-accounts :refer [expense-accounts chooseable-expense-accounts]]
             [goog.crypt.base64 :as base64]))
 
 (re-frame/reg-sub
@@ -84,3 +84,9 @@
  (fn [db]
    (map (fn [[k v]] (assoc v :id k))
         expense-accounts)))
+
+(re-frame/reg-sub
+ ::chooseable-expense-accounts
+ (fn [db]
+   (map (fn [[k v]] (assoc v :id k))
+        chooseable-expense-accounts)))