diff options
author | EmacsConf <emacsconf-org@gnu.org> | 2022-11-06 05:10:26 -0800 |
---|---|---|
committer | EmacsConf <emacsconf-org@gnu.org> | 2022-11-06 05:10:26 -0800 |
commit | 62f6c67e65dc499b3fa26ce6fe01cde42d6e3670 (patch) | |
tree | 31906a6697cf1a516856a1c5700907a32c3df09c /emacsconf-stream.el | |
parent | 5ee4fe0d9ff316a45afd4ce4e8e51c4e73c0d548 (diff) | |
parent | f4c4fe009240ae2544d8f6b5830cdc2ebbe7d037 (diff) | |
download | emacsconf-el-62f6c67e65dc499b3fa26ce6fe01cde42d6e3670.tar.xz emacsconf-el-62f6c67e65dc499b3fa26ce6fe01cde42d6e3670.zip |
Merge branch 'main' of git.emacsconf.org:pub/emacsconf-el
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 bcf64f4..9e93f20 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -240,7 +240,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) @@ -300,7 +300,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) @@ -374,6 +378,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)" |