diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-11-04 19:00:50 -0400 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-11-04 19:00:50 -0400 |
commit | 67d7aac3235f3fba73b82e1f7d2660fbb59e44dd (patch) | |
tree | 8f13361fb72e87d45c88d77fad397070152cdf21 /emacsconf-publish.el | |
parent | dfbbf5d6078020b511f9c0104d2f056fa5769f38 (diff) | |
download | emacsconf-el-67d7aac3235f3fba73b82e1f7d2660fbb59e44dd.tar.xz emacsconf-el-67d7aac3235f3fba73b82e1f7d2660fbb59e44dd.zip |
Convenience functions for working with subtitles
Diffstat (limited to 'emacsconf-publish.el')
-rw-r--r-- | emacsconf-publish.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index d4d8405..a90803b 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -1303,8 +1303,8 @@ Entries are sorted chronologically, with different tracks interleaved." duration) (unless (file-exists-p main) (setq main video-file-name)) - (org-entry-put (point) "VIDEO_FILE" (file-name-nondirectory main)) - (org-entry-put (point) "VIDEO_FILE_SIZE" (file-size-human-readable (file-attribute-size (file-attributes main)))) + (org-entry-put (point) "VIDEO_FILE" (file-name-nondirectory video-file)) + (org-entry-put (point) "VIDEO_FILE_SIZE" (file-size-human-readable (file-attribute-size (file-attributes video-file)))) (unless (plist-get talk :video-time) (setq duration (/ (compile-media-get-file-duration-ms video-file) 1000)) (org-entry-put (point) "VIDEO_DURATION" (format-seconds "%m:%.2s" duration)) |