diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-08-08 11:05:05 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-08-08 11:05:05 +0200 |
| commit | 881ee6ab4133e63c4debc1b6e716d5e4bdb446aa (patch) | |
| tree | 3551b49a1185f755ff410525d733725e37d2eb23 /lisp/mastodon-toot.el | |
| parent | 21090d643515ad076c9900d601a1a901f464ccc9 (diff) | |
factor out image-trans-check.
Diffstat (limited to 'lisp/mastodon-toot.el')
| -rw-r--r-- | lisp/mastodon-toot.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 2232cc8..7c5472b 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1329,8 +1329,7 @@ which is used to attach it to a toot when posting." (defun mastodon-toot--format-attachments () "Format the attachment previews for display in toot draft buffer." (or - (let ((image-options (when (or (image-type-available-p 'imagemagick) - (image-transforms-p)) + (let ((image-options (when (mastodon-tl--image-trans-check) `(:height ,mastodon-toot--attachment-height)))) (cl-loop for count from 1 for att in mastodon-toot--media-attachments |