[EMMS] Minor cleanup for configuration
This commit is contained in:
parent
1f0798e96d
commit
2fe2a55b59
11
init.el
11
init.el
|
@ -994,18 +994,19 @@ are assumed to be of the form *.crt."
|
||||||
|
|
||||||
;; * Media
|
;; * Media
|
||||||
|
|
||||||
(use-package db-emms
|
(use-package emms-setup
|
||||||
:commands (db/play-playlist
|
:commands (emms-streams
|
||||||
emms-streams
|
|
||||||
emms-play-dired
|
emms-play-dired
|
||||||
emms-play-file
|
emms-play-file
|
||||||
emms-play-directory
|
emms-play-directory
|
||||||
emms-control/body))
|
db/play-playlist
|
||||||
|
emms-control/body)
|
||||||
|
:config (require 'db-emms))
|
||||||
|
|
||||||
(use-package helm-emms
|
(use-package helm-emms
|
||||||
:commands (helm-emms)
|
:commands (helm-emms)
|
||||||
:config (progn
|
:config (progn
|
||||||
(require 'db-emms)
|
(require 'emms-setup)
|
||||||
(require 'helm-adaptive)
|
(require 'helm-adaptive)
|
||||||
(setq helm-emms-default-sources
|
(setq helm-emms-default-sources
|
||||||
'(helm-source-emms-streams
|
'(helm-source-emms-streams
|
||||||
|
|
|
@ -34,17 +34,15 @@
|
||||||
|
|
||||||
;; Setup
|
;; Setup
|
||||||
|
|
||||||
(require 'emms)
|
(message "Loading db-emms")
|
||||||
|
|
||||||
|
(require 'emms-setup)
|
||||||
(emms-all)
|
(emms-all)
|
||||||
(emms-default-players)
|
(emms-default-players)
|
||||||
|
|
||||||
|
|
||||||
;; Basic configuration
|
;; Basic configuration
|
||||||
|
|
||||||
(require 'emms-source-file)
|
|
||||||
(require 'emms-playlist-mode)
|
|
||||||
(require 'emms-info)
|
|
||||||
|
|
||||||
(setq emms-source-file-default-directory "~/Documents/media/audio/")
|
(setq emms-source-file-default-directory "~/Documents/media/audio/")
|
||||||
|
|
||||||
(advice-add 'emms-tag-editor-submit
|
(advice-add 'emms-tag-editor-submit
|
||||||
|
@ -176,7 +174,6 @@ When NO-NEWLINE is non-nil, do not insert a newline after the track."
|
||||||
|
|
||||||
;; Streams
|
;; Streams
|
||||||
|
|
||||||
(require 'emms-streams)
|
|
||||||
(setq emms-stream-default-action "play")
|
(setq emms-stream-default-action "play")
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue