edufeed-org/edufeed-web
2
0
Fork 0
mirror of https://github.com/edufeed-org/edufeed-web.git synced 2025-12-10 00:34:34 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Deletion of lists working

Browse source
This commit is contained in:
@s.roertgen 2024-08-13 23:35:19 +02:00
parent 2f16dfa1f1
commit d10c1036e9
10 changed files with 198 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/ied/views.cljs
View file

@ -4,7 +4,6 @@
[ied.events :as events]
[ied.routes :as routes]
[ied.subs :as subs]
["react" :as react]
[reagent.core :as reagent]))
;; add resource form
@ -191,28 +190,32 @@
;; npub
(defn npub-view-panel []
(let [route-params @(re-frame/subscribe [::subs/route-params])
lists @(re-frame/subscribe [::subs/lists])]
(let [sockets @(re-frame/subscribe [::subs/sockets])
route-params @(re-frame/subscribe [::subs/route-params])
lists @(re-frame/subscribe [::subs/lists])
missing-events-from-lists @(re-frame/subscribe [::subs/missing-events-from-lists])
_ (when (seq missing-events-from-lists) (re-frame/dispatch [::events/query-for-event-ids [sockets missing-events-from-lists]]))]
[:div
[:h1 (str "Hello Npub: " (:npub route-params))]
(if (nil? lists)
[:button {:class "btn"
:on-click
#(re-frame/dispatch [::events/get-lists-for-npub (:npub route-params)])} "Load lists"]
[:div "Got some lists"
(if-not (seq lists)
[:p "No lists there...yet"]
[:div {:class "p-2"} "Got some lists"
(doall
(for [l lists]
[:div {:key (:id l)}
[:li
[:div {:class "p-2"
:key (:id l)}
[:li
[:p (str "ID: " (:id l))]
[:p (str "Name: " (first (filter #(= "d" (first %)) (:tags l))))]
;; TODO filter tags for already being in events
;; for all that are not send a query
[:p (str "Tags: " (:tags l))]]]))])
[:p (str "Tags: " (:tags l))]
[:button {:class "btn btn-error"
:on-click #(re-frame/dispatch [::events/delete-list l])} "Delete List"]]]))])
[:button {:class "btn"
:on-click
#(re-frame/dispatch [::events/get-lists-for-npub (:npub route-params)])} "Load lists"]]))
#(re-frame/dispatch [::events/get-lists-for-npub [sockets (:npub route-params)]])} "Load lists"]]))
(defmethod routes/panels :npub-view-panel [] [npub-view-panel])