From 0608ece50bc7b01f2118cca903a78db6f2ac026e Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Mon, 14 Nov 2022 10:33:06 -0500
Subject: templates, intro pad, transcripts

---
 emacsconf-pad.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'emacsconf-pad.el')

diff --git a/emacsconf-pad.el b/emacsconf-pad.el
index a274ee5..c68088d 100644
--- a/emacsconf-pad.el
+++ b/emacsconf-pad.el
@@ -451,5 +451,18 @@ ${next-talk-list}
     (if do-insert (insert result))
     result))
 
+(defun emacsconf-pad-prepopulate-intros ()
+  (interactive)
+  (emacsconf-pad-create-pad "intros")
+  (emacsconf-pad-set-html
+   "intros"
+   (concat "<p>https://media.emacsconf.org/2022/backstage/</p><ul>"
+           (mapconcat
+            (lambda (o)
+              (emacsconf-replace-plist-in-string
+               (append (list :full-url (concat emacsconf-base-url (plist-get o :url))) o)
+               "<li>${slug} - ${track}: ${title} (${speakers-with-pronouns}, Q&amp;A: ${q-and-a})<ul><li>${full-url}</li><li>Intro: </li></ul></li>"))
+            (emacsconf-prepare-for-display (emacsconf-get-talk-info)))
+           "</ul>")))
 (provide 'emacsconf-pad)
 ;;; emacsconf-pad.el ends here
-- 
cgit v1.2.3