From 746a34134f7c21789031c2ef88d37d09dbb47cbc Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Mon, 11 Dec 2023 17:23:51 -0500 Subject: add check playlists, spookfox --- emacsconf-extract.el | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) diff --git a/emacsconf-extract.el b/emacsconf-extract.el index e7c4a9d..b042f66 100644 --- a/emacsconf-extract.el +++ b/emacsconf-extract.el @@ -1487,5 +1487,38 @@ If QA is non-nil, treat it as a Q&A video." (emacsconf-extract-toobnix-store-url) (shell-command "xdotool key Alt+Tab sleep 1 key Ctrl+w Alt+Tab")) +(defun emacsconf-extract-youtube-spookfox-add-playlist-numbers () + "Number the playlist for easier checking. +Related: `emacsconf-extract-check-playlists'." + (interactive) + (spookfox-js-injection-eval-in-active-tab "[...document.querySelectorAll('ytd-playlist-video-renderer')].forEach((o, i) => { o.querySelector('.number')?.remove(); let div = document.createElement('div'); div.classList.add('number'); div.textContent = i; o.prepend(div) }))" t)) + +(defun emacsconf-extract-check-playlists () + "Return a table for checking playlist order." + (let ((pos 0)) + (seq-mapcat (lambda (o) + (delq + nil + (list + (when (emacsconf-talk-file o "--main.webm") + (incf pos) + (list pos + (plist-get o :title) + (org-link-make-string + (plist-get o :youtube-url) + "YouTube") + (org-link-make-string + (plist-get o :toobnix-url) + "Toobnix"))) + (when (emacsconf-talk-file o "--answers.webm") + (incf pos) + (list pos (concat "Q&A: " (plist-get o :title)) + (org-link-make-string + (plist-get o :qa-youtube-url) + "YouTube") + (org-link-make-string + (plist-get o :qa-toobnix-url) + "Toobnix")))))) + (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info))))) (provide 'emacsconf-extract) ;;; emacsconf-extract.el ends here -- cgit v1.2.3