summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--exitter.el12
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)