aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-08 18:57:50 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-08 18:57:50 +0200
commiteaf9d3c8c57a4661f9ba1408c59d6902147a1d6e (patch)
treee5ffa04c8e7e2187793ed9104eb0ed0c6eedf4fb
parentf1f45761bed72a41f915d78b94962cfe752ea155 (diff)
reindent a fun
-rw-r--r--lisp/mastodon-tl.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 5599609..0b87cc2 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1307,17 +1307,17 @@ LONGEST-OPTION is the option whose length determines the formatting."
;; VIDEOS / MPV
- (defun mastodon-tl--find-first-video-in-attachments ()
- "Return the first media attachment that is a moving image."
- (let ((attachments (mastodon-tl--property 'attachments))
- vids)
- (mapc (lambda (x)
- (let ((att-type (plist-get x :type)))
- (when (or (string= "video" att-type)
- (string= "gifv" att-type))
- (push x vids))))
- attachments)
- (car vids)))
+(defun mastodon-tl--find-first-video-in-attachments ()
+ "Return the first media attachment that is a moving image."
+ (let ((attachments (mastodon-tl--property 'attachments))
+ vids)
+ (mapc (lambda (x)
+ (let ((att-type (plist-get x :type)))
+ (when (or (string= "video" att-type)
+ (string= "gifv" att-type))
+ (push x vids))))
+ attachments)
+ (car vids)))
(defun mastodon-tl--mpv-play-video-from-byline ()
"Run `mastodon-tl--mpv-play-video-at-point' on first moving image in post."