From 301cd5df28052d307796d708b5911e1d8d5590da Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 29 Jan 2022 19:33:54 -0600
Subject: Configure emms

---
 lisp/+emms.el | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 lisp/+emms.el

(limited to 'lisp')

diff --git a/lisp/+emms.el b/lisp/+emms.el
new file mode 100644
index 0000000..403cbff
--- /dev/null
+++ b/lisp/+emms.el
@@ -0,0 +1,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
-- 
cgit 1.4.1-21-gabe81