diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-02 14:01:05 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-02 14:01:05 -0400 |
| commit | 8ca6f842ad2f9b2df4b798779077404ef9d4d422 (patch) | |
| tree | 530a714a727d2e98155d8fb26d9b2fe06d2b4875 /emacsconf-stream.el | |
| parent | b20bd31dd44ad5df79a50c82aebc77d8b8132d19 (diff) | |
| download | emacsconf-el-8ca6f842ad2f9b2df4b798779077404ef9d4d422.tar.xz emacsconf-el-8ca6f842ad2f9b2df4b798779077404ef9d4d422.zip | |
Go back to using text files for the news
Diffstat (limited to 'emacsconf-stream.el')
| -rw-r--r-- | emacsconf-stream.el | 21 |
1 files changed, 5 insertions, 16 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 19fe049..07743cd 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -42,17 +42,9 @@ Files should be in YEAR/video-slug--main.webm and video-slug--main.vtt.") (defun emacsconf-stream-set-news (track message) (interactive (list (emacsconf-complete-track) (read-string "Message: "))) (let* ((home (concat (emacsconf-stream-track-login track) "~")) - (default-directory home) - (filename (expand-file-name "other.svg" home)) - (dom (xml-parse-file filename))) - (emacsconf-stream-svg-set-text dom "news" message) - (with-temp-file filename (dom-print dom t)) - (with-temp-file (expand-file-name "video.svg" home) - (emacsconf-stream-svg-set-text dom "bottom" "") - (dom-print dom t)) - ;; (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") - )) + (filename (expand-file-name "news.txt" home))) + (with-temp-file filename + (insert message)))) (defun emacsconf-stream-broadcast (message) (interactive (list (read-string "Message: "))) @@ -75,17 +67,14 @@ Files should be in YEAR/video-slug--main.webm and video-slug--main.vtt.") (defun emacsconf-stream-svg-set-text (dom id text) "Update DOM to set the tspan in the element with ID to TEXT. If the element doesn't have a tspan child, use the element itself." - (setq text (svg--encode-text text)) + (setq text (if (string= text "") " " + (svg--encode-text text))) (let ((node (or (dom-child-by-tag (car (dom-by-id dom id)) 'tspan) (dom-by-id dom id)))) (cond ((null node)) ; skip - ((and (string= text "") - (= (length node) 2))) ; already nothing, skip - ((string= text "") - (setf (elt node 2) "")) ((= (length node) 2) (nconc node (list text))) (t (setf (elt node 2) text))))) |