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

fix: suggestions from gabriel

Browse Source
This commit is contained in:
Tienson Qin
2022-07-06 20:13:14 +08:00
parent e8023b9246
commit 139075e679
10 changed files with 31 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/main/frontend/util/text.cljs
View File

@@ -86,7 +86,7 @@
(defn get-string-all-indexes
"Get all indexes of `value` in the string `s`."
[s value before?]
[s value {:keys [before?] :or {before? true}}]
(if (= value "")
(if before? [0] [(dec (count s))])
(loop [acc []
@@ -98,9 +98,9 @@
(defn wrapped-by?
"`pos` must be wrapped by `before` and `and` in string `value`, e.g. ((a|b))"
[value pos before end]
(let [before-matches (->> (get-string-all-indexes value before true)
(let [before-matches (->> (get-string-all-indexes value before {:before? true})
(map (fn [i] [i :before])))
end-matches (->> (get-string-all-indexes value end false)
end-matches (->> (get-string-all-indexes value end {:before? false})
(map (fn [i] [i :end])))
indexes (sort-by first (concat before-matches end-matches [[pos :between]]))
ks (map second indexes)