diff options
Diffstat (limited to 'ennum-html.el')
| -rw-r--r-- | ennum-html.el | 29 |
1 files changed, 13 insertions, 16 deletions
diff --git a/ennum-html.el b/ennum-html.el index 10a6e65..ee1b3d7 100644 --- a/ennum-html.el +++ b/ennum-html.el @@ -265,8 +265,8 @@ "</article>")) (defun ennum-html-link (link desc info) - ;; We override the html link transcoder to handle image links - ;; differently. We cannot use the `:export' property of + ;; We override the html link transcoder to handle image and video + ;; links differently. We cannot use the `:export' property of ;; `org-link-parameters' since those functions cannot access the ;; `info' communication channel. (let ((path (org-element-property :path link))) @@ -293,6 +293,17 @@ (ennum-setting :images-directory)))) :type "file") desc info)))) + ("video" + (let ((video-directory (ennum-setting :video-directory))) + (message "%s" (plist-get info :ennum-video-posters)) + (xmlgen + `(video :src ,(url-encode-url (expand-file-name* path video-directory)) + :poster ,(url-encode-url + (expand-file-name* (map-elt (plist-get info :ennum-video-posters) + path nil 'string=) + video-directory)) + :preload "none" + :controls "")))) ;; Pass other link types to org-html-link (_ (org-html-link link desc info))))) @@ -341,20 +352,6 @@ :export 'ennum-export-thumbnail :follow 'ennum-follow-image) -(defun ennum-export-video (path desc backend) - (pcase backend - ((or 'ennum-html 'html) - (let ((video-directory (ennum-setting :video-directory))) - (xmlgen - `(video :src ,(url-encode-url (expand-file-name* path video-directory)) - :poster ,(url-encode-url - (expand-file-name* (ennum-video-poster path) video-directory)) - :preload "none" - :controls "")))))) - -(org-link-set-parameters - "video" :export 'ennum-export-video) - (defun ennum-export-static (path desc backend) (pcase backend ((or 'ennum-html 'html) |