clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-20 19:02:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' into enhance/i18n

Browse Source
This commit is contained in:
megayu
2026-04-16 16:05:13 +08:00
committed by GitHub
parent 81b42a8249 78aded53ea
commit 0fa98f35e5
4 changed files with 25 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/main/frontend/handler/common/page.cljs
View File

@@ -36,6 +36,22 @@
(rest parts)))
(string/join " #"))))
(defn- find-page-add-button
[page-id]
(when page-id
(->> (dom/sel ".block-add-button")
(filter #(= (str page-id) (dom/attr % "parentblockid")))
first)))
(defn- click-page-add-button-with-retry!
[page-id]
(letfn [(poll! [remaining-ms]
(if-let [block-add-button (find-page-add-button page-id)]
(.click block-add-button)
(when (pos? remaining-ms)
(js/setTimeout #(poll! (- remaining-ms 100)) 100))))]
(poll! 500)))
(defn <create!
([title]
(<create! title {}))
@@ -82,13 +98,7 @@
(when redirect?
(route-handler/redirect-to-page! page-uuid)
(when-not today-journal?
(js/setTimeout
(fn []
(when-let [block-add-button (->> (dom/sel ".block-add-button")
(filter #(= (str (:db/id page)) (dom/attr % "parentblockid")))
first)]
(.click block-add-button)))
200)))
(click-page-add-button-with-retry! (:db/id page))))
page)))))))))
;; favorite fns