summaryrefslogtreecommitdiffstats
path: root/emacsconf-publish.el
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2023-09-12 11:40:12 -0400
committerSacha Chua <sacha@sachachua.com>2023-09-12 11:40:12 -0400
commit3953c80bfd1dc5fe523edff26c824eefd22a7fdb (patch)
treec970a429fe83f7b09bcbd24ba2c351b1860f008c /emacsconf-publish.el
parenta480fbdb04d86a487dee97386340a4e5320e0072 (diff)
downloademacsconf-el-3953c80bfd1dc5fe523edff26c824eefd22a7fdb.tar.xz
emacsconf-el-3953c80bfd1dc5fe523edff26c824eefd22a7fdb.zip
Add documentation, improve mail parsing
Diffstat (limited to 'emacsconf-publish.el')
-rw-r--r--emacsconf-publish.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index 8de87bb..de8b2a6 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -572,6 +572,7 @@ ${pad-info}${irc-info}${status-info}${schedule-info}\n"
(seq-filter (lambda (o) (string-match "vtt$" o)) emacsconf-main-extensions))))
(defun emacsconf-publish-format-talk-page-schedule (talk info)
+ "Add the schedule image for TALK based on INFO."
(concat
"\nThe following image shows where the talk is in the schedule for "
(format-time-string "%a %Y-%m-%d" (plist-get talk :start-time) emacsconf-timezone) ". Solid lines show talks with Q&A via BigBlueButton. Dashed lines show talks with Q&A via IRC or Etherpad."
@@ -2145,6 +2146,7 @@ when the host has opened the Q&A.</p>
(emacsconf-prepare-for-display (emacsconf-get-talk-info)))))
'("before" "open" "after")))
(defun emacsconf-publish-bbb-redirect (talk &optional status)
+ "Update the publicly-available redirect for TALK."
(interactive (list (emacsconf-complete-talk-info)))
(let ((bbb-filename (expand-file-name (format "bbb-%s.html" (plist-get talk :slug))
emacsconf-publish-current-dir))
@@ -2167,8 +2169,7 @@ The Q&A room for ${title} has finished. You can find more information about the
(_
"<html><head><body>
There is no live Q&A room for ${title}. You can find more information about the talk at <a href=\"${base-url}${url}\">${base-url}${url}</a>.</body></html>"
- )
- ))))))
+ )))))))
(defun emacsconf-publish-media-files-on-change (talk)
"Publish the files and update the index."