fix: reveal whiteboard file in directory

This commit is contained in:
Peng Xiao
2022-11-15 10:58:53 +08:00
parent 378e5732d4
commit 8a1518d83a

View File

@@ -61,7 +61,8 @@
(gp-util/safe-subs s 0 200)))
(defn get-page-file-path
([] (get-page-file-path (state/get-current-page)))
([] (get-page-file-path (or (state/get-current-page)
(state/get-current-whiteboard))))
([page-name]
(when page-name
(let [page-name (util/page-name-sanity-lc page-name)]