clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-29 00:24:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance: click to edit should put the cursor behind inline emphasis

Browse Source
This commit is contained in:
Tienson Qin
2021-11-04 23:06:20 +08:00
parent 7c0e596185
commit cb93927f3f
1 changed files with 29 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/main/frontend/diff.cljs
View File

@@ -30,6 +30,20 @@
(nth result 0))
text))
(def inline-special-chars
#{\* \_ \/ \` \+ \^ \~ \$})
(defn- get-current-line-by-pos
[s pos]
(let [lines (string/split-lines s)
result (reduce (fn [acc line]
(let [new-pos (+ acc (count line))]
(if (>= new-pos pos)
(reduced line)
(inc new-pos)))) 0 lines)]
(when (string? result)
result)))
;; (find-position "** hello _w_" "hello w")
(defn find-position
[markup text]
@@ -53,10 +67,22 @@
:else
(recur r1 t2 (inc i1) i2))))]
(if (and (= (util/nth-safe markup pos)
(util/nth-safe markup (inc pos))
"]"))
(cond
(and (= (util/nth-safe markup pos)
(util/nth-safe markup (inc pos))
"]"))
(+ pos 2)
(contains? inline-special-chars (util/nth-safe markup pos))
(let [matched (->> (take-while inline-special-chars (util/safe-subs markup pos))
(apply str))
current-line (get-current-line-by-pos markup pos)
matched? (and current-line (string/includes? current-line (string/reverse matched)))]
(if matched?
(+ pos (count matched))
pos))
:else
pos))
(catch js/Error e
(log/error :diff/find-position {:error e})