diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/init-music.el | 38 |
1 files changed, 38 insertions, 0 deletions
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) + |