#contents
* 個人的な設定 [#mb478d4b]
(add-to-load-path "~/.emacs.d/elisp/emms")
(add-to-list 'exec-path (expand-file-name "~/.emacs.d/elisp/emms"))
(require 'emms-setup)
(require 'emms-browser)
(emms-all)
(emms-default-players)
(setq emms-source-file-default-directory "/mnt/storage/media/music/")
(require 'emms-info-libtag)
(setq emms-info-functions '(emms-info-libtag))
(define-key emms-playlist-mode-map "\C-p" 'scroll-down)
(define-key emms-playlist-mode-map "\C-n" 'scroll-up)
(define-key emms-playlist-mode-map "\M-p" 'scroll-up-in-place)
(define-key emms-playlist-mode-map "\M-n" 'scroll-down-in-place)
(set-face-attribute
'emms-playlist-selected-face nil
:inverse-video nil
:foreground "yellow")
;; プレイリストの表示フォーマット
;; タグに曲名が設定されている場合は，次のフォーマットを表示
;; <アルバム名>:<トラック番号>:<曲名>
;; それ以外の場合はファイル名を表示
(defun emms-track-my-description (track)
(let ((type (emms-track-type track)))
(cond ((eq 'file type)
(if (emms-track-get track 'info-title)
(progn
(concat
(emms-track-get track 'info-album)
":"
(format "%02d"
(string-to-number
(emms-track-get track 'info-tracknumber)))
":"
(emms-track-get track 'info-title)))
(emms-track-get track 'name)))
((eq 'url type)
(emms-format-url-track-name (emms-track-name track)))
(t (concat (symbol-name type)
": " (emms-track-name track))))))
(setq emms-track-description-function 'emms-track-my-description)
(require 'emms-mark)
;; (setq emms-playlist-default-major-mode 'emms-mark-mode)
;; ALSAのデバイス番号に，"1"を指定する
(custom-set-variables
'(emms-player-ogg123-parameters
(list "-d" "alsa" "-o" "dev:hw:1")))
