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

fix set-priority on # heading

Browse Source
This commit is contained in:
rcmerci
2021-05-08 20:32:26 +08:00
parent 7a78e805fd
commit 2b8679ab14
2 changed files with 29 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/main/frontend/util.cljc
View File

@@ -1032,6 +1032,31 @@
(str marker " ")))]
new-content))
(defn add-or-update-priority
[content format priority]
(let [priority-pattern #"(\[#[ABC]\])?\s?"
[re-pattern new-line-re-pattern]
(if (= :org format)
[#"\*+\s" #"\n\*+\s"]
[#"#+\s" #"\n#+\s"])
skip-hash-pos
(if-let [matches (seq (re-pos new-line-re-pattern content))]
(let [[start-pos content] (last matches)]
(+ start-pos (count content)))
(count (re-find re-pattern content)))
skip-marker-pos
(if-let [matches (seq (re-pos bare-marker-pattern (subs content skip-hash-pos)))]
(let [[start-pos content] (last matches)]
(+ start-pos (count content)))
0)
pos (+ skip-hash-pos skip-marker-pos)
new-content
(str (subs content 0 pos)
(string/replace-first (subs content pos)
priority-pattern
(str priority " ")))]
new-content))
(defn pp-str [x]
(with-out-str (clojure.pprint/pprint x)))