🐛 Fix header not showing when exiting fullscreen mode in viewer

This commit is contained in:
alonso.torres 2023-03-23 10:48:31 +01:00
parent eedb83e863
commit 020454e701
4 changed files with 39 additions and 5 deletions

View file

@ -300,6 +300,13 @@
(update [_ state]
(update-in state [:viewer-local :fullscreen?] not))))
(defn exit-fullscreen
[]
(ptk/reify ::exit-fullscreen
ptk/UpdateEvent
(update [_ state]
(assoc-in state [:viewer-local :fullscreen?] false))))
(defn set-viewport-size
[{:keys [size]}]
(ptk/reify ::set-viewport-size