diff options
Diffstat (limited to 'emacsconf-extract.el')
| -rw-r--r-- | emacsconf-extract.el | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/emacsconf-extract.el b/emacsconf-extract.el index 5600494..194d86c 100644 --- a/emacsconf-extract.el +++ b/emacsconf-extract.el @@ -1652,90 +1652,6 @@ If QA is non-nil, treat it as a Q&A video." ;;; PeerTube -(defvar emacsconf-extract-toobnix-api-client nil) -(defvar emacsconf-extract-toobnix-api-bearer-token nil) -(defvar emacsconf-extract-toobnix-api-username "bandali") -(defvar emacsconf-extract-toobnix-api-channel-handle "emacsconf") - -(defun emacsconf-extract-toobnix-api-header () - `(("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) - (require 'plz) - (require 'url-http-oauth) - (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 - (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) - :headers - :as #'json-read)) - (setq emacsconf-extract-toobnix-api-videos - (plz 'get - (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)) - (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-toobnix-publish-video-from-edit-page () - "Messy hack to set a video to public and store the URL." - (interactive) - (spookfox-js-injection-eval-in-active-tab "document.querySelector('label[for=privacy]').scrollIntoView(); document.querySelector('label[for=privacy]').closest('.form-group').querySelector('input').dispatchEvent(new Event('input'));" t) - (sit-for 1) - (spookfox-js-injection-eval-in-active-tab "document.querySelector('span[title=\"Anyone can see this video\"]').click()" t) - (sit-for 1) - (spookfox-js-injection-eval-in-active-tab "document.querySelector('button.orange-button').click()" t)(sit-for 3) - (emacsconf-extract-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-toobnix-view-qa (talk) - (interactive (list (emacsconf-complete-talk-info))) - (browse-url (plist-get (emacsconf-resolve-talk talk) :qa-toobnix-url))) - (defun emacsconf-extract-youtube-spookfox-add-playlist-numbers () "Number the playlist for easier checking. Related: `emacsconf-extract-check-playlists'." |