logseq/src/main/frontend/diff.cljs

(ns frontend.diff
  (:require [clojure.string :as string]
            ["diff" :as jsdiff]
            ["diff-match-patch" :as diff-match-patch]
            [goog.object :as gobj]
            [lambdaisland.glogi :as log]
            [cljs-bean.core :as bean]
            [frontend.util :as util]))

;; TODO: replace with diff-match-patch
(defn diff
  [s1 s2]
  (-> ((gobj/get jsdiff "diffLines") s1 s2)
      bean/->clj))

(defonce dmp (diff-match-patch.))

(defn diffs
  [s1 s2]
  (.diff_main dmp s1 s2 true))

(defn get-patches
  [s1 s2 diffs]
  (.patch_make dmp s1 s2 diffs))

(defn apply-patches!
  [text patches]
  (if (seq patches)
    (let [result (.patch_apply dmp patches text)]
      (nth result 0))
    text))

;; (find-position "** hello _w_" "hello w")
(defn find-position
  [markup text]
  (try
    (let [pos (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))
                    i1

                    (= h1 h2)
                    (recur r1 r2 (inc i1) (inc i2))

                    (#{\[ \space \]} h2)
                    (recur t1 r2 i1 (inc i2))

                    :else
                    (recur r1 t2 (inc i1) i2))))]
      (if (and (= (util/nth-safe markup pos)
                  (util/nth-safe markup (inc pos))
                  "]"))
        (+ pos 2)
        pos))
    (catch js/Error e
      (log/error :diff/find-position {:error e})
      (count markup))))