diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-12-01 19:22:16 -0500 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-12-01 19:22:16 -0500 |
commit | c3b3180a18decabe0fdd4dc16a1f01f47ab817b8 (patch) | |
tree | 4ab937a7c75df4d24b5181e77e7e7b16bc08fc9c /emacsconf.el | |
parent | d89e6d82f99c2d46b8f88bb6752b3d69d6b999b7 (diff) | |
download | emacsconf-el-c3b3180a18decabe0fdd4dc16a1f01f47ab817b8.tar.xz emacsconf-el-c3b3180a18decabe0fdd4dc16a1f01f47ab817b8.zip |
easy rebroadcasting from one stream to another
Diffstat (limited to 'emacsconf.el')
-rw-r--r-- | emacsconf.el | 11 |
1 files changed, 8 insertions, 3 deletions
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) |