From cdd2f37086b6940eaec270534d19b5c9dfe595f3 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Wed, 13 Sep 2023 08:59:01 -0400
Subject: add date submitted, date to notify

---
 emacsconf-publish.el | 4 ++--
 emacsconf-stream.el  | 1 +
 emacsconf.el         | 4 +++-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index de8b2a6..bdb9d9e 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -220,10 +220,10 @@
       (plist-get o :qa-link)
       "</td>"
       "<td>" (if (plist-get o :pad-url)
-                 (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Open pad</a>" (plist-get o :pad-url))
+                 (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Pad</a>" (plist-get o :pad-url))
                "")
       "</td>"
-      "<td>" (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Open chat</a>" (plist-get o :webchat-url))
+      "<td>" (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Chat</a>" (plist-get o :webchat-url))
       ""
       "</td>"
       "<td>" (format-time-string "%-l:%M" (plist-get o :start-time) emacsconf-timezone) "</td>"
diff --git a/emacsconf-stream.el b/emacsconf-stream.el
index b24bf9d..4c23d0b 100644
--- a/emacsconf-stream.el
+++ b/emacsconf-stream.el
@@ -260,6 +260,7 @@ Final files should be stored in /data/emacsconf/stream/YEAR/video-slug--main.web
                      emacsconf-stream-dir)))
 
 (defun emacsconf-stream-play-video (talk)
+	"Play just the video for TALK."
   (interactive (list (emacsconf-complete-talk-info)))
   (setq talk (emacsconf-resolve-talk talk))
   (emacsconf-stream-track-ssh
diff --git a/emacsconf.el b/emacsconf.el
index 6c3ecf8..b73e816 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -411,7 +411,9 @@ If INFO is specified, limit it to that list."
                        (:timezone "TIMEZONE")
                        (:irc "IRC")
                        (:pronunciation "PRONUNCIATION")                       
-                       (:pronouns "PRONOUNS") 
+                       (:pronouns "PRONOUNS")
+											 (:date-submitted "DATE_SUBMITTED")
+											 (:date-to-notify "DATE_TO_NOTIFY")
                        ;; Scheduling
                        (:scheduled "SCHEDULED")
                        (:time "TIME")
-- 
cgit v1.2.3