clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-03 10:26:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

dwim: new list item with checkbox

Browse Source
This commit is contained in:
leizhe
2021-10-07 20:52:23 +08:00
committed by Tienson Qin
parent cbea3c56cc
commit 5fdfa0fa61
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/main/frontend/handler/editor.cljs
View File

@@ -2302,7 +2302,6 @@
(thingatpt/page-ref-at-point input)
(thingatpt/properties-at-point input)
(thingatpt/list-item-at-point input))]
(println "thingatpt:" thing-at-point)
(cond
thing-at-point
(case (:type thing-at-point)
@@ -2316,14 +2315,15 @@
"block-ref" (open-block-in-sidebar! (:link thing-at-point))
"page-ref" (route-handler/redirect-to-page! (:link thing-at-point))
"list-item"
(let [{:keys [full-content indent bullet ordered _]} thing-at-point
(let [{:keys [full-content indent bullet checkbox ordered _]} thing-at-point
next-bullet (if ordered
(str (inc bullet) ".")
bullet)]
bullet)
checkbox (when checkbox " [ ]")]
(if (= (count full-content) (if ordered (+ (count bullet) 2) 2))
(delete-and-update input (cursor/line-beginning-pos input) (cursor/line-end-pos input))
(do (cursor/move-cursor-to-line-end input)
(insert (str "\n" indent next-bullet " ")))))
(insert (str "\n" indent next-bullet checkbox " ")))))
"properties-drawer"
(let [property-key (:raw-content (thingatpt/property-key-at-point input))
move-to-pos (if (= (:block/format config) :org) 2 3)]