From fb2f3ef90804b854ccd9ad3061b32fff906fa945 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Fri, 25 Nov 2022 12:28:05 -0500 Subject: chapters, spanish --- emacsconf-publish.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'emacsconf-publish.el') diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 968a3f2..444b020 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -30,7 +30,7 @@ :type 'string :group 'emacsconf) -(defcustom emacsconf-main-extensions '(".webm" "--main.webm" "--main.org" ".org" ".odp" ".pdf" ".el" "--compressed56.webm" "--main.vtt" "--main_fr.vtt" "--main_ja.vtt" "--chapters.vtt" "--main--chapters.vtt" "--script.fountain") +(defcustom emacsconf-main-extensions '(".webm" "--main.webm" "--main.org" ".org" ".odp" ".pdf" ".el" "--compressed56.webm" "--main.vtt" "--main_fr.vtt" "--main_ja.vtt" "--main_es.vtt" "--chapters.vtt" "--main--chapters.vtt" "--script.fountain") "Extensions to list on public pages." :type '(repeat string) :group 'emacsconf) @@ -1243,7 +1243,7 @@ Entries are sorted chronologically, with different tracks interleaved." (let ((chapters (subed-parse-file filename))) (when chapters (list - :track (format "" + :track (format "" (concat (or track-base-url "") (file-name-nondirectory filename))) :md (mapconcat (lambda (chapter) (concat @@ -1279,9 +1279,9 @@ Entries are sorted chronologically, with different tracks interleaved." (format "" (cdr lang) (car lang) - (concat (or track-base-url "") (file-name-nondirectory lang-file)))) - "")) - '(("fr" . "French") ("ja" . "Japanese")) + (concat (or track-base-url "") (file-name-nondirectory lang-file))) + ""))) + '(("fr" . "French") ("ja" . "Japanese") ("es" . "Spanish")) ""))) (defun emacsconf-link-file-formats (video-slug extensions) -- cgit v1.2.3