summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-12-01 09:29:05 -0500
committerSacha Chua <sacha@sachachua.com>2022-12-01 09:29:05 -0500
commitd89e6d82f99c2d46b8f88bb6752b3d69d6b999b7 (patch)
tree790b49829a6ded682d580a760cffd4996b9319c1
parent95d63d436e6820354a89a05dff349c65190a18a2 (diff)
downloademacsconf-el-d89e6d82f99c2d46b8f88bb6752b3d69d6b999b7.tar.xz
emacsconf-el-d89e6d82f99c2d46b8f88bb6752b3d69d6b999b7.zip
fix stream urls
-rw-r--r--emacsconf.el18
1 files changed, 11 insertions, 7 deletions
diff --git a/emacsconf.el b/emacsconf.el
index 43060f7..b96d8da 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -1045,21 +1045,21 @@
`((:name "General" :color "peachpuff" :id "gen" :channel "emacsconf-gen"
:watch "https://live.emacsconf.org/2022/watch/gen/"
:tramp "/ssh:emacsconf-gen@res.emacsconf.org#46668:"
- :webchat-url "https://chat.emacsconf.org/?join=emacsconf,emacsconf-gen"
+ :webchat-url "https://chat.emacsconf.org/?join=emacsconf,emacsconf-org,emacsconf-accessible,emacsconf-dev,emacsconf-gen"
:stream ,(concat emacsconf-stream-base "gen.webm")
:480p ,(concat emacsconf-stream-base "gen-480p.webm")
+ :youtube-url "https://youtu.be/bLJdyzt51uw"
:toobnix-url "https://toobnix.org/w/7t9X8eXuSby8YpyEKTb4aj"
- :youtube-url "https://youtu.be/4W9ZvCTG0Ug"
:start "09:00" :end "17:00"
:vnc-display ":5"
:vnc-port "5905"
:status "offline")
(:name "Development" :color "skyblue" :id "dev" :channel "emacsconf-dev"
:watch "https://live.emacsconf.org/2022/watch/dev/"
- :webchat-url "https://chat.emacsconf.org/?join=emacsconf,emacsconf-dev"
+ :webchat-url "https://chat.emacsconf.org/?join=emacsconf,emacsconf-org,emacsconf-accessible,emacsconf-gen,emacsconf-dev"
:tramp "/ssh:emacsconf-dev@res.emacsconf.org#46668:"
:toobnix-url "https://toobnix.org/w/w6K77y3bNMo8xsNuqQeCcD"
- :youtube-url "https://youtu.be/bLJdyzt51uw"
+ :youtube-url "https://youtu.be/4W9ZvCTG0Ug"
:youtube-studio-url "https://studio.youtube.com/video/bLJdyzt51uw/livestreaming"
:stream ,(concat emacsconf-stream-base "dev.webm")
:480p ,(concat emacsconf-stream-base "dev-480p.webm")
@@ -1072,9 +1072,13 @@
(when (and (listp name) (plist-get name :track))
(setq name (plist-get name :track)))
(if (stringp name)
- (seq-find (lambda (track) (or (string= name (plist-get track :name))
- (string= name (plist-get track :id))))
- emacsconf-tracks)
+ (or
+ (seq-find (lambda (track) (or (string= name (plist-get track :name))
+ (string= name (plist-get track :id))))
+ emacsconf-tracks)
+ (let ((talk (emacsconf-resolve-talk name)))
+ (when talk (emacsconf-get-track talk)))
+ name)
name))
(defun emacsconf-by-track (info)