diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-11-14 10:33:06 -0500 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-11-14 10:33:06 -0500 |
commit | 0608ece50bc7b01f2118cca903a78db6f2ac026e (patch) | |
tree | 78234fab971245e79f9025b4e235dffaeaa83a17 /emacsconf-pad.el | |
parent | 36b01a7223c568f00352f7fb8cc33684952c842c (diff) | |
download | emacsconf-el-0608ece50bc7b01f2118cca903a78db6f2ac026e.tar.xz emacsconf-el-0608ece50bc7b01f2118cca903a78db6f2ac026e.zip |
templates, intro pad, transcripts
Diffstat (limited to '')
-rw-r--r-- | emacsconf-pad.el | 13 |
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&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 |