greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

feat(util): add thingatpt.cljs (thing-at-point)

pull/2257/head
rcmerci 2021-06-18 17:59:55 +08:00 committed by Tienson Qin
parent cfc148e78c
commit 059943db17
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/main/frontend/util/thingatpt.cljs Normal file
View File

@ -0,0 +1,36 @@
(ns frontend.util.thingatpt
(:require [clojure.string :as string]
[frontend.util :as util]
[frontend.state :as state]
[goog.object :as gobj]
[frontend.util.cursor :as cursor]
))
(defn- get-content&pos-at-point []
(when-let [input (state/get-input)]
[(gobj/get input "value") (cursor/pos input)]))
(defn block-ref-at-point []
(when-let [[content pos] (get-content&pos-at-point)]
(let [start (string/last-index-of content "((" pos)
end (string/index-of content "))" (- pos 2))
end* (+ 2 end)]
(when (and start end)
(let [block-ref-id (subs content (+ start 2) end)]
(when (every? false? (mapv #(string/includes? block-ref-id %) ["((" "))" " "]))
{:content (subs content start end*)
:start start
:end end*}))))))
(defn embed-macro-at-point []
(when-let [[content pos] (get-content&pos-at-point)]
(let [start (string/last-index-of content "{{embed" pos)
end (string/index-of content "}}" (- pos 2))
end* (+ 2 end)]
(when (and start end)
(let [macro-content (subs content (+ start 2) end)]
(when (every? false? (mapv #(string/includes? macro-content %) ["{{embed" "}}"]))
{:content (subs content start end*)
:start start
:end end*}))))))