diff options
Diffstat (limited to 'exitter.el')
-rw-r--r-- | exitter.el | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -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) |