diff options
Diffstat (limited to '2020/submissions.org')
| -rw-r--r-- | 2020/submissions.org | 25 |
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))) |