enhance: open the first block when openning a new page by Mod+o

This commit is contained in:
Tienson Qin
2021-10-08 14:08:31 +08:00
parent 0467fdba2a
commit b0d7f95587

View File

@@ -1199,10 +1199,12 @@
(defn follow-link-under-cursor!
[]
(when-let [page (get-nearest-page)]
(let [page-name (string/lower-case page)]
(state/clear-edit!)
(route-handler/redirect! {:to :page
:path-params {:name page-name}}))))
(when-not (string/blank? page)
(let [page-name (string/lower-case page)]
(state/clear-edit!)
(insert-first-page-block-if-not-exists! page-name)
(route-handler/redirect! {:to :page
:path-params {:name page-name}})))))
(defn open-link-in-sidebar!
[]