diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-12-11 10:04:36 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-12-11 10:04:36 -0500 |
| commit | 7f200d22601bb288c4cb2c0b1c8b4e46c7c18703 (patch) | |
| tree | e7407191f76f6591c183974af5e387c7fac52e80 | |
| parent | 4d5a703c3e889d213408a902d726a080579b2a22 (diff) | |
| download | emacsconf-el-7f200d22601bb288c4cb2c0b1c8b4e46c7c18703.tar.xz emacsconf-el-7f200d22601bb288c4cb2c0b1c8b4e46c7c18703.zip | |
copy files
| -rw-r--r-- | emacsconf-extract.el | 22 |
1 files 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 |