diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-14 20:43:06 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-14 20:43:06 -0500 |
| commit | 4de4451b3fadb7a3d0f1d03bec91ddca7b5731e2 (patch) | |
| tree | 75ab27193d27d26052d8b73f63c740688fa9e814 | |
| parent | 0765008e7471fb2a561674aee62481ba80e1a01c (diff) | |
| download | emacsconf-el-4de4451b3fadb7a3d0f1d03bec91ddca7b5731e2.tar.xz emacsconf-el-4de4451b3fadb7a3d0f1d03bec91ddca7b5731e2.zip | |
backstage index should have anchors
| -rw-r--r-- | emacsconf-publish.el | 11 |
1 files changed, 7 insertions, 4 deletions
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) |