summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2021-12-18 00:41:11 -0500
committerSacha Chua <sacha@sachachua.com>2021-12-18 00:41:11 -0500
commit2e8faba3a5e5ce0fe8a542733d97c473dcb205cf (patch)
treebd0ab50925d7dc167d6a22750cf4a3203619f0dc
parent2802ea722b9599ce0d090fd275f7f552afb6a2ac (diff)
downloademacsconf-el-2e8faba3a5e5ce0fe8a542733d97c473dcb205cf.tar.xz
emacsconf-el-2e8faba3a5e5ce0fe8a542733d97c473dcb205cf.zip
Add Youtube and Toobnix to CSV
-rw-r--r--emacsconf-publish.el15
-rw-r--r--emacsconf.el2
2 files changed, 13 insertions, 4 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index 994af0c..17d8122 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -690,7 +690,11 @@ Columns are: slug,title,speakers,talk page url,video url,duration,sha."
(plist-get o :video-slug))
date
(format-seconds "%02h:%z%02m:%02s" (/ (compile-media-get-file-duration-ms main-video) 1000))
- (string-trim (shell-command-to-string (concat "sha1sum -b " (shell-quote-argument main-video) " | cut -d ' ' -f 1"))))
+ (if (file-exists-p main-video)
+ (string-trim (shell-command-to-string (concat "sha1sum -b " (shell-quote-argument main-video) " | cut -d ' ' -f 1")))
+ "")
+ (or (plist-get o :youtube-url) "")
+ (or (plist-get o :toobnix-url) ""))
(if (plist-get o :qa-public)
(list
(concat emacsconf-name " " emacsconf-year)
@@ -704,11 +708,14 @@ Columns are: slug,title,speakers,talk page url,video url,duration,sha."
(plist-get o :video-slug))
date
(format-seconds "%02h:%z%02m:%02s" (/ (compile-media-get-file-duration-ms qa-video) 1000))
- (string-trim (shell-command-to-string (concat "sha1sum -b " (shell-quote-argument qa-video) " | cut -d ' ' -f 1")))
- ))))))
+ (if (file-exists-p qa-video)
+ (string-trim (shell-command-to-string (concat "sha1sum -b " (shell-quote-argument qa-video) " | cut -d ' ' -f 1")))
+ "")
+ (or (plist-get o :qa-youtube) "")
+ (or (plist-get o :qa-toobnix) "")))))))
(emacsconf-public-talks (emacsconf-get-talk-info))))))
(insert (orgtbl-to-csv
- (cons '("Conference" "Slug" "Title" "Speakers" "Talk page URL" "Video URL" "Date" "Duration" "SHA")
+ (cons '("Conference" "Slug" "Title" "Speakers" "Talk page URL" "Video URL" "Date" "Duration" "SHA" "Youtube URL" "Toobnix URL")
results)
nil)))))
diff --git a/emacsconf.el b/emacsconf.el
index 5c5ad60..23593a0 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -144,6 +144,8 @@
(:captioner "CAPTIONER")
(:youtube-url "YOUTUBE_URL")
(:toobnix-url "TOOBNIX_URL")
+ (:qa-youtube "QA_YOUTUBE")
+ (:qa-toobnix "QA_TOOBNIX")
(:pronunciation "PRONUNCIATION")
(:pronouns "PRONOUNS")
(:buffer "BUFFER")