summaryrefslogtreecommitdiffstats
path: root/emacsconf-pad.el
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-14 10:33:06 -0500
committerSacha Chua <sacha@sachachua.com>2022-11-14 10:33:06 -0500
commit0608ece50bc7b01f2118cca903a78db6f2ac026e (patch)
tree78234fab971245e79f9025b4e235dffaeaa83a17 /emacsconf-pad.el
parent36b01a7223c568f00352f7fb8cc33684952c842c (diff)
downloademacsconf-el-0608ece50bc7b01f2118cca903a78db6f2ac026e.tar.xz
emacsconf-el-0608ece50bc7b01f2118cca903a78db6f2ac026e.zip
templates, intro pad, transcripts
Diffstat (limited to '')
-rw-r--r--emacsconf-pad.el13
1 files changed, 13 insertions, 0 deletions
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