[emms] disable recursive search for subtitle files
Most of the time it's more of a hindrance than a help.
This commit is contained in:
parent
e18f66752d
commit
585ca01285
21
init.org
21
init.org
|
@ -902,16 +902,17 @@ Unique key-values for task "Exercise"
|
|||
"-ao=jack,alsa"
|
||||
;; "--loop-file=inf"
|
||||
)
|
||||
(let* ((dir (->> (emms-playlist-current-selected-track)
|
||||
(alist-get 'name)
|
||||
(file-name-directory)))
|
||||
(subs-in-dir (f-glob "*.srt" dir))
|
||||
(subs-in-subdir (f-glob "*/*.srt" dir)))
|
||||
(->> (append subs-in-dir subs-in-subdir)
|
||||
(-interpose ":")
|
||||
(append '("--sub-files="))
|
||||
(apply #'concat)
|
||||
(list))))))
|
||||
;; (let* ((dir (->> (emms-playlist-current-selected-track)
|
||||
;; (alist-get 'name)
|
||||
;; (file-name-directory)))
|
||||
;; (subs-in-dir (f-glob "*.srt" dir))
|
||||
;; (subs-in-subdir (f-glob "*/*.srt" dir)))
|
||||
;; (->> (append subs-in-dir subs-in-subdir)
|
||||
;; (-interpose ":")
|
||||
;; (append '("--sub-files="))
|
||||
;; (apply #'concat)
|
||||
;; (list)))
|
||||
)))
|
||||
;; ;; This won't work for `emms-random', because it runs in a `save-excursion'
|
||||
;; (add-to-list 'emms-playlist-selection-changed-hook 'emms-playlist-mode-center-current)
|
||||
;; (--map (add-to-list 'emms-player-mpv-parameters it)
|
||||
|
|
Loading…
Reference in New Issue