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

enhance(pdf): make the weblink pdf filename to be human-readable for the annotations page

Browse Source
This commit is contained in:
charlie
2023-01-06 12:28:18 +08:00
committed by Andelf
parent 418502deed
commit e70d76589b
3 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -29,21 +29,20 @@
(defn inflate-asset
[original-path]
(let [filename (util/node-path.basename original-path)
(let [filename (util/node-path.basename original-path)
web-link? (string/starts-with? original-path "http")
ext-name (util/get-file-ext filename)
url (assets-handler/normalize-asset-resource-url original-path)]
(when-let [key
(if web-link?
(str (hash url))
(and
(= ext-name "pdf")
(subs filename 0 (- (count filename) 4))))]
{:key key
:identity (subs key (- (count key) 15))
:filename filename
:url url
:hls-file (str "assets/" key ".edn")
ext-name (util/get-file-ext filename)
url (assets-handler/normalize-asset-resource-url original-path)
filekey (util/safe-sanitize-file-name (subs filename 0 (- (count filename) (inc (count ext-name)))))]
(when-let [key (and (not (string/blank? filekey))
(if web-link?
(str filekey "__" (hash url)) filekey))]
{:key key
:identity (subs key (- (count key) 15))
:filename filename
:url url
:hls-file (str "assets/" key ".edn")
:original-path original-path})))
(defn resolve-area-image-file