summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--emacsconf-extract.el385
1 files changed, 311 insertions, 74 deletions
diff --git a/emacsconf-extract.el b/emacsconf-extract.el
index ceca898..52d181b 100644
--- a/emacsconf-extract.el
+++ b/emacsconf-extract.el
@@ -693,14 +693,21 @@ Would you like to help? See [[help_with_chapter_markers]] for more details. You
(when (called-interactively-p 'any) (kill-new s))
s))
-(defun emacsconf-extract-download-published-recordings (source dest)
+(defun emacsconf-extract-download-published-recordings-command ()
"Copy the command for downloading published recordings from SOURCE to DEST."
+ (interactive)
(kill-new
(mapconcat (lambda (o) (if (plist-get o :bbb-meeting-id)
- (format "rsync -avzue ssh %s%s %s\n"
- source
- (match-string 1 (plist-get o :bbb-rec))
- dest)
+ (replace-regexp-in-string
+ "/ssh:" ""
+ (format "rsync -avzue ssh %s %s # %s\n"
+ (expand-file-name
+ (plist-get o :bbb-meeting-id)
+ (expand-file-name "published/presentation"
+ emacsconf-extract-bbb-path
+ ))
+ emacsconf-extract-bbb-published-dir
+ (plist-get o :slug)))
""))
(emacsconf-get-talk-info))))
@@ -713,6 +720,23 @@ Would you like to help? See [[help_with_chapter_markers]] for more details. You
(setq talk (emacsconf-resolve-talk talk))
(expand-file-name "events.xml" (expand-file-name (plist-get talk :bbb-meeting-id) emacsconf-extract-bbb-raw-dir)))
+(defun emacsconf-extract-bbb-dired-raw (talk)
+ (interactive (list (emacsconf-complete-talk-info)))
+ (setq talk (emacsconf-resolve-talk talk))
+ (dired (expand-file-name (plist-get talk :bbb-meeting-id) emacsconf-extract-bbb-raw-dir)))
+
+(defun emacsconf-extract-bbb-dired-published (talk)
+ (interactive (list (emacsconf-complete-talk-info)))
+ (setq talk (emacsconf-resolve-talk talk))
+ (dired (expand-file-name (plist-get talk :bbb-meeting-id) emacsconf-extract-bbb-published-dir)))
+
+(defun emacsconf-extract-waveform-published-webcam-video (talk)
+ (interactive (list (emacsconf-complete-talk-info)))
+ (setq talk (emacsconf-resolve-talk talk))
+ (waveform-show (expand-file-name "video/webcams.webm"
+ (expand-file-name (plist-get talk :bbb-meeting-id) emacsconf-extract-bbb-published-dir))))
+
+
(defun emacsconf-extract-bbb-parse-events (talk)
"Parse events TALK from raw recordings.
This works with the events.xml from /var/bigbluebutton/raw.
@@ -957,7 +981,8 @@ Strategies:
(output (expand-file-name (concat (plist-get talk :file-prefix) "--answers.webm") emacsconf-cache-dir))
(webcam-video (expand-file-name "video/webcams.webm" source-dir))
(deskshare-video (expand-file-name "deskshare/deskshare.webm" source-dir))
- (stop-ms (or stop-ms (emacsconf-get-file-duration-ms webcam-video)))
+ (webcam-duration (emacsconf-get-file-duration-ms webcam-video))
+ (stop-ms (or stop-ms webcam-duration))
(command
(if (file-exists-p deskshare-video)
;; Has deskshare
@@ -971,10 +996,15 @@ Strategies:
(compile-media-output-video-height (cdr final-size)))
(compile-media-get-command spans output))
;; Just webcams
- (compile-media-get-command
- (compile-media-split-tracks
- (list (list :source webcam-video :start-ms start-ms :stop-ms stop-ms)))
- output))))
+ (if (and (= start-ms 0)
+ (= stop-ms webcam-duration))
+ (format "cp %s %s"
+ webcam-video
+ output)
+ (compile-media-get-command
+ (compile-media-split-tracks
+ (list (list :source webcam-video :start-ms start-ms :stop-ms stop-ms)))
+ output)))))
(when (called-interactively-p 'any)
(kill-new command))
command))
@@ -1079,19 +1109,27 @@ Strategies:
:headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
:as #'json-read))
(setq emacsconf-extract-youtube-api-videos
- (plz 'get (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId="
- (url-hexify-string
- (let-alist (elt (assoc-default 'items emacsconf-extract-youtube-api-channels) 0)
- .contentDetails.relatedPlaylists.uploads)
- ))
- :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
- :as #'json-read)))
+ (emacsconf-extract-youtube-api-paginated-request
+ (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId="
+ (url-hexify-string
+ (let-alist (elt (assoc-default 'items emacsconf-extract-youtube-api-channels) 0)
+ .contentDetails.relatedPlaylists.uploads)
+ ))
+ nil
+ (lambda (item)
+ (string-match (regexp-quote emacsconf-year)
+ (let-alist item .snippet.title))))))
(defvar emacsconf-extract-youtube-tags '("emacs" "emacsconf"))
-(defun emacsconf-extract-youtube-object (video-id talk &optional privacy-status)
- "Format the video object for VIDEO-ID using TALK details."
+(defun emacsconf-extract-youtube-object (video-id talk &optional privacy-status qa)
+ "Format the video object for VIDEO-ID using TALK details.
+If QA is non-nil, treat it as a Q&A video."
(setq privacy-status (or privacy-status "public"))
- (let ((properties (emacsconf-publish-talk-video-properties talk 'youtube)))
+ (let ((properties
+ (funcall (if qa
+ #'emacsconf-publish-answers-video-properties
+ #'emacsconf-publish-talk-video-properties)
+ talk 'youtube)))
`((id . ,video-id)
(kind . "youtube#video")
(snippet
@@ -1099,9 +1137,8 @@ Strategies:
(title . ,(plist-get properties :title))
(tags . ,emacsconf-extract-youtube-tags)
(description . ,(plist-get properties :description))
- ;; Even though I set recordingDetails and status, it doesn't seem to stick.
- ;; I'll leave this in here in case someone else can figure it out.
(recordingDetails (recordingDate . ,(format-time-string "%Y-%m-%dT%TZ" (plist-get talk :start-time) t))))
+ ;; oooh, publishing seems to work now
(status (privacyStatus . ,privacy-status)
(license . "creativeCommon")))))
@@ -1129,16 +1166,53 @@ Strategies:
(when-let ((slug (emacsconf-extract-youtube-get-slug-for-video video-object)))
(emacsconf-resolve-talk slug)))
-(defun emacsconf-extract-youtube-api-update-video (video-object)
- "Update VIDEO-OBJECT."
+(defun emacsconf-extract-youtube-api-videos ()
+ (plz 'get (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId="
+ (url-hexify-string
+ (let-alist (elt (assoc-default 'items emacsconf-extract-youtube-api-channels) 0)
+ .contentDetails.relatedPlaylists.uploads)
+ ))
+ :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
+ :as #'json-read))
+
+(defun emacsconf-extract-youtube-api-paginated-request (url &optional num-pages condition)
+ (let (result current-page (base-url url) current-page-items)
+ (while url
+ (setq current-page
+ (plz 'get url
+ :headers
+ `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
+ :as #'json-read))
+ (setq current-page-items
+ (if condition
+ (seq-filter condition (assoc-default 'items current-page))
+ (assoc-default 'items current-page)))
+ (setq result (append result current-page-items nil))
+ (let-alist current-page
+ (setq url
+ (if .nextPageToken
+ (concat base-url
+ (if (string-match "\\?" base-url) "&" "?")
+ "pageToken=" .nextPageToken)
+ nil)))
+ (when (= (length current-page-items) 0) (setq url nil))
+ (when num-pages
+ (setq num-pages (1- num-pages))
+ (if (<= num-pages 0) (setq url null))))
+ result))
+
+(defun emacsconf-extract-youtube-api-update-video (video-object &optional qa)
+ "Update VIDEO-OBJECT.
+If QA is non-nil, treat it as a Q&A video."
(let-alist video-object
- (let* ((slug (or (emacsconf-extract-youtube-get-slug-for-video video-object)
- (when (string-match (rx (literal emacsconf-id) " " (literal emacsconf-year))
- .snippet.title)
- (completing-read (format "Slug for %s: "
- .snippet.title)
- (seq-map (lambda (o) (plist-get o :slug))
- (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))))))
+ (let* ((slug (or
+ (emacsconf-extract-youtube-get-slug-for-video video-object)
+ (when (string-match (rx (literal emacsconf-id) " " (literal emacsconf-year))
+ .snippet.title)
+ (completing-read (format "Slug for %s: "
+ .snippet.title)
+ (seq-map (lambda (o) (plist-get o :slug))
+ (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))))))
(talk (and slug (emacsconf-resolve-talk slug)))
(video-id .snippet.resourceId.videoId)
(id .id)
@@ -1146,13 +1220,13 @@ Strategies:
(when slug
;; set the YOUTUBE_URL property
(emacsconf-with-talk-heading slug
- (org-entry-put (point) "YOUTUBE_URL" (concat "https://www.youtube.com/watch?v=" video-id))
- (org-entry-put (point) "YOUTUBE_ID" id))
+ (org-entry-put (point) (if qa "QA_YOUTUBE_URL" "YOUTUBE_URL") (concat "https://www.youtube.com/watch?v=" video-id))
+ (org-entry-put (point) (if qa "QA_YOUTUBE_ID" "YOUTUBE_ID") id))
(plz 'put "https://www.googleapis.com/youtube/v3/videos?part=snippet,recordingDetails,status"
:headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/"))
("Accept" . "application/json")
("Content-Type" . "application/json"))
- :body (json-encode (emacsconf-extract-youtube-object video-id talk)))))))
+ :body (json-encode (emacsconf-extract-youtube-object video-id talk nil qa)))))))
(defun emacsconf-extract-youtube-rename-videos (&optional videos)
"Rename videos and set the YOUTUBE_URL property in the Org heading."
@@ -1167,53 +1241,216 @@ Strategies:
(assoc-default
'items
(or videos emacsconf-extract-youtube-api-videos
- (plz 'get (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId="
- (url-hexify-string
- (let-alist (elt (assoc-default 'items emacsconf-extract-youtube-api-channels) 0)
- .contentDetails.relatedPlaylists.uploads)
- ))
- :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
- :as #'json-read))))))
+ (emacsconf-extract-youtube-api-videos))))))
+
+(defun emacsconf-extract-youtube-rename-draft-videos-as-qa (&optional videos)
+ "Rename videos and set the QA_YOUTUBE_URL property in the Org heading."
+ (interactive)
+ (let ((info (emacsconf-get-talk-info)))
+ (mapc
+ (lambda (video)
+ (let-alist video
+ (when (and
+ (string= .status.privacyStatus "private")
+ (string-match (rx (literal emacsconf-id) " " (literal emacsconf-year) " ")
+ .snippet.title))
+ (emacsconf-extract-youtube-api-update-video video t))))
+ (assoc-default
+ 'items
+ (or videos emacsconf-extract-youtube-api-videos
+ (emacsconf-extract-youtube-api-videos))))))
;; 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-sort-playlist ()
(interactive)
- (let* ((playlist-info
- (seq-find (lambda (o) (let-alist o (string= .snippet.title (concat emacsconf-name " " emacsconf-year))))
- (assoc-default 'items emacsconf-extract-youtube-api-playlists)))
+ (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)))
+ (setq emacsconf-extract-youtube-api-playlist-items
+ (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
- (plz 'get (concat "https://youtube.googleapis.com/youtube/v3/playlistItems?part=snippet,contentDetails,status&forMine=true&order=date&maxResults=50&playlistId=" (url-hexify-string (assoc-default 'id playlist-info)))
- :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/")))
- :as #'json-read)))
+ (assoc-default 'items emacsconf-youtube-api-playlist-items))
(info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))
(slugs (seq-map (lambda (o) (plist-get o :slug)) info))
- last-position)
+ (position (1- (length playlist-items))))
;; sort items
- (seq-map-indexed (lambda (talk position)
- (let ((video-object (seq-find (lambda (video) (string= (plist-get talk :slug)
- (emacsconf-extract-youtube-get-slug-for-video video)))
- 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)))))))))
- )) info)))
+ (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))))
+
+(defun emacsconf-extract-youtube-get-video-details (&optional videos)
+ (let (result url)
+ (dolist (partition (seq-partition (or videos emacsconf-extract-youtube-api-videos) 50) result)
+ (setq url
+ (format "https://www.googleapis.com/youtube/v3/videos?id=%s&part=snippet,contentDetails,statistics"
+ (mapconcat (lambda (item) (url-hexify-string (let-alist item .contentDetails.videoId))) partition ",")))
+ (message "%s" url)
+ (setq result
+ (append result
+ (assoc-default
+ 'items
+
+ (plz 'get
+ url
+ :headers `(("Authorization" . ,(url-oauth-auth "https://youtube.googleapis.com/youtube/v3/"))
+ ("Accept" . "application/json")
+ ("Content-Type" . "application/json"))
+ :as #'json-read))
+ nil)))))
+
+(defun emacsconf-extract-youtube-duration-msecs (video)
+ (let-alist video
+ (when-let ((duration .contentDetails.duration))
+ (when (string-match "PT\\(?:\\([0-9]+\\)H\\)?\\([0-9]+\\)M\\([0-9]+\\)" duration)
+ (+ (* (string-to-number (or (match-string 1 duration) "0")) 60 60 1000)
+ (* (string-to-number (or (match-string 2 duration) "0")) 60 1000)
+ (* (string-to-number (or (match-string 3 duration) "0")) 1000))))))
+
+(defun emacsconf-extract-youtube-format-duration (s)
+ "Converts a string of the form PT1H9M22S to 1:09:22."
+ (when (and s (string-match "PT\\(?:\\([0-9]+\\)H\\)?\\([0-9]+\\)M\\([0-9]+\\)" s))
+ (concat
+ (emacsconf-surround "" (match-string 1 s) ":")
+ (if (match-string 1 s)
+ (format "%02d:" (string-to-number (match-string 2 s)))
+ (concat (match-string 2 s) ":"))
+ (format "%02d" (string-to-number (match-string 3 s))))))
+
+(defun emacsconf-extract-youtube-find-url-video-in-list (url &optional videos)
+ (seq-find
+ (lambda (o)
+ (let-alist o
+ (or (string-match .id url)
+ (and .contentDetails.videoId (string-match .contentDetails.videoId url)))))
+ (or videos emacsconf-extract-youtube-api-videos)))
+
+(ert-deftest emacsconf-extract-youtube-format-duration ()
+ (expect (emacsconf-extract-youtube-format-duration "PT1H9M22S") :to-equal "1:09:22")
+ (expect (emacsconf-extract-youtube-format-duration "PT9M22S") :to-equal "9:22"))
+
+
+;; (setq emacsconf-extract-youtube-api-video-details (emacsconf-extract-youtube-get-video-details emacsconf-extract-youtube-api-playlist-items))
+
+;;; 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 " 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
+ (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)))
+
+(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)
+ (let ((desc (spookfox-js-injection-eval-in-active-tab
+ "document.querySelector('.video-info-description-html').innerHTML" t)))
+ (when (string-match (rx (literal emacsconf-base-url) (literal emacsconf-year) "/talks/"
+ (group (1+ (not (or " " "/" "\"")))))
+ desc)
+ (let ((slug (match-string 1 desc))
+ (url (spookfox-js-injection-eval-in-active-tab "window.location.href" t)))
+ (save-window-excursion
+ (emacsconf-with-talk-heading slug
+ (org-entry-put (point)
+ (if (string-match "Q&A" desc)
+ "QA_TOOBNIX_URL"
+ "TOOBNIX_URL")
+ url)
+ (message "Updating %s %s %s"
+ slug
+ (if (string-match "Q&A" desc)
+ "QA_TOOBNIX_URL"
+ "TOOBNIX_URL")
+ url))))
+ (shell-command "xdotool key Alt+Tab sleep 1 key Ctrl+w Alt+Tab"))))
+
(provide 'emacsconf-extract)
;;; emacsconf-extract.el ends here