From 7f200d22601bb288c4cb2c0b1c8b4e46c7c18703 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sun, 11 Dec 2022 10:04:36 -0500 Subject: copy files --- emacsconf-extract.el | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/emacsconf-extract.el b/emacsconf-extract.el index e158764..2943826 100644 --- a/emacsconf-extract.el +++ b/emacsconf-extract.el @@ -81,7 +81,7 @@ ""))))))) (emacsconf-prepare-for-display (emacsconf-get-talk-info)))) -(defun emacsconf-extract-bbb-copy-files () +(defun emacsconf-extract-bbb-copy-files (&optional info) (interactive) (mapc (lambda (o) @@ -94,7 +94,7 @@ (expand-file-name (concat (plist-get o :video-slug) "--bbb-" file) emacsconf-cache-dir) t))) '("webcams.webm" "metadata.xml" "deskshare.webm" "deskshare.xml" "slides_new.xml" "webcams.opus")))) - (emacsconf-prepare-for-display (emacsconf-get-talk-info)))) + (or info (emacsconf-prepare-for-display (emacsconf-get-talk-info))))) (defvar emacsconf-extract-dump-dir "/ssh:orga@res.emacsconf.org#46668:~/current/live0-streams/") (defun emacsconf-extract-dump-time-from-filename (f) @@ -305,5 +305,23 @@ (emacsconf-extract-question-headings (emacsconf-get-slug-from-string (file-name-base (buffer-file-name))))))) (insert "NOTE " question "\n\n")) + +(defun emacsconf-extract-wget-bbb (o) + (when (plist-get o :bbb-playback) + (let ((meeting-id (when (string-match "meetingId=\\(.+\\)" + (plist-get o :bbb-playback)) + (match-string 1 (plist-get o :bbb-playback))))) + (concat "mkdir " (plist-get o :slug) "\n" + "cd " (plist-get o :slug) "\n" + (mapconcat + (lambda (file) + (concat + "wget https://bbb.emacsverse.org/presentation/" + meeting-id "/" file "\n")) + '("video/webcams.webm" "metadata.xml" "deskshare/deskshare.webm" "panzooms.xml" "cursor.xml" "deskshare.xml" "captions.json" "presentation_text.json" "slides_new.xml") + "") + "cd ..\n" + )))) + (provide 'emacsconf-extract) ;;; emacsconf-extract.el ends here -- cgit v1.2.3