summaryrefslogtreecommitdiff
path: root/lisp/init-music.el
blob: bf24e4dd3a2d535a7af41c038d498ca57c566fbb (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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)