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

fix(pdf): missing the initial ref highlight block sometimes

Browse Source
This commit is contained in:
charlie
2023-10-10 21:15:05 +08:00
committed by Andelf
parent abb0596ed2
commit 1c1a07db4e
2 changed files with 49 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
src/main/frontend/extensions/pdf/assets.cljs
View File

@@ -147,43 +147,42 @@
(fs/unlink! repo-cur fpath {}))))
(defn resolve-ref-page
(defn ensure-ref-page!
[pdf-current]
(let [page-name (:key pdf-current)
page-name (string/trim page-name)
page-name (str "hls__" page-name)
page (db-model/get-page page-name)
file-path (:original-path pdf-current)
format (state/get-preferred-format)
repo-dir (config/get-repo-dir (state/get-current-repo))
asset-dir (util/node-path.join repo-dir gp-config/local-assets-dir)
url (if (string/includes? file-path asset-dir)
(str ".." (last (string/split file-path repo-dir)))
file-path)]
(if-not page
(let [label (:filename pdf-current)]
(page-handler/create! page-name {:redirect? false :create-first-block? false
:split-namespace? false
:format format
:properties {:file (case format
:markdown
(util/format "[%s](%s)" label url)
(when-let [page-name (util/trim-safe (:key pdf-current))]
(let [page-name (str "hls__" page-name)
page (db-model/get-page page-name)
file-path (:original-path pdf-current)
format (state/get-preferred-format)
repo-dir (config/get-repo-dir (state/get-current-repo))
asset-dir (util/node-path.join repo-dir gp-config/local-assets-dir)
url (if (string/includes? file-path asset-dir)
(str ".." (last (string/split file-path repo-dir)))
file-path)]
(if-not page
(let [label (:filename pdf-current)]
(page-handler/create! page-name {:redirect? false :create-first-block? false
:split-namespace? false
:format format
:properties {:file (case format
:markdown
(util/format "[%s](%s)" label url)
:org
(util/format "[[%s][%s]]" url label)
:org
(util/format "[[%s][%s]]" url label)
url)
:file-path url}})
(db-model/get-page page-name))
url)
:file-path url}})
(db-model/get-page page-name))
;; try to update file path
(page-property/add-property! page-name :file-path url))
page))
;; try to update file path
(page-property/add-property! page-name :file-path url))
page)))
(defn ensure-ref-block!
([pdf hl] (ensure-ref-block! pdf hl nil))
([pdf-current {:keys [id content page properties]} insert-opts]
(when-let [ref-page (and pdf-current (resolve-ref-page pdf-current))]
(when-let [ref-page (and pdf-current (ensure-ref-page! pdf-current))]
(let [ref-block (db-model/query-block-by-uuid id)]
(if-not (nil? (:block/content ref-block))
(do