From afa39412df6c7d03d070ab6b123a23aaec1ae7f0 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Wed, 21 Aug 2024 20:32:20 +0300
Subject: emacs: Add emms

---
 .config/emacs/init.el | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to '.config/emacs')

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index f50038e..551aa24 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -1112,6 +1112,30 @@ By default, returns all jabber related buffers format."
   :config
   (when is-zeus (add-to-list 'yas-snippet-dirs "~/Dev/guile/guix/etc/snippets/yas")))
 
+(use-package emms
+  :defer t
+  :init (define-prefix-command 'thanos/emms)
+  :config
+  (with-eval-after-load 'emms
+    (emms-all)
+    (setq emms-source-file-default-directory "/hdd/Music"
+          emms-info-asynchronously t
+          emms-show-format "♪ %s")
+    (emms-default-players))
+  (setf emms-player-mpv-parameters '("--quiet" "--really-quiet" "--no-audio-display" "--no-video"))
+  :bind (("C-z" . thanos/emms)
+	 :map thanos/emms
+	 ("n" . 'emms-next)
+	 ("p" . 'emms-previous)
+	 ("SPC" . 'emms-pause)
+	 ("e" . 'emms)
+	 ("s" . 'emms-browser-search-by-names)
+	 ("C-e" . 'emms-smart-browse)
+	 :map emms-playlist-mode-map
+	 (("A" . 'emms-add-directory-tree))
+	 :map emms-browser-search-mode-map
+	 (("s" . 'emms-browser-search-by-names))))
+
 (use-package debbugs
   :ensure nil)
 
-- 
cgit v1.2.3