From 36551754f548954d83af723d227dc7d14fd57d60 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Tue, 21 Jan 2025 09:44:20 +1100 Subject: Show images and video thumbnails --- exitter.el | 35 ++++++++++++++++++++++++----------- 1 file changed, 24 insertions(+), 11 deletions(-) (limited to 'exitter.el') diff --git a/exitter.el b/exitter.el index 9f218ab..1b976a9 100644 --- a/exitter.el +++ b/exitter.el @@ -732,17 +732,30 @@ TIME-STAMP is assumed to be in the past." (let-alist (seq-find (lambda (info) (equal url (alist-get 'url info))) urls) - (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)))) + (with-temp-buffer + (let ((expanded-url + (or .media_url_https .expanded_url url))) + (insert + (if .video_info + (format "%s (%s sec)" + (exitter-make-org-link + (alist-get 'url + (elt .video_info.variants + (1- (length .video_info.variants)))) + .type) + (if .video_info.duration_millis + (number-to-string (/ .video_info.duration_millis 1000)) + "??")) + (exitter-make-org-link expanded-url (or .type "link")))) + (when .media_url_https + (let ((image-file-name + (file-name-concat exitter-dir + (file-name-nondirectory .media_url_https)))) + (ignore-error 'file-already-exists + (url-copy-file .media_url_https image-file-name)) + (insert "\n") + (insert-image (create-image image-file-name))))) + (buffer-string)))) ;;; Probably not needed... ;; (defun exitter-get-redirect-url (url) -- cgit v1.2.3