summaryrefslogtreecommitdiffstats
path: root/2020/submissions.org
diff options
context:
space:
mode:
Diffstat (limited to '2020/submissions.org')
-rw-r--r--2020/submissions.org25
1 files changed, 22 insertions, 3 deletions
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)))