diff options
| -rw-r--r-- | emacsconf-extract.el | 181 |
1 files changed, 111 insertions, 70 deletions
diff --git a/emacsconf-extract.el b/emacsconf-extract.el index bf73b75..32c9525 100644 --- a/emacsconf-extract.el +++ b/emacsconf-extract.el @@ -1263,7 +1263,8 @@ If QA is non-nil, treat it as a Q&A video." ;; This still needed some tweaking, so maybe next time we'll try just inserting the items into the playlist (defvar emacsconf-extract-youtube-api-playlist nil) (defvar emacsconf-extract-youtube-api-playlist-items nil) -(defun emacsconf-extract-youtube-api-sort-playlist () +(defun emacsconf-extract-youtube-api-sort-playlist (&optional dry-run-only) + "Try to roughly sort the playlist." (interactive) (setq emacsconf-extract-youtube-api-playlist (seq-find (lambda (o) (let-alist o (string= .snippet.title (concat emacsconf-name " " emacsconf-year)))) (assoc-default 'items emacsconf-extract-youtube-api-playlists))) @@ -1271,66 +1272,72 @@ If QA is non-nil, treat it as a Q&A video." (emacsconf-extract-youtube-api-paginated-request (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=100&playlistId=" (url-hexify-string (assoc-default 'id emacsconf-extract-youtube-api-playlist))))) (let* ((playlist-info emacsconf-extract-youtube-api-playlists) - (playlist-items - (assoc-default 'items emacsconf-youtube-api-playlist-items)) + (playlist-items emacsconf-extract-youtube-api-playlist-items) (info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info))) (slugs (seq-map (lambda (o) (plist-get o :slug)) info)) - (position (1- (length playlist-items)))) + (position (1- (length playlist-items))) + result) ;; sort items - (seq-map (lambda (talk) - (when (plist-get talk :qa-youtube-id) - ;; move the q & a - (let ((video-object (seq-find (lambda (video) (string= (assoc-default 'id video) - (plist-get talk :qa-youtube-id))) - playlist-items))) - (let-alist video-object - (cond - ((null video-object) - (message "Could not find video for %s" (plist-get talk :slug))) - ;; not in the right position, try to move it - ((< .snippet.position position) - (let ((video-id .id) - (playlist-id .snippet.playlistId) - (resource-id .snippet.resourceId)) - (message "Trying to move %s Q&A to %d from %d" (plist-get talk :slug) position .snippet.position) - (plz 'put "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet" - :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")) - ("Accept" . "application/json") - ("Content-Type" . "application/json")) - :body (json-encode - `((id . ,video-id) - (snippet - (playlistId . ,playlist-id) - (resourceId . ,resource-id) - (position . ,position))))))))) - (setq position (1- position))) - ;; move the talk if needed - (let ((video-object (seq-find (lambda (video) (string-match - (regexp-quote (let-alist video .resourceId.videoId)) - (plist-get talk :youtube-url))) - playlist-items))) - (let-alist video-object - (cond - ((null video-object) - (message "Could not find video for %s" (plist-get talk :slug))) - ;; not in the right position, try to move it - ((< .snippet.position position) - (let ((video-id .id) - (playlist-id .snippet.playlistId) - (resource-id .snippet.resourceId)) - (message "Trying to move %s to %d from %d" (plist-get talk :slug) position .snippet.position) - (plz 'put "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet" - :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")) - ("Accept" . "application/json") - ("Content-Type" . "application/json")) - :body (json-encode - `((id . ,video-id) - (snippet - (playlistId . ,playlist-id) - (resourceId . ,resource-id) - (position . ,position))))))))) - (setq position (1- position))))) - (nreverse info)))) + (mapc (lambda (talk) + (when (plist-get talk :qa-youtube-id) + ;; move the q & a + (let ((video-object (emacsconf-extract-youtube-find-url-video-in-list + (plist-get talk :qa-youtube-url) + playlist-items))) + (let-alist video-object + (cond + ((null video-object) + (message "Could not find video for %s" (plist-get talk :slug))) + ;; not in the right position, try to move it + ((< .snippet.position position) + (let ((video-id .id) + (playlist-id .snippet.playlistId) + (resource-id .snippet.resourceId)) + (message "Trying to move %s Q&A to %d from %d" (plist-get talk :slug) position .snippet.position) + (add-to-list 'result (list (plist-get talk :slug) "answers" .snippet.position position)) + (unless dry-run-only + (plz 'put "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet" + :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")) + ("Accept" . "application/json") + ("Content-Type" . "application/json")) + :body (json-encode + `((id . ,video-id) + (snippet + (playlistId . ,playlist-id) + (resourceId . ,resource-id) + (position . ,position)))))))))) + (setq position (1- position)))) + ;; move the talk if needed + (let ((video-object + (emacsconf-extract-youtube-find-url-video-in-list + (plist-get talk :youtube-url) + playlist-items))) + (let-alist video-object + (cond + ((null video-object) + (message "Could not find video for %s" (plist-get talk :slug))) + ;; not in the right position, try to move it + ((< .snippet.position position) + (let ((video-id .id) + (playlist-id .snippet.playlistId) + (resource-id .snippet.resourceId)) + (message "Trying to move %s to %d from %d" (plist-get talk :slug) position .snippet.position) + (add-to-list 'result (list (plist-get talk :slug) "main" .snippet.position position)) + (unless dry-run-only + (plz 'put "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet" + :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")) + ("Accept" . "application/json") + ("Content-Type" . "application/json")) + :body (json-encode + `((id . ,video-id) + (snippet + (playlistId . ,playlist-id) + (resourceId . ,resource-id) + (position . ,position)))))) + )))) + (setq position (1- position)))) + (nreverse info)) + result)) (defun emacsconf-extract-youtube-get-video-details (&optional videos) (let (result url) @@ -1393,7 +1400,10 @@ If QA is non-nil, treat it as a Q&A video." (defvar emacsconf-extract-toobnix-api-channel-handle "emacsconf") (defun emacsconf-extract-toobnix-api-header () - `(("Authorization" . ,(concat "Bearer " emacsconf-extract-toobnix-api-bearer-token)))) + `(("Authorization" . ,(concat "Bearer " + (if (stringp emacsconf-extract-toobnix-api-bearer-token) + emacsconf-extract-toobnix-api-bearer-token + (assoc-default 'access_token emacsconf-extract-toobnix-api-bearer-token)))))) (defun emacsconf-extract-toobnix-api-setup () (interactive) @@ -1402,14 +1412,18 @@ If QA is non-nil, treat it as a Q&A video." (setq emacsconf-extract-toobnix-api-client (plz 'get "https://toobnix.org/api/v1/oauth-clients/local" :as #'json-read)) (setq emacsconf-extract-toobnix-api-bearer-token - (plz 'post "https://toobnix.org/api/v1/users/token" - :body (mm-url-encode-www-form-urlencoded - `(("client_id" . ,(assoc-default 'client_id emacsconf-extract-toobnix-api-client)) - ("client_secret" . ,(assoc-default 'client_secret emacsconf-extract-toobnix-api-client)) - ("grant_type" . "password") - ("username" . ,emacsconf-extract-toobnix-api-username) - ("password" . ,(auth-info-password (car (auth-source-search :host "https://toobnix.org")))))) - :as #'json-read)) + (assoc-default + 'access_token + (plz 'post "https://toobnix.org/api/v1/users/token" + :body (mm-url-encode-www-form-urlencoded + `(("client_id" . ,(assoc-default 'client_id emacsconf-extract-toobnix-api-client)) + ("client_secret" . ,(assoc-default 'client_secret emacsconf-extract-toobnix-api-client)) + ("grant_type" . "password") + ("username" . ,emacsconf-extract-toobnix-api-username) + ("password" . ,(auth-info-password (car (auth-source-search :host "https://toobnix.org")))))) + :as #'json-read) + ) +) (setq emacsconf-extract-toobnix-api-channels (plz 'get (format "https://toobnix.org/api/v1/accounts/%s/video-channels" emacsconf-extract-toobnix-api-username) @@ -1420,7 +1434,16 @@ If QA is non-nil, treat it as a Q&A video." (format "https://toobnix.org/api/v1/accounts/%s/videos?count=100&sort=-createdAt" emacsconf-extract-toobnix-api-username) :headers (emacsconf-extract-toobnix-api-header) - :as #'json-read))) + :as #'json-read)) + (setq emacsconf-extract-toobnix-api-playlists + (append + (assoc-default 'data + (plz 'get + (format "https://toobnix.org/api/v1/video-channels/%s/video-playlists?sort=-createdAt" + emacsconf-extract-toobnix-api-channel-handle) + :headers (emacsconf-extract-toobnix-api-header) + :as #'json-read)) + nil))) (defun emacsconf-extract-youtube-store-url (&optional prefix) (interactive "p") @@ -1487,6 +1510,24 @@ 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-toobnix-set-up-playlist () + (interactive) + (mapcar + (lambda (o) + (when (plist-get o :toobnix-url) + (browse-url (plist-get o :toobnix-url)) + (read-key "press a key when page is loaded") + (spookfox-js-injection-eval-in-active-tab "document.querySelector('.action-button-save').click()" t) + (spookfox-js-injection-eval-in-active-tab "document.querySelector('my-peertube-checkbox').click()" t) + (read-key "press a key when saved to playlist")) + (when (plist-get o :qa-toobnix-url) + (browse-url (plist-get o :qa-toobnix-url)) + (read-key "press a key when page is loaded") + (spookfox-js-injection-eval-in-active-tab "document.querySelector('.action-button-save').click()" t) + (spookfox-js-injection-eval-in-active-tab "document.querySelector('my-peertube-checkbox').click()" t) + (read-key "press a key when saved to playlist"))) + (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))) + (defun emacsconf-extract-youtube-spookfox-add-playlist-numbers () "Number the playlist for easier checking. Related: `emacsconf-extract-check-playlists'." @@ -1501,7 +1542,7 @@ Related: `emacsconf-extract-check-playlists'." nil (list (when (emacsconf-talk-file o "--main.webm") - (incf pos) + (cl-incf pos) (list pos (plist-get o :title) (org-link-make-string @@ -1511,7 +1552,7 @@ Related: `emacsconf-extract-check-playlists'." (plist-get o :toobnix-url) "Toobnix"))) (when (emacsconf-talk-file o "--answers.webm") - (incf pos) + (cl-incf pos) (list pos (concat "Q&A: " (plist-get o :title)) (org-link-make-string (plist-get o :qa-youtube-url) |