diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-10-12 21:55:22 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-10-12 21:55:22 -0400 |
| commit | a3af17dde94f412ee5fc620387fd76314ef9dc61 (patch) | |
| tree | f89ed9967cd3d626aa1bbd0e16ab2272aa5ae014 | |
| parent | 95b08a83517625308ebc80ea204b99914bfeb305 (diff) | |
| download | emacsconf-el-a3af17dde94f412ee5fc620387fd76314ef9dc61.tar.xz emacsconf-el-a3af17dde94f412ee5fc620387fd76314ef9dc61.zip | |
update backstage
| -rw-r--r-- | emacsconf-publish.el | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 485dd84..d6f5151 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -1207,10 +1207,7 @@ Entries are sorted chronologically, with different tracks interleaved." (defun emacsconf-publish-backstage-index (&optional filename) (interactive) (setq filename (or filename (expand-file-name "index.html" emacsconf-backstage-dir))) - (let ((info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))) - (let ((emacsconf-schedule-svg-modify-functions '(emacsconf-schedule-svg-color-by-status))) - (with-temp-file (expand-file-name "schedule.svg" emacsconf-backstage-dir) - (svg-print (emacsconf-schedule-svg 800 200 info)))) + (let ((info (or emacsconf-schedule-draft (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info))))) (with-temp-file filename (let* ((talks (mapcar @@ -1226,7 +1223,17 @@ Entries are sorted chronologically, with different tracks interleaved." (with-temp-buffer (insert-file-contents (expand-file-name "include-in-index.html" emacsconf-cache-dir)) (buffer-string)) "") "<p>Schedule by status: (gray: waiting, light yellow: processing, yellow: to assign, light green: captioning, green: captioned and ready)<br />Updated by conf.org and the wiki repository</br />" - "<img src=\"schedule.svg\" /></p>" + (let* ((emacsconf-schedule-svg-modify-functions '(emacsconf-schedule-svg-color-by-status)) + (img (emacsconf-schedule-svg 800 200 info))) + (with-temp-buffer + (mapc (lambda (node) + (dom-set-attribute + node 'href + (concat "#" (dom-attr node 'data-slug)))) + (dom-by-tag img 'a)) + (svg-print img) + (buffer-string))) + "</p>" (if (eq emacsconf-backstage-phase 'prerec) (format "<p>Waiting for %d talks (~%d minutes) out of %d total</p>" (length (assoc-default "WAITING_FOR_PREREC" by-status)) |