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

fix: handle links in find-position

Browse Source
This commit is contained in:
Yukun Guo
2020-12-14 18:35:56 +08:00
parent b8fe3bbad7
commit f1add88799
1 changed files with 20 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2,6 +2,7 @@
(:require [clojure.string :as string]
["diff" :as jsdiff]
[goog.object :as gobj]
[lambdaisland.glogi :as log]
[cljs-bean.core :as bean]))
(defn diff
@@ -12,36 +13,25 @@
;; (find-position "** hello _w_" "hello w")
(defn find-position
[markup text]
(cond
(<= (count markup) (count text))
(dec (count markup))
(try
(loop [t1 (-> markup string/lower-case seq)
t2 (-> text string/lower-case seq)
i1 0
i2 0]
(let [[h1 & r1] t1
[h2 & r2] t2]
(cond
(or (empty? t1) (empty? t2))
(dec i1)
:else
(try
(let [markup (string/lower-case markup)
text (-> (string/replace text #"\s+" "")
(string/lower-case))
v1 (vec markup)
v2 (vec text)]
(loop [v1-chars v1
v2-chars v2
v1-idx 0
v2-idx 0]
(cond
(empty? v2-chars)
(dec v1-idx)
(= h1 h2)
(recur r1 r2 (inc i1) (inc i2))
:else
(if (= (nth v1 v1-idx)
(nth v2 v2-idx))
(recur (rest v1-chars)
(rest v2-chars)
(inc v1-idx)
(inc v2-idx))
(recur (rest v1-chars)
v2-chars
(inc v1-idx)
v2-idx)))))
(#{\[ \space \]} h2)
(recur t1 r2 i1 (inc i2))
:else
(recur r1 t2 (inc i1) i2))))
(catch js/Error e
(prn "diff error: " e)
(dec (count markup))))))
(log/error :diff/find-position {:error e})
(dec (count markup)))))