-
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user