From 3098fc79f14cd7f57d5fb5aae50bccb1250fa6c0 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Tue, 5 Dec 2023 16:12:36 -0500
Subject: tweak resources displayed

---
 emacsconf-publish.el | 55 +++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 42 insertions(+), 13 deletions(-)

diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index bbd0920..d4d4dd6 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -835,10 +835,14 @@ Back to the [[talks]]  \n"
                           (if prev-talk (format "Previous by %s: %s  \n" label prev-talk) "")
                           (if next-talk (format "Next by %s: %s  \n" label next-talk) "")
                           (if (plist-get o :track) ; tagging doesn't work here because ikiwiki will list the nav page
-                              (format "Track: <span class=\"sched-track %s\">%s</span> - <strong><a href=\"%s\">Watch</a></strong>  \n"
-																			(plist-get o :track)
-																			(plist-get o :track)
-																			(plist-get o :watch-url))
+															(if (member emacsconf-publishing-phase '(schedule conference))
+																	(format "Track: <span class=\"sched-track %s\">%s</span> - <strong><a href=\"%s\">Watch</a></strong>  \n"
+																					(plist-get o :track)
+																					(plist-get o :track)
+																					(plist-get o :watch-url))
+																(format "Track: <span class=\"sched-track %s\">%s</span>  \n"
+																				(plist-get o :track)
+																				(plist-get o :track)))
                             "")
                           "</div>
 ")))))))
@@ -1169,11 +1173,18 @@ You can also get this schedule as iCalendar files: ${icals}. Importing that into
 													 (list
 														:pad nil
 														:channel nil
-														:resources (mapconcat (lambda (s) (concat "<li>" s "</li>"))
-																									(emacsconf-publish-link-file-formats-as-list
-																									 (append o
-																													 (list :base-url (format "%s%s/" emacsconf-media-base-url emacsconf-year))))
-																									""))))
+														:resources
+														(concat
+														 (emacsconf-surround "<li><a href=\""
+																								 (plist-get o :bbb-rec)
+																								 "\">Play recording from BigBlueButton</a></li>" "")
+														 (mapconcat
+															(lambda (s) (concat "<li>" s "</li>"))
+															(emacsconf-publish-link-file-formats-as-list
+															 (append o
+																			 (list :base-url (format "%s%s/" emacsconf-media-base-url emacsconf-year))))
+															""))
+)))
 												(list
                          :title (plist-get o :title)
                          :url (concat "/" (plist-get o :url))
@@ -1484,7 +1495,6 @@ answers without needing to listen to everything again. You can see <a href=\"htt
 												(1+ (syntax word))
 												string-end))
 							 nil)
-							((rx (seq "--intro." (or "vtt" "webm") string-end)) nil)
 							(_ t))))
 				(or files (emacsconf-publish-talk-files talk)))))
 
@@ -1497,9 +1507,22 @@ answers without needing to listen to everything again. You can see <a href=\"htt
           (emacsconf-publish-index-card
            (append (list :files
                          (seq-remove (lambda (f) (string-match "--answers" f))
-																		  (emacsconf-publish-filter-public-files o))
+																		 (emacsconf-publish-filter-public-files o))
 												 :audio-file
-												 (emacsconf-talk-file o "--main.opus"))
+												 (emacsconf-talk-file o "--main.opus")
+												 :links
+												 (concat
+													(emacsconf-surround "<li><a href=\""
+																							(if (plist-get o :backstage)
+																									(emacsconf-backstage-url (plist-get o :pad-url))
+																								(plist-get o :pad-url)) "\">Open Etherpad</a></li>" "")
+													(emacsconf-surround "<li><a href=\""
+																							(and (member emacsconf-publishing-phase '(schedule conference))
+																									 (plist-get o :qa-url))
+																							"\">Open public Q&A</a></li>" "")
+													(emacsconf-surround "<li><a href=\""
+																							(plist-get o :bbb-rec)
+																							"\">Play recording from BigBlueButton</a></li>" "")))
                    o))
           (if (or (emacsconf-talk-file o "--answers.webm")
 									(emacsconf-talk-file o "--answers.opus"))
@@ -1575,6 +1598,10 @@ ${include}
                                      (concat emacsconf-media-base-url (plist-get f :conf-year) "/")
                                      :track-base-url
                                      (format "/%s/captions/" (plist-get f :conf-year))
+																		 :links
+																			(emacsconf-surround "<li><a href=\""
+																													(plist-get o :bbb-rec)
+																													"\">Play recording from BigBlueButton</a></li>" "")
                                      :files
 																		 (seq-remove (lambda (f) (string-match "--answers" f))
 																								 (emacsconf-publish-filter-public-files f files)))
@@ -1665,7 +1692,9 @@ ${include}
 									 (format " (%sB)" (file-size-human-readable (file-attribute-size (file-attributes cache-file))))
 								 ""))))
 	 (or (plist-get talk :files)
-			 (emacsconf-publish-talk-files talk))))
+			 (if (plist-get talk :backstage)
+					 (emacsconf-publish-talk-files talk)
+				 (emacsconf-publish-filter-public-files talk)))))
 
 (defun emacsconf-publish-talks-json ()
 	"Return JSON format with a subset of talk information."
-- 
cgit v1.2.3