🎉 Improvements on view mode

This commit is contained in:
Pablo Alba 2022-06-08 12:12:23 +02:00
parent 65b6d1e07b
commit ae468ecdf2
17 changed files with 359 additions and 114 deletions

View file

@ -303,6 +303,18 @@
(dcm/close-thread)
(rt/nav :viewer pparams (assoc qparams :index (inc index)))))))))
(def select-first-frame
(ptk/reify ::select-first-frame
ptk/WatchEvent
(watch [_ state _]
(let [route (:route state)
qparams (:query-params route)
pparams (:path-params route)]
(rx/of
(dcm/close-thread)
(rt/nav :viewer pparams (assoc qparams :index 0)))))))
(s/def ::interactions-mode #{:hide :show :show-on-click})
(defn set-interactions-mode