From aab5bfd074e57d06a79e39d7c7c4760e1f385a06 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Oct 2022 21:41:28 -0500
Subject: Bankruptcy 9

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

(limited to 'lisp/+emms.el')

diff --git a/lisp/+emms.el b/lisp/+emms.el
deleted file mode 100644
index 403cbff..0000000
--- a/lisp/+emms.el
+++ /dev/null
@@ -1,46 +0,0 @@
-;;; +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