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 /lisp | |
| parent | f1f45761bed72a41f915d78b94962cfe752ea155 (diff) | |
reindent a fun
Diffstat (limited to 'lisp')
| -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."  | 
