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 | 10 |
1 files changed, 4 insertions, 6 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..c8326a7 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)))) |