summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-05 21:51:15 -0400
committerSacha Chua <sacha@sachachua.com>2022-11-05 21:51:15 -0400
commita25df04d0f302a4849b657b584ffee42b9fb6069 (patch)
tree88cb6d01ccbd053391154adaa0361639861c6cb2
parent7d6c2e6094da87f8d31b26acb8ef5df4bc7814d5 (diff)
downloademacsconf-el-a25df04d0f302a4849b657b584ffee42b9fb6069.tar.xz
emacsconf-el-a25df04d0f302a4849b657b584ffee42b9fb6069.zip
Generate assets
Diffstat (limited to '')
-rw-r--r--emacsconf-stream.el15
1 files changed, 13 insertions, 2 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el
index 2017683..e106d12 100644
--- a/emacsconf-stream.el
+++ b/emacsconf-stream.el
@@ -242,7 +242,7 @@ This uses the BBB room if available, or the IRC channel if not."
(shell-quote-argument (file-name-nondirectory other-filename))))))
(defvar emacsconf-stream-asset-dir "/data/emacsconf/assets/")
-(defvar emacsconf-stream-overlay-dir "/data/emacsconf/overlays/")
+(defvar emacsconf-stream-overlay-dir "/data/emacsconf/assets/overlays/")
(defun emacsconf-stream-generate-overlays (&optional info)
(interactive)
@@ -302,7 +302,11 @@ This uses the BBB room if available, or the IRC channel if not."
(message nil)
(with-temp-file (expand-file-name (concat (plist-get talk :slug) "-title.svg")
(expand-file-name "titles" emacsconf-stream-asset-dir))
- (insert (x-export-frames nil 'svg))))
+ (insert (x-export-frames nil 'svg)))
+ (shell-command
+ (concat "inkscape --export-type=png --export-dpi=96 --export-background-opacity=0 "
+ (shell-quote-argument (expand-file-name (concat (plist-get talk :slug) "-title.svg")
+ (expand-file-name "titles" emacsconf-stream-asset-dir))))))
(defun emacsconf-stream-generate-title-pages (&optional info)
(interactive)
@@ -368,6 +372,13 @@ This uses the BBB room if available, or the IRC channel if not."
talk)))
info)))
+(defun emacsconf-stream-generate-assets-for-talk (talk)
+ (interactive (list (emacsconf-complete-talk-info)))
+ (let ((info (list talk)))
+ (emacsconf-stream-generate-test-videos info)
+ (emacsconf-stream-generate-test-subtitles info)
+ (emacsconf-stream-generate-title-pages info)
+ (emacsconf-stream-generate-overlays info)))
;; (emacsconf-stream-display-talk-info
;; '(:title "The ship that builds itself: How we used Emacs to develop a workshop for communities"
;; :speakers-with-pronouns "Noorah Alhasan (she/her), Joseph Corneli (he/him), Leo Vivier (he/him)"