diff options
| author | rekado <rekado@elephly.net> | 2016-06-18 10:34:36 +0200 |
|---|---|---|
| committer | rekado <rekado@elephly.net> | 2016-06-18 10:34:36 +0200 |
| commit | a2885eeff85f9e92b05bbca7cd60dfcec441768c (patch) | |
| tree | 9d3ccef343abdbd25c37d9fba3209740ce918b13 | |
| parent | c8c7e94eb00fa18de5b9407a8d069c3a64fcedff (diff) | |
Add EMMS initialisation.
| -rw-r--r-- | init.el | 3 | ||||
| -rw-r--r-- | lisp/init-music.el | 38 |
2 files changed, 41 insertions, 0 deletions
@@ -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) + |