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/+bongo.el | 60 ----------------------------------------------------------
 1 file changed, 60 deletions(-)
 delete mode 100644 lisp/+bongo.el

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

diff --git a/lisp/+bongo.el b/lisp/+bongo.el
deleted file mode 100644
index da68024..0000000
--- a/lisp/+bongo.el
+++ /dev/null
@@ -1,60 +0,0 @@
-;;; +bongo.el --- customizations in bongo -*- lexical-binding: t; -*-
-
-;;; Commentary:
-
-;;; Code:
-
-(defgroup +bongo nil
-  "Extra customization for `bongo'."
-  :group 'bongo)
-
-(defun +bongo-notify ()
-  (notifications-notify
-   :title "Now Playing"
-   :body (let ((bongo-field-separator "
-"))
-           (substring-no-properties (bongo-formatted-infoset)))
-   :urgency 'low
-   :transient t))
-
-(defun +bongo-stop-all ()
-  "Ensure only one bongo playlist is playing at a time.
-This is intended to be :before advice to `bongo-play'."
-  (mapc (lambda (b)
-          (with-current-buffer b
-            (when-let* ((modep (derived-mode-p
-                                'bongo-playlist-mode))
-                        (bongo-playlist-buffer b)
-                        (playingp (bongo-playing-p)))
-              (bongo-stop))))
-        (buffer-list)))
-
-
-;;; Bongo Radio
-
-(defcustom +bongo-radio-stations nil
-  "Stations to play using `+bongo-radio'.")
-
-(defcustom +bongo-radio-buffer-name "*Bongo Radio*"
-  "Name of the buffer that holds all bongo radio stations."
-  :type 'string)
-
-(defun +bongo-radio ()
-  (interactive)
-  (switch-to-buffer (or (get-buffer +bongo-radio-buffer-name)
-                        (+bongo-radio-init))))
-
-(defun +bongo-radio-init ()
-  (interactive)
-  (let ((bongo-playlist-buffer (get-buffer-create +bongo-radio-buffer-name))
-        (bongo-confirm-flush-playlist nil))
-    (with-bongo-playlist-buffer
-      (bongo-playlist-mode)
-      (bongo-flush-playlist :delete-all)
-      (cl-loop for (name . url) in +bongo-radio-stations
-               do (bongo-insert-uri url name)))
-    (prog1 (switch-to-buffer bongo-playlist-buffer)
-      (goto-char (point-min)))))
-
-(provide '+bongo)
-;;; +bongo.el ends here
-- 
cgit 1.4.1-21-gabe81