diff options
| author | Sacha Chua <sacha@sachachua.com> | 2026-11-12 09:06:14 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2026-11-12 09:06:14 -0500 |
| commit | 7bd129c24de33ec0b943e0bbe5273051e9260813 (patch) | |
| tree | 6dc46321061ab489fb8adf0d1e7aaea9abe37fbf | |
| parent | 44a78ca5064a5c4bb1cc1713bd9b12f8e0db98de (diff) | |
| download | emacsconf-el-7bd129c24de33ec0b943e0bbe5273051e9260813.tar.xz emacsconf-el-7bd129c24de33ec0b943e0bbe5273051e9260813.zip | |
| -rw-r--r-- | emacsconf-stream.el | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 3e60369..81a91cf 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -479,6 +479,45 @@ With a prefix argument (\\[universal-argument]), clear the overlay." (set-frame-size nil 1280 720 t) (mapc #'emacsconf-stream-generate-title-page info))) +(defun emacsconf-stream-generate-in-between-page-svg (talk &optional prev info force) + "Generate the intro slide for TALK based on assets/in-between/template.svg." + (interactive (list (emacsconf-complete-talk-info))) + (let* ((prev (or prev (emacsconf-previous-talk talk info))) + (dir (expand-file-name "in-between" emacsconf-stream-asset-dir)) + (template (expand-file-name "template.svg" dir)) + (dom (xml-parse-file template))) + (mapc (lambda (entry) + (let ((prefix (car entry))) + (emacsconf-stream-svg-set-text dom (concat prefix "title") + (plist-get (cdr entry) :title)) + (emacsconf-stream-svg-set-text dom (concat prefix "speakers") + (plist-get (cdr entry) :speakers-with-pronouns)) + (emacsconf-stream-svg-set-text dom (concat prefix "url") + (and (cdr entry) (concat emacsconf-base-url (plist-get (cdr entry) :url)))) + (emacsconf-stream-svg-set-text + dom + (concat prefix "qa") + (pcase (plist-get (cdr entry) :q-and-a) + ("live" "Live Q&A after talk") + ("IRC" "IRC Q&A after talk") + (_ ""))))) + (list (cons "previous-" prev) + (cons "current-" talk))) + (with-temp-file (expand-file-name (concat (plist-get talk :slug) ".svg") dir) + (dom-print dom)) + (when (or force (null (file-exists-p (expand-file-name (concat (plist-get talk :slug) ".png") + dir)))) + (shell-command + (concat "inkscape --export-type=png -w 1280 -h 720 --export-background-opacity=0 " + (shell-quote-argument (expand-file-name (concat (plist-get talk :slug) ".svg") + dir)))) + (shell-command + (concat "mogrify -alpha off " + (shell-quote-argument (expand-file-name (concat (plist-get talk :slug) ".png") + dir)))) + (expand-file-name (concat (plist-get talk :slug) ".png") + dir)))) + (defun emacsconf-stream-generate-in-between-page (talk &optional prev info force) (interactive (list (emacsconf-complete-talk-info))) (let* ((prev (or prev (emacsconf-previous-talk talk info))) |