From 84e024f1ae7944da1de79f71fee290cd73df11c8 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Tue, 14 Jan 2025 09:12:09 +1100 Subject: display videos in posts --- exitter.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'exitter.el') 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) -- cgit v1.2.3