diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-08 18:57:50 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-08 18:57:50 +0200 |
commit | eaf9d3c8c57a4661f9ba1408c59d6902147a1d6e (patch) | |
tree | e5ffa04c8e7e2187793ed9104eb0ed0c6eedf4fb | |
parent | f1f45761bed72a41f915d78b94962cfe752ea155 (diff) |
reindent a fun
-rw-r--r-- | lisp/mastodon-tl.el | 22 |
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." |