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

refactor: cycle-marker

Browse Source
This commit is contained in:
Tienson Qin
2021-06-11 11:31:19 +08:00
parent fcd42dfaf1
commit 8faeea1188
2 changed files with 31 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -728,30 +728,7 @@
content (state/get-edit-content)
format (or (db/get-page-format (state/get-current-page))
(state/get-preferred-format))
markdown? (= :markdown format)
cond-fn (fn [marker] (or (and markdown? (util/safe-re-find (re-pattern (str "^" "[# ]*" marker)) content))
(util/starts-with? content "TODO")))
marker-pattern (fn [marker] (re-pattern (str "^" (if markdown? "[# ]*") marker)))
replace-marker (fn [old-marker new-marker]
(string/replace-first content (marker-pattern old-marker)
(fn [match]
(string/replace match old-marker new-marker))))
[new-content marker] (cond
(cond-fn "TODO")
[(replace-marker "TODO" "DOING") "DOING"]
(cond-fn "DOING")
[(replace-marker "DOING" "DONE") "DONE"]
(cond-fn "LATER")
[(replace-marker "LATER" "NOW") "NOW"]
(cond-fn "NOW")
[(replace-marker "NOW" "DONE") "DONE"]
(cond-fn "DONE")
[(replace-marker "DONE" "") nil]
:else
(let [marker (if (= :now (state/get-preferred-workflow))
"LATER"
"TODO")]
[(marker/add-or-update-marker (string/triml content) format marker) marker]))
[new-content marker] (marker/cycle-marker content format (state/get-preferred-workflow))
new-content (string/triml new-content)]
(let [new-pos (commands/compute-pos-delta-when-change-marker
current-input content new-content marker (cursor/pos current-input))]