cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- added a better name for images captions, when composing images from a gemini page.

This commit is contained in:
cage 2022-12-10 15:16:03 +01:00
parent 32169beac7
commit 3145ee8263
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ui-goodies.lisp
View File

@ -1512,10 +1512,13 @@ displayed using the standard image viewer installed on the system."
links))
(images-count (length images-uris))
(name-padding (num:count-digit images-count))
(name-format (format nil (_ "Figure: ~~~d,'0d") name-padding))
(names (loop for ct from 1 below (1+ images-count)
(names (loop for uri in images-uris
collect
(format nil name-format ct)))
(or (gemini-parser:name uri)
(when-let* ((parsed (iri:iri-parse (gemini-parser:target uri)
:null-on-error t))
(path (and parsed (uri:path parsed))))
(fs:path-last-element path)))))
(files (loop for ct from 0 below images-count
collect
(fs:temporary-file :extension ".bitmap")))