From c3b3180a18decabe0fdd4dc16a1f01f47ab817b8 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 1 Dec 2022 19:22:16 -0500 Subject: easy rebroadcasting from one stream to another --- emacsconf.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'emacsconf.el') diff --git a/emacsconf.el b/emacsconf.el index b96d8da..608f4dc 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1077,7 +1077,9 @@ (string= name (plist-get track :id)))) emacsconf-tracks) (let ((talk (emacsconf-resolve-talk name))) - (when talk (emacsconf-get-track talk))) + (seq-find (lambda (track) (or (string= (plist-get talk :track) (plist-get track :name)) + (string= (plist-get talk :track) (plist-get track :id)))) + emacsconf-tracks)) name) name)) @@ -1089,8 +1091,11 @@ info)) emacsconf-tracks)) -(defun emacsconf-complete-track () - (emacsconf-get-track (completing-read "Track: " (mapcar (lambda (o) (plist-get o :name)) emacsconf-tracks)))) +(defun emacsconf-complete-track (&optional prompt tracks) + (emacsconf-get-track + (completing-read + (or prompt "Track: ") + (mapcar (lambda (o) (plist-get o :name)) (or tracks emacsconf-tracks))))) (defun emacsconf-by-day (info) (seq-group-by (lambda (o) -- cgit v1.2.3