diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-05 21:51:15 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-05 21:51:15 -0400 |
| commit | a25df04d0f302a4849b657b584ffee42b9fb6069 (patch) | |
| tree | 88cb6d01ccbd053391154adaa0361639861c6cb2 /emacsconf-stream.el | |
| parent | 7d6c2e6094da87f8d31b26acb8ef5df4bc7814d5 (diff) | |
| download | emacsconf-el-a25df04d0f302a4849b657b584ffee42b9fb6069.tar.xz emacsconf-el-a25df04d0f302a4849b657b584ffee42b9fb6069.zip | |
Generate assets
Diffstat (limited to 'emacsconf-stream.el')
| -rw-r--r-- | emacsconf-stream.el | 15 |
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)" |