display videos in posts

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)