diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-10-14 23:46:22 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-10-14 23:46:22 -0400 |
| commit | 1cf48d4127418a4af6f1d203a3c2b4d2c8032a99 (patch) | |
| tree | d06f80fafc6e62ba28efa8a901caefd9cfded67f /emacsconf.el | |
| parent | 03411976386867a223657d1a19f2afe991160d3a (diff) | |
| download | emacsconf-el-1cf48d4127418a4af6f1d203a3c2b4d2c8032a99.tar.xz emacsconf-el-1cf48d4127418a4af6f1d203a3c2b4d2c8032a99.zip | |
improve mail template for acknowledging uploads
- remove references to subed and compile-media
- set default dir to cache dir when acknowledging uploads
Diffstat (limited to 'emacsconf.el')
| -rw-r--r-- | emacsconf.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/emacsconf.el b/emacsconf.el index d574ef3..37bfc83 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1677,5 +1677,14 @@ tracks with the ID in the cdr of that list." "0"))))) info) (lambda (a b) (< (car a) (car b)))))))) + +(defun emacsconf-get-file-duration-ms (filename) + "Return the duration of FILENAME in milliseconds." + (* 1000 + (string-to-number + (shell-command-to-string + (concat "ffprobe -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 " + (shell-quote-argument (expand-file-name filename))))))) + (provide 'emacsconf) ;;; emacsconf.el ends here |