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

manual ledger entries delete experience

Browse Source
This commit is contained in:
Bryce Covert
2020-09-30 07:11:09 -07:00
parent 429b02884a
commit fc9f45b847
4 changed files with 40 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
src/cljs/auto_ap/views/pages/ledger/external_ledger.cljs
View File

@@ -2,9 +2,14 @@
(:require [auto-ap.subs :as subs]
[auto-ap.views.components.layouts :refer [side-bar-layout]]
[auto-ap.views.pages.data-page :as data-page]
[auto-ap.views.pages.ledger.side-bar :as side-bar :refer [ledger-side-bar]]
[auto-ap.views.pages.ledger.external-ledger-table :as table]
[auto-ap.views.utils :refer [with-user]]
[auto-ap.views.pages.ledger.side-bar
:as
side-bar
:refer
[ledger-side-bar]]
[auto-ap.views.utils :refer [with-user dispatch-event]]
[auto-ap.status :as status]
[clojure.set :as set]
[re-frame.core :as re-frame]
[reagent.core :as reagent]
@@ -71,9 +76,26 @@
(defn ledger-content []
(let [current-client @(re-frame/subscribe [::subs/client])]
(let [current-client @(re-frame/subscribe [::subs/client])
checked @(re-frame/subscribe [::data-page/checked ::page])]
[:div
[:h1.title "External Ledger"]
[:div.is-pulled-right
[:div.buttons
(into [:div.tags ] (map (fn [[z {:keys [id external-id]}]]
(if (= "header" z)
[:span.tag.is-medium {:on-click
(dispatch-event [::data-page/remove-check ::page "header"])}
"All visible ledger entries"]
[:span.tag.is-medium external-id
[:button.delete.is-small {:on-click
(dispatch-event [::data-page/remove-check ::page id])}]]))
checked))
[:button.button.is-danger {#_#_:on-click (dispatch-event [::delete-selected params])
:class (status/class-for @(re-frame/subscribe [::status/single ::delete-selected]))
:disabled true #_(or (status/disabled-for @(re-frame/subscribe [::status/single ::delete-selected]))
(not (seq checked)))}
"Delete selected"]]]
[table/table {:id :ledger
:data-page ::page}]]))