diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-25 12:28:05 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-25 12:28:05 -0500 |
| commit | fb2f3ef90804b854ccd9ad3061b32fff906fa945 (patch) | |
| tree | 831dea964b0c1308bde67bae71b343d76f4b2ea6 | |
| parent | bbab65f0e5d668e94408551dc7b055a47a9e4b0a (diff) | |
| download | emacsconf-el-fb2f3ef90804b854ccd9ad3061b32fff906fa945.tar.xz emacsconf-el-fb2f3ef90804b854ccd9ad3061b32fff906fa945.zip | |
chapters, spanish
| -rw-r--r-- | emacsconf-publish.el | 10 |
1 files changed, 5 insertions, 5 deletions
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 kind=\"chapters\" label=\"Chapters\" src=\"%s\"\" />" + :track (format "<track kind=\"chapters\" label=\"Chapters\" src=\"%s\" />" (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 "<track label=\"%s\" kind=\"captions\" srclang=\"%s\" src=\"%s\" />" (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) |