Allow files no bigger than 20m

pull/645/head
Tienson Qin 2020-05-07 15:40:24 +08:00
parent 3ee034f562
commit dcef27dbd9
2 changed files with 7 additions and 4 deletions

View File

@ -66,8 +66,11 @@
;; TODO: safe encoding asciis ;; TODO: safe encoding asciis
;; TODO: image link to another link ;; TODO: image link to another link
(defn image-link [url href label] (defn image-link [url href label]
[:img {:src href [:img.rounded-sm.shadow-xs.mb-2.mt-2
:title (second (first label))}]) {:class "object-contain object-left-top"
:style {:max-height "24rem"}
:src href
:title (second (first label))}])
(defn repetition-to-string (defn repetition-to-string
[[[kind] [duration] n]] [[[kind] [duration] n]]

View File

@ -545,8 +545,8 @@
(defn request-presigned-url (defn request-presigned-url
[file filename mime-type url-handler] [file filename mime-type url-handler]
(cond (cond
(> (gobj/get file "size") (* 5 1024 1024)) (> (gobj/get file "size") (* 20 1024 1024))
(show-notification! [:p "Sorry, we don't support any file that's larger than 5MB."] :error) (show-notification! [:p "Sorry, we don't support any file that's larger than 20MB."] :error)
:else :else
(util/post (str config/api "presigned_url") (util/post (str config/api "presigned_url")