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

improve(pdf): optimize text selection range rects

Browse Source
This commit is contained in:
charlie
2021-08-05 11:59:28 +08:00
parent 0d1e0db1e6
commit c9c5f20e4c
2 changed files with 87 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/main/frontend/extensions/pdf/utils.cljs
View File

@@ -22,6 +22,11 @@
[bounding ^js viewport]
(bean/->clj (js-utils/scaledToViewport (bean/->js bounding) viewport)))
(defn optimize-client-reacts
[rects]
(when (seq rects)
(bean/->clj (js-utils/optimizeClientRects (bean/->js rects)))))
(defn vw-to-scaled-pos
[^js viewer {:keys [page bounding rects]}]
(when-let [^js viewport (.. viewer (getPageView (dec page)) -viewport)]
@@ -144,12 +149,13 @@
(defn get-range-rects<-page-cnt
[^js/Range r ^js page-cnt]
(let [rge-rects (js->clj (.getClientRects r))
(let [rge-rects (bean/->clj (.getClientRects r))
^js cnt-offset (.getBoundingClientRect page-cnt)]
(if (seq rge-rects)
(for [rect rge-rects]
{:top (- (+ (.-top rect) (.-scrollTop page-cnt)) (.-top cnt-offset))
:left (- (+ (.-left rect) (.-scrollLeft page-cnt)) (.-left cnt-offset))
:width (.-width rect)
:height (.-height rect)}))))
(let [rects (for [rect rge-rects]
{:top (- (+ (.-top rect) (.-scrollTop page-cnt)) (.-top cnt-offset))
:left (- (+ (.-left rect) (.-scrollLeft page-cnt)) (.-left cnt-offset))
:width (.-width rect)
:height (.-height rect)})]
(optimize-client-reacts rects)))))