summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--emacsconf-publish.el24
1 files changed, 24 insertions, 0 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index 17e0c1a..509c5fd 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -2049,4 +2049,28 @@ There is no live Q&A room for ${title}. You can find more information about the
;; (emacsconf-publish-bbb-redirect '(:slug "test" :status "UNSTREAMED_Q" :bbb-room "https://bbb.emacsverse.org/b/sac-fwh-pnz-ogz" :title "Test room" :q-and-a "live" :url "2022/talks/test"))
;; (emacsconf-publish-bbb-redirect '(:slug "test" :status "TO_ARCHIVE" :bbb-room "https://bbb.emacsverse.org/b/sac-fwh-pnz-ogz" :title "Test room" :q-and-a "live" :url "2022/talks/test"))
+;;; Toobnix
+
+(defun emacsconf-publish-copy-video-description (talk)
+ (interactive (list (emacsconf-complete-talk-info)))
+ (kill-new
+ (emacsconf-replace-plist-in-string
+ (append (list :conf-name emacsconf-name :year emacsconf-year
+ :chapters (let ((chapters (subed-parse-file (expand-file-name (concat (plist-get talk :video-slug) "--main--chapters.vtt") emacsconf-cache-dir))))
+ (if chapters
+ (concat
+ (mapconcat (lambda (chapter)
+ (concat (format-seconds "%.2h:%z%.2m:%.2s" (floor (/ (elt chapter 1) 1000)))
+ " " (elt chapter 3) "\n"))
+ chapters
+ "")
+ "\n")
+ "")))
+ talk)
+ "${conf-name} ${year}: ${title} (${speakers-with-pronouns})
+${absolute-url}
+
+${chapters}You can view this and other resources using free/libre software at ${absolute-url} .
+This video is available under the terms of the Creative Commons Attribution-ShareAlike 4.0 International (CC BY-SA 4.0) license."))
+ (emacsconf-with-talk-heading talk))
(provide 'emacsconf-publish)