Remove EMMS.

1 files changed, 7 insertions, 60 deletions

diff --git a/init.org b/init.org
index 2bd948f..ba122f8 100644
--- a/init.org
+++ b/init.org
@@ -49,9 +49,6 @@ To install all packages via GNU Guix I can either use a manifest file or use the
     emacs-clojure-mode \
     emacs-company \
     emacs-debbugs \
-    emacs-emms \
-    emacs-emms-mode-line-cycle \
-    emacs-emms-player-mpv \
     emacs-ess \
     emacs-expand-region \
     emacs-fill-column-indicator \
@@ -934,70 +931,19 @@ To make EXWM feel more like a proper desktop environment I also use the =desktop
 :header-args: :noweb-ref emms :noweb yes
 :END:
 
-I like to use EMMS as a music player.  Unfortunately, the default players like mpg321 or ogg123 don’t support seeking, so I’m using =mpv= for everything.
+Not EMMS but MPC:
 
 #+BEGIN_SRC elisp
-(require 'emms-player-mpv)
-(setq emms-player-list (list emms-player-mpv))
+(setq simple-mpc-arguments "-h 192.168.178.20")
 #+END_SRC
 
-Some more initialisation settings:
-
-#+BEGIN_SRC elisp
-(emms-all)
-(setq emms-playlist-buffer-name "*EMMS*")
-(setq emms-source-file-directory-tree-function
-      'emms-source-file-directory-tree-find)
-#+END_SRC
-
-Set up global key bindings for controlling EMMS in any mode.
-
-#+BEGIN_SRC elisp
-(require 'emms-setup)
-(global-set-key (kbd "C-c e t")   'emms-play-directory-tree)
-(global-set-key (kbd "C-c e x")   'emms-start)
-(global-set-key (kbd "C-c e v")   'emms-stop)
-(global-set-key (kbd "C-c e n")   'emms-next)
-(global-set-key (kbd "C-c e p")   'emms-previous)
-(global-set-key (kbd "C-c e o")   'emms-show)
-(global-set-key (kbd "C-c e h")   'emms-shuffle)
-(global-set-key (kbd "C-c e e")   'emms-play-file)
-(global-set-key (kbd "C-c e f")   'emms-play-playlist)
-(global-set-key (kbd "C-c e SPC") 'emms-pause)
-(global-set-key (kbd "C-c e a")   'emms-add-directory-tree)
-
-(global-set-key (kbd "C-c e r")   'emms-toggle-repeat-track)
-(global-set-key (kbd "C-c e R")   'emms-toggle-repeat-playlist)
-
-;; playlist-mode-map
-(define-key emms-playlist-mode-map (kbd "SPC") 'emms-pause)
-(define-key emms-playlist-mode-map (kbd "+") 'emms-volume-raise)
-(define-key emms-playlist-mode-map (kbd "-") 'emms-volume-lower)
-(define-key emms-playlist-mode-map (kbd "<right>")
-  (lambda () (interactive) (emms-seek +10)))
-(define-key emms-playlist-mode-map (kbd "<left>")
-  (lambda () (interactive) (emms-seek -10)))
-(define-key emms-playlist-mode-map (kbd "<up>")
-  (lambda () (interactive) (emms-seek +60)))
-(define-key emms-playlist-mode-map (kbd "<down>")
-  (lambda () (interactive) (emms-seek -60)))
-#+END_SRC
+* Modeline
+:PROPERTIES:
+:header-args: :noweb-ref modeline
+:END:
 
-On my laptop screen the file name in the EMMS modeline cannot be fully displayed.  I use =emms-mode-line-cycle= to limit the width of the file name in the modeline.
 
 #+BEGIN_SRC elisp
-(require 'emms-mode-line-cycle)
-(emms-mode-line 1)
-(emms-playing-time 1)
-(emms-mode-line-cycle 1)
-#+END_SRC
-
-All of this should be loaded lazily.
-
-#+BEGIN_SRC elisp :noweb-ref emms-lazy
-(with-eval-after-load "emms"
-  <<emms>>
-)
 #+END_SRC
 
 * Modeline
@@ -1023,6 +969,7 @@ All of this should be loaded lazily.
 (sml/setup)
 #+END_SRC
 
+
 * Lilypond
 :PROPERTIES:
 :header-args: :noweb-ref lilypond