💄 Add minor cosmetic chanes to workspace comments ns

This commit is contained in:
Andrey Antukh 2023-07-07 10:41:21 +02:00 committed by Alejandro Alonso
parent 3da0d85d8f
commit 010a3ef3a7

View file

@ -29,12 +29,12 @@
[] []
(let [{cmode :mode cshow :show} (mf/deref refs/comments-local) (let [{cmode :mode cshow :show} (mf/deref refs/comments-local)
update-mode update-mode
(mf/use-callback (mf/use-fn
(fn [mode] (fn [mode]
(st/emit! (dcm/update-filters {:mode mode})))) (st/emit! (dcm/update-filters {:mode mode}))))
update-show update-show
(mf/use-callback (mf/use-fn
(fn [mode] (fn [mode]
(st/emit! (dcm/update-filters {:show mode}))))] (st/emit! (dcm/update-filters {:show mode}))))]
@ -76,7 +76,7 @@
page-id (or page-id (mf/use-ctx ctx/current-page-id)) page-id (or page-id (mf/use-ctx ctx/current-page-id))
on-thread-click on-thread-click
(mf/use-callback (mf/use-fn
(mf/deps page-id) (mf/deps page-id)
(fn [thread] (fn [thread]
(when (not= page-id (:page-id thread)) (when (not= page-id (:page-id thread))