diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-media-segment.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-media-segment.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-media-segment.el b/emacs/.emacs.d/lisp/my/my-media-segment.el index 9431624..e8ee5cc 100644 --- a/emacs/.emacs.d/lisp/my/my-media-segment.el +++ b/emacs/.emacs.d/lisp/my/my-media-segment.el @@ -134,11 +134,7 @@ Uses `my-media-segment-max-inflight' to limit number of inflight tasks." (interactive (list (read-file-name "Choose media file: ") (read-file-name - "Choose description file (.info.json or .description): " - ;; nil - ;; (file-name-with-extension media-file-name ".info.json") - ;; t - ))) + "Choose description file (.info.json or .description): "))) (let* ((dir (file-name-sans-extension (expand-file-name media-file-name))) (info (my-get-media-segments info-file-name)) (total (length info)) @@ -187,7 +183,9 @@ Uses `my-media-segment-max-inflight' to limit number of inflight tasks." (seq-map (lambda (ch) (let-alist ch - (list :title (my-make-filename .title) :start (format "%s" .start_time) + ;; .title: ytdl; .tags.titile: .m4b + (list :title (my-make-doc-file-name (or .title .tags.title)) + :start (format "%s" .start_time) :end (format "%s" .end_time)))) (alist-get 'chapters info)))) @@ -212,7 +210,7 @@ Uses `my-media-segment-max-inflight' to limit number of inflight tasks." (buffer-substring-no-properties (point) (progn (beginning-of-line 2) (point)))))) - (push (list :title (my-make-filename title) :start start :end end) results) + (push (list :title (my-make-doc-file-name title) :start start :end end) results) ) (setq end nil) (dolist (result results) |