display videos in posts

1 files changed, 11 insertions, 1 deletions

diff --git a/exitter.el b/exitter.el
index ea9f5c6..3d58a7f 100644
--- a/exitter.el
+++ b/exitter.el
@@ -729,7 +729,17 @@ TIME-STAMP is assumed to be in the past."
   (let-alist (seq-find
               (lambda (info) (equal url (alist-get 'url info)))
               urls)
-    (or .media_url_https .expanded_url url)))
+    (let ((expanded-url
+           (or .media_url_https .expanded_url url)))
+      (if .video_info
+          (format "Video (%d sec, %s): %s"
+                  (/ .video_info.duration_millis 1000)
+                  (exitter-make-org-link expanded-url "thumbnail")
+                  (alist-get 'url
+                             (elt .video_info.variants
+                                  (1- (length .video_info.variants))))
+                  )
+        expanded-url))))
 
 ;;; Probably not needed...
 ;; (defun exitter-get-redirect-url (url)