From eb47ad145dc5b73d91cc0a629dfc7baf724e2403 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Mon, 2 Oct 2023 08:31:09 -0400 Subject: draft schedule --- emacsconf.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'emacsconf.el') diff --git a/emacsconf.el b/emacsconf.el index 6dbb498..c4a5383 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -693,7 +693,8 @@ The subheading should match `emacsconf-abstract-heading-regexp'." emacsconf-year (plist-get o :slug))) (plist-put o :intro-expanded (emacsconf-pad-expand-intro o)) - (let ((track (emacsconf-get-track (plist-get o :track)))) + (let ((track (seq-find (lambda (track) (string= (plist-get o :track) (plist-get track :name))) + emacsconf-tracks))) (when track (plist-put o :watch-url (concat emacsconf-base-url emacsconf-year "/watch/" (plist-get track :id))) (plist-put o :webchat-url @@ -723,9 +724,10 @@ The subheading should match `emacsconf-abstract-heading-regexp'." (plist-put o :qa-link (format "%s" (plist-get o :webchat-url) (plist-get o :qa-info)))) ((string-match "pad" (plist-get o :q-and-a)) (plist-put o :qa-info "Etherpad") - (plist-put o :qa-link (format "%s" - (plist-get o :pad-url) - (plist-get o :qa-info)))) + (plist-put o :qa-link (if (plist-get o :pad-url) + (format "%s" + (plist-get o :pad-url) + (plist-get o :qa-info))))) (t (plist-put o :qa-info "none") (plist-put o :qa-link "none"))) (plist-put o :pad-url (format "https://pad.emacsconf.org/%s-%s" emacsconf-year (plist-get o :slug))) @@ -1183,6 +1185,8 @@ The subheading should match `emacsconf-abstract-heading-regexp'." :status "offline"))) (defun emacsconf-get-track (name) + "Get the track for NAME. +NAME could be a track name, a talk name, or a list." (when (and (listp name) (plist-get name :track)) (setq name (plist-get name :track))) (if (stringp name) @@ -1192,7 +1196,7 @@ The subheading should match `emacsconf-abstract-heading-regexp'." emacsconf-tracks) (let ((talk (emacsconf-resolve-talk name))) (seq-find (lambda (track) (or (string= (plist-get talk :track) (plist-get track :name)) - (string= (plist-get talk :track) (plist-get track :id)))) + (string= (plist-get talk :track) (plist-get track :id)))) emacsconf-tracks)) name) name)) -- cgit v1.2.3