diff --git a/src/main/frontend/components/property/value.cljs b/src/main/frontend/components/property/value.cljs index 00e1640e68..3c70a401a5 100644 --- a/src/main/frontend/components/property/value.cljs +++ b/src/main/frontend/components/property/value.cljs @@ -313,6 +313,22 @@ (when done-choice (db-property/property-value-content done-choice))]])])) +(defn- journal-title)) + ([^js d get-current-repo-f get-block-f create-page-f journal-title-f] + (p/let [journal (journal-title-f d) + page (get-block-f (get-current-repo-f) journal {:children? false}) + journal-page (when (:block/journal-day page) + page)] + (if journal-page + journal-page + (create-page-f journal {:redirect? false}))))) + (rum/defcs calendar-inner < rum/reactive db-mixins/query (rum/local (str "calendar-inner-" (js/Date.now)) ::identity) {:init (fn [state] @@ -353,13 +369,8 @@ select-handler! (fn [^js d] (when d - (p/let [journal (date/js-date->journal-title d) - page (db-async/ (#'property-value/ (#'property-value/