aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2021-10-22 23:50:06 +0200
committermousebot <mousebot@riseup.net>2021-10-22 23:50:06 +0200
commita131a846daaf82061cff37f42ed16445dcdbe36a (patch)
tree9649af9f8133483e9434fd8e797c20c1d59a90c5 /lisp/mastodon-toot.el
parent24adbf94613d1cbeee08db896388e1d7f854a168 (diff)
move defcustom attachment-height from media to toot
- this makes the autoload fun mastodon-toot have access to the variable, so that it can be successfully called without mastodon-mode having been enabled previously. - maybe there is another work around for making variables available to autoloaded functions, but i failed to find it!
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 0153c9b..cfc5182 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -29,9 +29,6 @@
;;; Code:
-(defvar mastodon-instance-url)
-(defvar mastodon-media--attachment-height)
-(defvar mastodon-toot--enable-completion-for-mentions)
(when (require 'emojify nil :noerror)
(declare-function emojify-insert-emoji "emojify"))
@@ -39,6 +36,7 @@
(require 'cl-lib)
(require 'company nil :noerror)
+(defvar mastodon-instance-url)
(autoload 'mastodon-auth--user-acct "mastodon-auth")
(autoload 'mastodon-http--api "mastodon-http")
(autoload 'mastodon-http--post "mastodon-http")
@@ -81,6 +79,11 @@ Must be one of \"public\", \"unlisted\", \"private\" (for followers-only), or \"
:group 'mastodon-toot
:type 'string)
+(defcustom mastodon-toot--attachment-height 80
+ "Height of the attached images preview in the toot draft buffer."
+ :group 'mastodon-media
+ :type 'integer)
+
(when (require 'company nil :noerror)
(defcustom mastodon-toot--enable-completion-for-mentions "followers"
"Whether to enable company completion for mentions in toot compose buffer."
@@ -584,7 +587,7 @@ It adds the items' ids to `mastodon-toot--media-attachment-ids', which is used t
(or (let ((counter 0)
(image-options (when (or (image-type-available-p 'imagemagick)
(image-transforms-p))
- `(:height ,mastodon-media--attachment-height))))
+ `(:height ,mastodon-toot--attachment-height))))
(mapcan (lambda (attachment)
(let* ((data (cdr (assoc :contents attachment)))
(image (apply #'create-image data