From a2885eeff85f9e92b05bbca7cd60dfcec441768c Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Sat, 18 Jun 2016 10:34:36 +0200
Subject: Add EMMS initialisation.

---
 init.el            |  3 +++
 lisp/init-music.el | 38 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 lisp/init-music.el

diff --git a/init.el b/init.el
index 12cdd19..15b55b0 100644
--- a/init.el
+++ b/init.el
@@ -173,6 +173,9 @@
 (load "init-paredit.el")
 (load "init-pretty.el")
 
+(load "init-music.el")
+(require 'my/init-music)
+
 (load "init-god-mode.el")
 (require 'my/init-god-mode)
 
diff --git a/lisp/init-music.el b/lisp/init-music.el
new file mode 100644
index 0000000..bf24e4d
--- /dev/null
+++ b/lisp/init-music.el
@@ -0,0 +1,38 @@
+(provide 'my/init-music)
+(eval-after-load "emms"
+  '(progn
+     (emms-all)
+     (emms-default-players)
+     (setq emms-playlist-buffer-name "*EMMS*")
+     (setq emms-source-file-directory-tree-function
+           'emms-source-file-directory-tree-find)
+
+     (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)))))
+(require 'emms-setup)
+
-- 
cgit v1.2.3