mirror of https://github.com/logseq/logseq
improve(pdf): unlink area image file when remove corresponding highlight
parent
441a5ec077
commit
0d1e0db1e6
|
@ -87,8 +87,9 @@
|
||||||
;; dir
|
;; dir
|
||||||
fname (str (:page hl) "_" (:id hl))
|
fname (str (:page hl) "_" (:id hl))
|
||||||
fdir (str config/local-assets-dir "/" key)
|
fdir (str config/local-assets-dir "/" key)
|
||||||
|
fpath (str fdir "/" fname ".png")
|
||||||
_ (fs/mkdir-if-not-exists (str repo-dir "/" fdir))
|
_ (fs/mkdir-if-not-exists (str repo-dir "/" fdir))
|
||||||
_ (fs/write-file! repo-cur repo-dir (str fdir "/" fname ".png") png {:skip-mtime? true})]
|
_ (fs/write-file! repo-cur repo-dir fpath png {:skip-mtime? true})]
|
||||||
|
|
||||||
(js/console.timeEnd :write-area-image))
|
(js/console.timeEnd :write-area-image))
|
||||||
|
|
||||||
|
@ -99,7 +100,15 @@
|
||||||
))))
|
))))
|
||||||
|
|
||||||
(defn unlink-hl-area-image$
|
(defn unlink-hl-area-image$
|
||||||
[])
|
[^js viewer current hl]
|
||||||
|
(when-let [fkey (and (area-highlight? hl) (:key current))]
|
||||||
|
(let [repo-cur (state/get-current-repo)
|
||||||
|
repo-dir (config/get-repo-dir repo-cur)
|
||||||
|
fname (str (:page hl) "_" (:id hl))
|
||||||
|
fdir (str config/local-assets-dir "/" fkey)
|
||||||
|
fpath (utils/node-path.join repo-dir (str fdir "/" fname ".png"))]
|
||||||
|
|
||||||
|
(fs/unlink! repo-cur fpath {}))))
|
||||||
|
|
||||||
(defn resolve-ref-page
|
(defn resolve-ref-page
|
||||||
[page-name]
|
[page-name]
|
||||||
|
@ -236,7 +245,7 @@
|
||||||
(when-let [hl-page (:hl-page props)]
|
(when-let [hl-page (:hl-page props)]
|
||||||
;; TODO: async?
|
;; TODO: async?
|
||||||
(let [asset-path (editor-handler/make-asset-url
|
(let [asset-path (editor-handler/make-asset-url
|
||||||
(str "/" config/local-assets-dir "/" group-key "/" (str hl-page "_" id ".png")))]
|
(str "/" config/local-assets-dir "/" group-key "/" (str hl-page "_" id ".png")))]
|
||||||
|
|
||||||
[:span.hl-area
|
[:span.hl-area
|
||||||
[:img {:src asset-path}]]))))))
|
[:img {:src asset-path}]]))))))
|
|
@ -112,7 +112,8 @@
|
||||||
"del"
|
"del"
|
||||||
(do
|
(do
|
||||||
(del-hl! highlight)
|
(del-hl! highlight)
|
||||||
(pdf-assets/del-ref-block! highlight))
|
(pdf-assets/del-ref-block! highlight)
|
||||||
|
(pdf-assets/unlink-hl-area-image$ viewer (:pdf/current @state/state) highlight))
|
||||||
|
|
||||||
;; colors
|
;; colors
|
||||||
(let [properties {:color action}]
|
(let [properties {:color action}]
|
||||||
|
|
Loading…
Reference in New Issue