summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-02 21:14:18 -0400
committerSacha Chua <sacha@sachachua.com>2022-11-02 21:14:29 -0400
commitd6d30b79d32b4d52e06bf3a50cc91c49a4194acc (patch)
treead23e61327e39c2c5e1c7accc96754ba04c6586d
parent85e16636987d170344c4510540f35fbc34b5b52d (diff)
downloademacsconf-el-d6d30b79d32b4d52e06bf3a50cc91c49a4194acc.tar.xz
emacsconf-el-d6d30b79d32b4d52e06bf3a50cc91c49a4194acc.zip
Add Inkscape invocation
Diffstat (limited to '')
-rw-r--r--emacsconf-stream.el99
1 files changed, 77 insertions, 22 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el
index 827eabf..9c65dab 100644
--- a/emacsconf-stream.el
+++ b/emacsconf-stream.el
@@ -78,6 +78,31 @@ If the element doesn't have a tspan child, use the element itself."
(nconc node (list text)))
(t (setf (elt node 2) text)))))
+(defun emacsconf-stream-add-talk-props (talk)
+ "Create an overlay for TALK.
+VIDEO-FILENAME will be displayed while the video is playing,
+while OTHER-FILENAME will be displayed at other times."
+ (plist-put
+ talk
+ :overlay-url
+ (concat (replace-regexp-in-string "^.*//" "" emacsconf-base-url)
+ (plist-get talk :url)
+ (cond
+ ((null (plist-get talk :q-and-a)) "")
+ ((string-match "live" (plist-get talk :q-and-a))
+ " - Q&A: live (see talk page for URL)")
+ ((and (string-match "irc" (plist-get talk :q-and-a))
+ (plist-get talk :irc))
+ (format " - Q&A: IRC (#%s) - speaker nick: %s"
+ (plist-get (emacsconf-get-track (plist-get talk :track)) :channel)
+ (plist-get talk :irc)))
+ ((string-match "irc" (plist-get talk :q-and-a))
+ (format " - Q&A: IRC (#%s)"
+ (plist-get (emacsconf-get-track (plist-get talk :track)) :channel)))
+ (t ""))))
+ (plist-put talk :overlay-bottom (or (plist-get talk :speakers-with-pronouns) "EmacsConf"))
+ talk)
+
(defun emacsconf-stream-set-talk-info-from-strings (track url bottom)
(interactive (list (emacsconf-complete-track) (read-string "URL: ") (read-string "Bottom: ")))
(let* ((home (concat (emacsconf-stream-track-login track) "~"))
@@ -98,31 +123,27 @@ If the element doesn't have a tspan child, use the element itself."
(dom-print dom))
;; OBS doesn't kern SVG text as prettily as Inkscape does, so we use Inkscape for the conversion
(shell-command "inkscape --export-type=png --export-dpi=96 --export-background-opacity=0 video.svg")
- (shell-command "inkscape --export-type=png --export-dpi=96 --export-background-opacity=0 other.svg")
- ))
+ (shell-command "inkscape --export-type=png --export-dpi=96 --export-background-opacity=0 other.svg")))
(defun emacsconf-stream-set-talk-info (talk)
(interactive (list (emacsconf-complete-talk-info)))
- (emacsconf-stream-set-talk-info-from-strings
- (emacsconf-get-track talk)
- (concat (replace-regexp-in-string "^.*//" "" emacsconf-base-url)
- (plist-get talk :url)
- (cond
- ((string-match "live" (plist-get talk :q-and-a))
- " - Q&A: live (see talk page for URL)")
- ((string-match "irc" (plist-get talk :q-and-a))
- (format " - Q&A: IRC (#%s) - speaker nick: %s"
- (plist-get track :channel)
- (plist-get talk :irc)))
- (t "")))
- (cond
- ((or (null (plist-get talk :pronouns)) (string= (plist-get talk :pronouns) "nil"))
- (plist-get talk :speakers))
- ((string-match ", " (plist-get talk :pronouns))
- (plist-get talk :pronouns))
- (t (format "%s (%s)"
- (plist-get talk :speakers)
- (plist-get talk :pronouns))))))
+ (setq talk (emacsconf-stream-add-talk-props talk))
+ (let ((home (concat (emacsconf-stream-track-login (emacsconf-get-track talk)) "~")))
+ (if (file-exists-p
+ (expand-file-name (concat (plist-get talk :slug) "-video.png") emacsconf-stream-overlay-dir))
+ (progn
+ (copy-file
+ (expand-file-name (concat (plist-get talk :slug) "-video.png") emacsconf-stream-overlay-dir)
+ (expand-file-name "video.png" home)
+ t)
+ (copy-file
+ (expand-file-name (concat (plist-get talk :slug) "-other.png") emacsconf-stream-overlay-dir)
+ (expand-file-name "other.png" home)
+ t))
+ (emacsconf-stream-set-talk-info-from-strings
+ (emacsconf-get-track talk)
+ (plist-get talk :overlay-url)
+ (plist-get talk :overlay-bottom)))))
(defun emacsconf-stream-update-talk-info-org-after-todo-state-change ()
"Update talk info."
@@ -149,5 +170,39 @@ Final files should be stored in /data/emacsconf/stream/YEAR/video-slug--main.web
(concat "~/bin/track-mpv "
(shell-quote-argument (emacsconf-stream-get-filename talk))))))
+(defun emacsconf-stream-write-talk-overlay-svgs (talk video-filename other-filename)
+ (setq talk (emacsconf-stream-add-talk-props talk))
+ (let ((dom (xml-parse-file (expand-file-name "roles/obs/overlay.svg" emacsconf-ansible-directory)))
+ (default-directory (file-name-directory video-filename)))
+ (emacsconf-stream-svg-set-text dom "bottom" (plist-get talk :overlay-bottom))
+ (emacsconf-stream-svg-set-text dom "url" (plist-get talk :overlay-url))
+ (with-temp-file other-filename (dom-print dom))
+ (with-temp-file video-filename
+ (let ((node (dom-by-id dom "bottom")))
+ (when node
+ (dom-set-attribute node 'style "visibility: hidden")
+ (dom-set-attribute (dom-child-by-tag node 'tspan) 'style "fill: none; stroke: none")))
+ (dom-print dom))
+ (shell-command
+ (concat "inkscape --export-type=png --export-dpi=96 --export-background-opacity=0 "
+ (shell-quote-argument (file-name-nondirectory video-filename))))
+ (shell-command
+ (concat "inkscape --export-type=png --export-dpi=96 --export-background-opacity=0 "
+ (shell-quote-argument (file-name-nondirectory other-filename))))))
+
+(defvar emacsconf-stream-overlay-dir "/data/emacsconf/overlays/")
+
+(defun emacsconf-stream-generate-overlays (&optional info)
+ (interactive)
+ (setq info (emacsconf-filter-talks (or info (emacsconf-get-talk-info))))
+ (unless (file-directory-p emacsconf-stream-overlay-dir)
+ (make-directory emacsconf-stream-overlay-dir))
+ (mapc (lambda (talk)
+ (emacsconf-stream-write-talk-overlay-svgs
+ talk
+ (expand-file-name (concat (plist-get talk :slug) "-video.svg") emacsconf-stream-overlay-dir)
+ (expand-file-name (concat (plist-get talk :slug) "-other.svg") emacsconf-stream-overlay-dir)))
+ info))
+
(provide 'emacsconf-stream)
;;; emacsconf-stream.el ends here