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

improving ui

Browse Source
This commit is contained in:
Bryce Covert
2019-05-05 08:38:44 -07:00
parent 86d9c1c10c
commit 8753560b84
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,8 +4,10 @@
[goog.string :as gstring] [goog.string :as gstring]
[auto-ap.forms :as forms] [auto-ap.forms :as forms]
[auto-ap.utils :refer [by]] [auto-ap.utils :refer [by]]
[auto-ap.events :as events]
[auto-ap.views.pages.ledger.side-bar :refer [ledger-side-bar]] [auto-ap.views.pages.ledger.side-bar :refer [ledger-side-bar]]
[auto-ap.views.utils :refer [date->str date-picker bind-field local-now standard ->$ str->date dispatch-event]] [auto-ap.views.utils :refer [date->str date-picker bind-field local-now standard ->$ str->date dispatch-event]]
[auto-ap.views.components.dropdown :refer [drop-down drop-down-contents]]
[cljs-time.core :as t] [cljs-time.core :as t]
[re-frame.core :as re-frame] [re-frame.core :as re-frame]
[reagent.core :as r] [reagent.core :as r]
@@ -70,9 +72,16 @@
"" ""
(error-set (line->id %)) (error-set (line->id %))
[:span.has-text-warning [drop-down {:id [::ledger-import-line (line->id %) ]
[:span.is-warning.icon {:title (error-set (line->id %))} [:i.fa.fa-exclamation-triangle]] :is-right? true
])) :header [:a.button {:aria-haspopup true
:on-click (dispatch-event [::events/toggle-menu [::ledger-import-line (line->id %)]])
:tab-index "0"}
[:span.is-warning.icon {:title (error-set (line->id %))} [:i.fa.fa-exclamation-triangle]]]}
[drop-down-contents
[:div
[:span.dropdown-item (error-set (line->id %)) ]]]]
))
lis))))}))) lis))))})))
(re-frame/reg-event-fx (re-frame/reg-event-fx
@@ -117,7 +126,6 @@
(for [[_ k] headings] (for [[_ k] headings]
[:td [:td
[:input.input {:on-change (fn [x] [:input.input {:on-change (fn [x]
(println "TEST")
(.preventDefault x) (.preventDefault x)
(println value) (println value)
(on-change (on-change
@@ -125,7 +133,7 @@
:value (get row k)}]])) :value (get row k)}]]))
(list (list
(for [[_ k] read-only-headings] (for [[_ k] read-only-headings]
[:td [:td.expandable
(get row k)]))]))] (get row k)]))]))]
children] children]
[:div [:div