summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-24 10:51:20 -0500
committerSacha Chua <sacha@sachachua.com>2022-11-24 10:51:20 -0500
commitdab06e456792358cee3544c6d718e5011e01b3ec (patch)
tree75e57fb42d37f485de8e66f53464a4d38bfca0d4
parentfd507da44a491bfdc8d87139c4c366a3f1f1b83b (diff)
downloademacsconf-el-dab06e456792358cee3544c6d718e5011e01b3ec.tar.xz
emacsconf-el-dab06e456792358cee3544c6d718e5011e01b3ec.zip
add legend
-rw-r--r--emacsconf-publish.el17
1 files changed, 12 insertions, 5 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index 9d82335..b2c82b3 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -492,8 +492,11 @@ resources."
""))
:pad-info
(if emacsconf-publish-include-pads
- (format "Pad: <https://pad.emacsconf.org/%s-%s> \n" emacsconf-year (plist-get o :slug))
+ (format "Etherpad: <https://pad.emacsconf.org/%s-%s> \n" emacsconf-year (plist-get o :slug))
"")
+ :irc-info
+ (format "Discuss on IRC: [#%s](%s) \n" (plist-get o :channel)
+ (plist-get o :webchat-url))
:status-info
(if (member emacsconf-publishing-phase '(program schedule)) (format "Status: %s \n" (plist-get o :status-label)) "")
:schedule-info
@@ -517,7 +520,7 @@ resources."
(concat
"[[!toc ]]
Format: ${format}
-${pad-info}${status-info}${schedule-info}\n"
+${pad-info}${irc-info}${status-info}${schedule-info}\n"
(if (plist-get o :alternate-apac)
(format "[[!inline pages=\"internal(%s/inline-alternate)\" raw=\"yes\"]] \n" emacsconf-year)
"")
@@ -560,7 +563,8 @@ ${pad-info}${status-info}${schedule-info}\n"
(let ((is-live (emacsconf-talk-live-p talk)))
(when is-live (emacsconf-publish-captions-in-wiki talk))
(when (eq emacsconf-publishing-phase 'schedule)
- (insert "\n"
+ (insert "\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. Lashed lines show talks with Q&A via IRC or Etherpad."
(format "<div class=\"schedule-in-context schedule-svg-container\" data-slug=\"%s\">\n" (plist-get talk :slug))
(let* ((width 800) (height 150)
(talk-date (format-time-string "%Y-%m-%d" (plist-get talk :start-time) emacsconf-timezone))
@@ -1820,12 +1824,15 @@ ${title-info}
"<div>${brief}</div>
<div class=\"pad-output\"></div>
<hr size=\"1\"><div>" (emacsconf-publish-page-nav nav "chat") " | ${stream-nav}</div>"
-"<div>Chat: <a href=\"${webchat}\">${channel}</a> on libera.chat</div>
+ "<div>Chat: <a href=\"${webchat}\">${channel}</a> on libera.chat</div>
<div class=\"chat-iframe\" data-track=\"${id}\"></div>
<iframe src=\"${webchat}\" height=\"600\" width=\"100%\"></iframe>
<hr size=\"1\"><div>" (emacsconf-publish-page-nav nav "sched") " | ${stream-nav}</div>"
-"
+ "
+<ul>Legend:
+<li>Solid lines: Q&A will be through a BigBlueButton room (you can ask questions there or through IRC/Etherpad)</li>
+<li>Dashed lines: Q&A will be over IRC or the Etherpad, or the speaker will follow up afterwards</li></ul>
<div>${sched}</div>
<div>${talks}</div>
"))))