From 3953c80bfd1dc5fe523edff26c824eefd22a7fdb Mon Sep 17 00:00:00 2001
From: Sacha Chua
Date: Tue, 12 Sep 2023 11:40:12 -0400
Subject: Add documentation, improve mail parsing
---
emacsconf-publish.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
(limited to 'emacsconf-publish.el')
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.
(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
(_
"
There is no live Q&A room for ${title}. You can find more information about the talk at ${base-url}${url}."
- )
- ))))))
+ )))))))
(defun emacsconf-publish-media-files-on-change (talk)
"Publish the files and update the index."
--
cgit v1.2.3