mirror of https://codeberg.org/cage/tinmop/
- [GUI] fixed test for checking mime-type on an image;
- allowed null values for preview url in post's attachments.
This commit is contained in:
parent
7d9f3beffa
commit
a71492faa8
|
@ -295,7 +295,7 @@
|
|||
;; one of swconf:*allowed-attachment-type*
|
||||
" type TEXT NOT NULL,"
|
||||
" url TEXT NOT NULL,"
|
||||
" \"preview-url\" TEXT NOT NULL,"
|
||||
" \"preview-url\" TEXT,"
|
||||
" \"remote-url\" TEXT,"
|
||||
;; url shortened
|
||||
" \"text-url\" TEXT,"
|
||||
|
|
|
@ -474,7 +474,9 @@
|
|||
(let ((image (cond
|
||||
((string= mime-type +mime-type-jpg+)
|
||||
(scale-jpeg main-window file-path))
|
||||
((member mime-type '("image/x-tga" "image/x-targa"))
|
||||
((member mime-type
|
||||
'("image/x-tga" "image/x-targa")
|
||||
#'string=)
|
||||
(scale-targa main-window file-path))
|
||||
((string= mime-type +mime-type-png+)
|
||||
(scale-png main-window file-path))
|
||||
|
|
Loading…
Reference in New Issue