From 19552483ac067a0182aea82b16aca0cfca2dc235 Mon Sep 17 00:00:00 2001
From: Thomas von Dein <tom@vondein.org>
Date: Tue, 6 Jun 2023 16:16:09 +0200
Subject: [PATCH] added emms

---
 customize.el       |  2 +-
 init.el            |  1 +
 lisp/init-audio.el | 30 ++++++++++++++++++++++++++++++
 3 files changed, 32 insertions(+), 1 deletion(-)
 create mode 100644 lisp/init-audio.el

diff --git a/customize.el b/customize.el
index 1df9b16..f6a34e7 100644
--- a/customize.el
+++ b/customize.el
@@ -11,7 +11,7 @@
    '("7f1d414afda803f3244c6fb4c2c64bea44dac040ed3731ec9d75275b9e831fe5" default))
  '(magit-todos-insert-after '(bottom) nil nil "Changed by setter of obsolete option `magit-todos-insert-at'")
  '(package-selected-packages
-   '(package-lint blamer howm tiny tramp dictcc beacon which-key goto-last-change browse-kill-ring fringe-current-line swiper smex undo-tree fic-mode cmake-mode yaml-mode windresize web-mode use-package tablist solarized-theme smartparens rust-mode projectile persistent-scratch org-bullets markdown-mode magit iedit ibuffer-vc ibuffer-tramp hydra htmlize highlight-indentation go-mode eyebrowse elmacro dumb-jump dired-ranger dired-k dired-filter default-text-scale change-inner buffer-move))
+   '(emms package-lint blamer howm tiny tramp dictcc beacon which-key goto-last-change browse-kill-ring fringe-current-line swiper smex undo-tree fic-mode cmake-mode yaml-mode windresize web-mode use-package tablist solarized-theme smartparens rust-mode projectile persistent-scratch org-bullets markdown-mode magit iedit ibuffer-vc ibuffer-tramp hydra htmlize highlight-indentation go-mode eyebrowse elmacro dumb-jump dired-ranger dired-k dired-filter default-text-scale change-inner buffer-move))
  '(safe-local-variable-values '((ruby-indent-level 4)))
  '(warning-suppress-types '((comp))))
 (custom-set-faces
diff --git a/init.el b/init.el
index d159fdc..15b6cae 100644
--- a/init.el
+++ b/init.el
@@ -147,6 +147,7 @@
 (require 'init-ediff)
 (require 'init-projectile)
 (require 'init-occur)
+(require 'init-audio)
 
 ;; emacs configuration
 (require 'init-windowmgmt)
diff --git a/lisp/init-audio.el b/lisp/init-audio.el
new file mode 100644
index 0000000..5900739
--- /dev/null
+++ b/lisp/init-audio.el
@@ -0,0 +1,30 @@
+(use-package emms
+  :defer nil
+
+  :config
+  (setq emms-source-file-default-directory "~/MP3")
+  (emms-add-directory-tree "~/MP3/")
+  '(emms-player-mplayer-parameters (quote ("-slave" "-quiet" "-really-quiet" "-novideo")))
+
+  (require 'emms-player-simple)
+  (require 'emms-source-file)
+  (require 'emms-source-playlist)
+  (require 'emms-player-mplayer)
+
+  (emms-all)
+  (emms-default-players)
+
+  (defun tvd-emms-beginning-of-song
+      (interactive)
+    (emms-seek-to '00:00))
+
+  :bind (:map   emms-playlist-mode-map
+                ( "<right>" .  'emms-seek-forward)
+                ( "<left>" .  'emms-seek-backward)
+                ( "<SPC>" . 'emms-pause)
+                ( "b" . 'tvd-emms-beginning-of-song)))
+
+(defalias 'audio 'emms)
+
+(provide 'init-audio)
+;;; init-audio.el ends here