notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

warns about how many are visible

Browse Source
This commit is contained in:
Bryce Covert
2019-09-19 20:18:09 -07:00
parent dbe4c7b9c4
commit b535f73e33
2 changed files with 53 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/cljs/auto_ap/forms.cljs
View File

@@ -52,7 +52,6 @@
(re-frame/reg-event-db (re-frame/reg-event-db
::change ::change
(fn [db [_ form & path-pairs]] (fn [db [_ form & path-pairs]]
(println "CHANGING" path-pairs)
(reduce (reduce
(fn [db [path value]] (fn [db [path value]]
(assoc-in db (into [::forms form :data] path) value)) (assoc-in db (into [::forms form :data] path) value))

102
src/cljs/auto_ap/views/pages/ledger/external_import.cljs
View File

@@ -120,55 +120,59 @@
include-headers (r/atom true) include-headers (r/atom true)
table-form (r/atom nil)] table-form (r/atom nil)]
(fn [{:keys [headings value on-change row-filter]}] (fn [{:keys [headings value on-change row-filter]}]
[:form.form [:div
(if value (when (> (count value) 100)
[:div [:div.notification "Showing first 100 of " (count value)])
[:table.table [:form.form
[:thead (if value
[:tr [:div
(list [:table.table
(for [[heading-name _] headings] [:thead
[:th heading-name])) [:tr
(list (list
(for [[heading-name _] read-only-headings] (for [[heading-name _] headings]
[:th heading-name]))]] ^{:key heading-name}[:th heading-name]))
(list (list
(for [[index row] (map vector (range )value) (for [[heading-name _] read-only-headings]
:when (row-filter row)] ^{:key heading-name} [:th heading-name]))]]
[:tr [:tbody
(list (list
(for [[_ k] headings] (for [[index row] (map vector (range ) (take 100 value))
[:td :when (row-filter row)]
[:input.input {:on-change (fn [x] ^{:key index} [:tr
(.preventDefault x) (list
(on-change (for [[_ k] headings]
(assoc-in value [index k] (.. x -target -value)))) ^{:key k} [:td
:value (get row k)}]])) [:input.input {:on-change (fn [x]
(list (.preventDefault x)
(for [[_ k] read-only-headings] (on-change
[:td.expandable (assoc-in value [index k] (.. x -target -value))))
(get row k)]))]))] :value (get row k)}]]))
children] (list
[:div (for [[_ k] read-only-headings]
^{:key k} [:td.expandable
[:div.field (get row k)]))]))]]
[:p.help "Paste manual ledger entries below."] children]
[:textarea.textarea {:on-change #(reset! text-form (.. % -target -value))} @text-form]] [:div
[:div.field
[:label.checkbox [:div.field
[:input {:type "checkbox" :checked @include-headers :on-change #(swap! include-headers (fn [x] (not x)))} [:p.help "Paste manual ledger entries below."]
] [:textarea.textarea {:on-change #(reset! text-form (.. % -target -value))} @text-form]]
" Contains Header Row"]] [:div.field
[:button.button.is-medium {:on-click (fn [e] [:label.checkbox
(.preventDefault e) [:input {:type "checkbox" :checked @include-headers :on-change #(swap! include-headers (fn [x] (not x)))}
(on-change ]
(cond->> (str/split @text-form #"\n") " Contains Header Row"]]
@include-headers (drop 1) [:button.button.is-medium {:on-click (fn [e]
true (mapv #(->> (str/split % "\t") (.preventDefault e)
(map (fn [[_ k] v] [k v]) headings) (on-change
(into {}))))))} (cond->> (str/split @text-form #"\n")
"Parse"] @include-headers (drop 1)
])]))) true (mapv #(->> (str/split % "\t")
(map (fn [[_ k] v] [k v]) headings)
(into {}))))))}
"Parse"]
])]])))
(def balance-sheet-content (def balance-sheet-content
(with-meta (with-meta