This commit is contained in:
2026-02-25 22:34:22 +01:00
parent 7cefed4d68
commit 63c8bde210
4 changed files with 54 additions and 37 deletions

View File

@@ -68,6 +68,12 @@
)
#f)))
(define/public (image->mimetype)
(let ((tags (read-tags)))
(if (tags-valid? tags)
(tags-picture->mimetype tags)
'no-mimetype)))
(super-new)
(begin