aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-08-15 18:49:26 +0530
committerArun Isaac2022-08-15 18:49:26 +0530
commit5bb5b79f7182c7dea90a3d9dc4ce11d78b49234b (patch)
tree9b08b574dbd891915c53925201778af1053207c1
parentb72366c8bff2d71797562cb9fd2f94185fdcdf6f (diff)
downloadennum-5bb5b79f7182c7dea90a3d9dc4ce11d78b49234b.tar.gz
ennum-5bb5b79f7182c7dea90a3d9dc4ce11d78b49234b.tar.lz
ennum-5bb5b79f7182c7dea90a3d9dc4ce11d78b49234b.zip
Link to video poster in images directory, not the video directory.v0.1.0
* ennum-html.el (ennum-html-link): Link to video poster in images directory, not the video directory.
-rw-r--r--ennum-html.el20
1 files changed, 10 insertions, 10 deletions
diff --git a/ennum-html.el b/ennum-html.el
index b8a98e5..dcdf26b 100644
--- a/ennum-html.el
+++ b/ennum-html.el
@@ -308,16 +308,16 @@
(ennum-html-find-link 'post path info)))
(org-export-backend-name (plist-get info :back-end))))
("video"
- (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-link-poster
- (ennum-html-find-link 'video path info))
- video-directory))
- :preload "none"
- :controls ""))))
+ (xmlgen
+ `(video :src ,(url-encode-url
+ (expand-file-name* path (ennum-setting :video-directory)))
+ :poster ,(url-encode-url
+ (expand-file-name*
+ (ennum-video-link-poster
+ (ennum-html-find-link 'video path info))
+ (ennum-setting :images-directory)))
+ :preload "none"
+ :controls "")))
;; Pass other link types to org-html-link
(_ (org-html-link link desc info)))))