📎 Fix review issues

This commit is contained in:
Andrey Antukh 2022-04-05 13:07:11 +02:00 committed by Andrés Moya
parent 7a38b08506
commit 4adc5d25a7
2 changed files with 5 additions and 1 deletions

View file

@ -330,6 +330,10 @@
(p/let [xmldata (extract-svg page object) (p/let [xmldata (extract-svg page object)
txtdata (extract-txt-nodes page object) txtdata (extract-txt-nodes page object)
result (replace-text-nodes xmldata txtdata) result (replace-text-nodes xmldata txtdata)
;; SVG standard don't allow the entity
;; nbsp.   is equivalent but compatible
;; with SVG.
result (str/replace result " " " ")] result (str/replace result " " " ")]
;; (println "------- ORIGIN:") ;; (println "------- ORIGIN:")

View file

@ -467,7 +467,7 @@
(let [link (create-element "a") (let [link (create-element "a")
extension (mtype->extension mtype) extension (mtype->extension mtype)
filename (if (and extension (not (str/ends-with? filename extension))) filename (if (and extension (not (str/ends-with? filename extension)))
(str/concat filename "." extension) (str/concat filename extension)
filename)] filename)]
(obj/set! link "href" uri) (obj/set! link "href" uri)
(obj/set! link "download" filename) (obj/set! link "download" filename)