From 7d6c2e6094da87f8d31b26acb8ef5df4bc7814d5 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Sat, 5 Nov 2022 21:51:02 -0400
Subject: Link to table in res index

---
 emacsconf-publish.el | 28 +++++++++++++++++-----------
 1 file changed, 17 insertions(+), 11 deletions(-)

(limited to 'emacsconf-publish.el')

diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index 5e15d02..fb3a664 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -153,16 +153,19 @@
 
 (defun emacsconf-publish-res-index ()
   (interactive)
-  (let ((info (mapcar (lambda (o)
-                        (if (plist-get o :bbb-room)
-                            (append (list
-                                     :qa-link
-                                     (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Join Q&A</a>" (plist-get o :bbb-room))
-                                     :url
-                                     (plist-get o :bbb-room))
-                                    o)
-                          o))
-               (emacsconf-prepare-for-display (emacsconf-get-talk-info)))))
+  (let ((emacsconf-use-absolute-url t)
+        (emacsconf-base-url "")
+        (info (mapcar (lambda (o)
+                        (append (list
+                                 :url (concat "#" (plist-get o :slug)))
+                                (if (and (string-match "live" (or (plist-get o :q-and-a) ""))
+                                         (plist-get o :bbb-room))
+                                    (append (list
+                                             :qa-link
+                                             (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Join Q&A</a>" (plist-get o :bbb-room)))
+                                            o)
+                                  o)))
+                      (emacsconf-prepare-for-display (emacsconf-get-talk-info)))))
     (mapc (lambda (track)
             (let ((track-talks (seq-filter (lambda (o) (string= (plist-get o :track)
                                                                 (plist-get track :name)))
@@ -179,7 +182,10 @@
                   (lambda (o)
                     (concat
                      "<tr>"
-                     "<td>" (plist-get o :qa-link)
+                     (format
+                      "<td><a name=\"%s\"></a>"
+                      (plist-get o :slug))
+                     (plist-get o :qa-link)
                      "</td>"
                      "<td>" (if (plist-get o :pad-url)
                                 (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Open pad</a>" (plist-get o :pad-url))
-- 
cgit v1.2.3