diff --git a/src/ied/events.cljs b/src/ied/events.cljs index 1afa6b7..21da542 100644 --- a/src/ied/events.cljs +++ b/src/ied/events.cljs @@ -198,9 +198,13 @@ :content "" :tags [["d" (:id resource)] ["id" (:id resource)] - ["author" "" (:author resource)] + #_["author" "" (:author resource)] ["name" (:name resource)]]}] - {::sign-and-publish-event [event (-> cofx :db :sk)]}))) + {:navigate [:home] + ::sign-and-publish-event [event (-> cofx :db :sk)] + } + + #_{::sign-and-publish-event [event (-> cofx :db :sk)]}))) ;; TODO maybe we need some validation before publishing (re-frame/reg-fx diff --git a/src/ied/views.cljs b/src/ied/views.cljs index 05fa11c..802a99a 100644 --- a/src/ied/views.cljs +++ b/src/ied/views.cljs @@ -54,11 +54,12 @@ [:input {:on-change (fn [e] (swap! s assoc :uri (-> e .-target .-value))) :type "text", :class "grow", :placeholder "https://wirlernenonline.de/r31"}]] - [:label - {:class "input input-bordered flex items-center gap-2"} - [:input {:on-change (fn [e] - (swap! s assoc :author (-> e .-target .-value))) - :type "text", :class "grow", :placeholder "Robbi"}]] + #_[:label + {:class "input input-bordered flex items-center gap-2"} + "Author" + [:input {:on-change (fn [e] + (swap! s assoc :author (-> e .-target .-value))) + :type "text", :class "grow", :placeholder "Robbi"}]] [:button {:class "btn btn-warning w-1/2 mx-auto" :on-click #(re-frame/dispatch [::events/publish-resource {:name (:name @s) ;; TODO this should be sth like build event @@ -413,7 +414,8 @@ ;; Header (defn new-header [] - (let [selected-events @(re-frame/subscribe [::subs/selected-events])] + (let [selected-events @(re-frame/subscribe [::subs/selected-events]) + pk @(re-frame/subscribe [::subs/pk])] [:div {:class "navbar sticky z-50 top-0 left-0 bg-base-100"} [:div @@ -426,9 +428,11 @@ [:div {:class "flex-none"} - [:a {:class "btn btn-circle btn-primary" + [:a {:disabled (nil? pk) + :class "btn btn-circle btn-primary" :on-click #(re-frame/dispatch [::events/navigate [:add-resource]])} "+"] - [shopping-cart] + (when (not (nil? pk)) + [shopping-cart]) [user-menu]]])) ;; Keys Panel