From 2c57abe00226c1ff631a698af90e87f08bc93c4f Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Thu, 3 Dec 2020 09:19:47 -0500
Subject: Talk details

---
 2020/submissions.org | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

(limited to '2020/submissions.org')

diff --git a/2020/submissions.org b/2020/submissions.org
index 9479941c..f159cf30 100644
--- a/2020/submissions.org
+++ b/2020/submissions.org
@@ -3166,9 +3166,11 @@ The total is written to the MIN_TIME_SUM property of this heading"
    list))
 
 (defun conf/format-talk-link (talk)
-    (and talk (format "<a href=\"/2020/talks/%s\">%s</a>"
-                      (plist-get talk :talk-id)
-                      (plist-get talk :title))))
+    (and talk (if (plist-get talk :id)
+                  (format "<a href=\"/2020/talks/%s\">%s</a>"
+                          (plist-get talk :talk-id)
+                          (plist-get talk :title))
+                (plist-get talk :title))))
 
 (defun conf/format-talk-info-as-schedule (info)
   (format "<table width=\"100%%\">%s</table>"
@@ -3296,6 +3298,23 @@ Talk page: <https://emacsconf.org/2020/schedule/%s>
 " (plist-get o :title) (plist-get o :speakers) (plist-get o :talk-id))) talks "  \n  \n")))
       (save-buffer))))
 
+(defun conf/generate-talks-page ()
+  (let ((info conf/info))
+    (with-temp-buffer
+      (find-file "talk-details.md")
+      (erase-buffer)
+      (insert (format "<ul>%s</ul>"
+                      (mapconcat
+                       (lambda (o)
+                         (let* ((title (plist-get o :title))
+                                (speakers (plist-get o :speakers)))
+                           (if (eq (plist-get o :type) 'headline)
+                               (format "<li>%s</li>" (conf/format-talk-link o))
+                             (format "<li>%s - %s</li>" (conf/format-talk-link o)
+                                     (plist-get o :speakers)))))
+                       (cdr info) "\n")))
+      (save-buffer))))
+
 (defun conf/generate-schedule-files (&optional filename)
   (interactive)
   (let ((info (conf/get-talk-info-from-file filename)))
-- 
cgit v1.2.3