more emms
authorJoerg Jaspert <joerg@ganneff.de>
Fri, 12 Jul 2013 13:40:00 +0000 (15:40 +0200)
committerJoerg Jaspert <joerg@ganneff.de>
Fri, 12 Jul 2013 13:40:00 +0000 (15:40 +0200)
.emacs.d/config/emacs.org

index 5802956..d8be2bd 100644 (file)
@@ -2863,12 +2863,16 @@ EMMS is the Emacs Multimedia System.
 (require 'emms-lyrics)
 (require 'emms-last-played)
 (require 'emms-score)
 (require 'emms-lyrics)
 (require 'emms-last-played)
 (require 'emms-score)
+(require 'emms-tag-editor)
+(require 'emms-history)
+(require 'emms-i18n)
 
 (setq emms-playlist-default-major-mode 'emms-playlist-mode)
 (add-to-list 'emms-track-initialize-functions 'emms-info-initialize-track)
 (emms-playing-time 1)
 (emms-lyrics 1)
 (add-hook 'emms-player-started-hook 'emms-last-played-update-current)
 
 (setq emms-playlist-default-major-mode 'emms-playlist-mode)
 (add-to-list 'emms-track-initialize-functions 'emms-info-initialize-track)
 (emms-playing-time 1)
 (emms-lyrics 1)
 (add-hook 'emms-player-started-hook 'emms-last-played-update-current)
+;(add-hook 'emms-player-started-hook 'emms-player-mpd-sync-from-emms)
 (emms-score 1)
 (when (fboundp 'emms-cache) ; work around compiler warning
   (emms-cache 1))
 (emms-score 1)
 (when (fboundp 'emms-cache) ; work around compiler warning
   (emms-cache 1))
@@ -2970,6 +2974,21 @@ EMMS is the Emacs Multimedia System.
 (global-set-key (kbd "H-<f9> s o") 'emms-score-show-playing)
 (global-set-key (kbd "H-<f9> s s") 'emms-score-set-playing)
 
 (global-set-key (kbd "H-<f9> s o") 'emms-score-show-playing)
 (global-set-key (kbd "H-<f9> s s") 'emms-score-set-playing)
 
+(define-key emms-playlist-mode-map "u" 'emms-score-up-playing)
+(define-key emms-playlist-mode-map "d" 'emms-score-down-playing)
+(define-key emms-playlist-mode-map "o" 'emms-score-show-playing)
+(define-key emms-playlist-mode-map "s" 'emms-score-set-playing)
+(define-key emms-playlist-mode-map "r" 'emms-mpd-init)
+(define-key emms-playlist-mode-map "N"  'emms-playlist-new)
+
+(define-key emms-playlist-mode-map "x" 'emms-start)
+(define-key emms-playlist-mode-map "v" 'emms-stop)
+(define-key emms-playlist-mode-map "n" 'emms-next)
+(define-key emms-playlist-mode-map "p" 'emms-previous)
+
+(setq emms-playlist-buffer-name "*EMMS Playlist*"
+      emms-playlist-mode-open-playlists t)
+
 ;; Faces
 (if (window-system)
     ((lambda ()
 ;; Faces
 (if (window-system)
     ((lambda ()