about summary refs log tree commit diff stats
path: root/lisp/+emms.el
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