From 4de4451b3fadb7a3d0f1d03bec91ddca7b5731e2 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Mon, 14 Nov 2022 20:43:06 -0500
Subject: backstage index should have anchors

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

(limited to 'emacsconf-publish.el')

diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index 9965414..d31371d 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -228,7 +228,7 @@
      emacsconf-tracks)))
 
 (defun emacsconf-index-card-video (video-id video-file talk extensions &optional backstage)
-  (let* ((video-base (and video-file (file-name-base video-file)))
+  (let* ((video-base (and video-file (replace-regexp-in-string "reencoded\\|original" "main" (file-name-base video-file))))
          (chapter-info (and video-file
                             (emacsconf-make-chapter-strings
                              (expand-file-name
@@ -951,7 +951,8 @@ Entries are sorted chronologically, with different tracks interleaved."
                                    (if (plist-get f :caption-note) (concat "<div class=\"caption-note\">" (plist-get f :caption-note) "</div>") "")
                                    :files
                                    (emacsconf-publish-talk-files f files))))
-                    (format  "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
+                    (format  "<li><a name=\"%s\"></a><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
+                             (plist-get f :slug)
                              emacsconf-base-url
                              (plist-get f :url)
                              (plist-get f :title)
@@ -972,7 +973,8 @@ Entries are sorted chronologically, with different tracks interleaved."
                           (if (plist-get f :captioner) (concat "<div class=\"caption-note\">Being captioned by " (plist-get f :captioner) "</div>") "")
                           :files
                           (emacsconf-publish-talk-files f files))))
-           (format  "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
+           (format  "<li><a name=\"%s\"></a><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
+                    (plist-get f :slug)
                     emacsconf-base-url
                     (plist-get f :url)
                     (plist-get f :title)
@@ -986,7 +988,8 @@ Entries are sorted chronologically, with different tracks interleaved."
         (length (assoc-default "TO_STREAM" by-status))
         (emacsconf-sum :video-time (assoc-default "TO_STREAM" by-status))
         (mapconcat (lambda (f)
-                     (format  "<li><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
+                     (format  "<li><a name=\"%s\"></a><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
+                              (plist-get f :slug)
                               emacsconf-base-url
                               (plist-get f :url)
                               (plist-get f :title)
-- 
cgit v1.2.3