blob: 403cbffb7b806f9e711bd7814e733a4ebe86db43 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
;;; +emms.el --- EMMS customizations -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'emms-player-mpv)
(require 'el-patch)
;; https://lists.gnu.org/archive/html/emms-help/2022-01/msg00006.html
(el-patch-feature emms-player-mpv)
(with-eval-after-load 'emms-player-mpv
(el-patch-defun emms-player-mpv-start (track)
(setq emms-player-mpv-stopped nil)
(emms-player-mpv-proc-playing nil)
(let
((track-name (emms-track-get track 'name))
(track-is-playlist (memq (emms-track-get track 'type)
'(streamlist playlist))))
(if (emms-player-mpv-ipc-fifo-p)
(progn
;; ipc-stop is to clear any buffered commands
(emms-player-mpv-ipc-stop)
(emms-player-mpv-proc-init (if track-is-playlist "--playlist" "--")
track-name)
(emms-player-started emms-player-mpv))
(let*
((play-cmd
`(batch
((,(el-patch-swap
(if track-is-playlist 'loadlist 'loadfile)
'loadfile)
,track-name replace))
((set pause no))))
(start-func
;; Try running play-cmd and retry it on connection failure, e.g. if mpv died
(apply-partially 'emms-player-mpv-cmd play-cmd
(lambda (_mpv-data mpv-error)
(when (eq mpv-error 'connection-error)
(emms-player-mpv-cmd play-cmd))))))
(if emms-player-mpv-ipc-stop-command
(setq emms-player-mpv-ipc-stop-command start-func)
(funcall start-func)))))))
(provide '+emms)
;;; +emms.el ends here
|
