diff options
Diffstat (limited to '')
| -rw-r--r-- | emacsconf-stream.el | 99 |
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 |