[EMMS] Minor fixes
This commit is contained in:
parent
75599362bd
commit
efad33d752
5
init.el
5
init.el
|
@ -893,11 +893,14 @@ _h_ _l_ _o_k _y_ank
|
||||||
db/play-playlist
|
db/play-playlist
|
||||||
emms-cache-save
|
emms-cache-save
|
||||||
emms-play-directory-tree
|
emms-play-directory-tree
|
||||||
emms-control/body))
|
emms-control/body)
|
||||||
|
:config (setq db/personal-playlist
|
||||||
|
(expand-file-name "private/playlist-daniel.pls" emacs-d)))
|
||||||
|
|
||||||
(use-package helm-emms
|
(use-package helm-emms
|
||||||
:commands (helm-emms)
|
:commands (helm-emms)
|
||||||
:config (progn
|
:config (progn
|
||||||
|
(require 'db-emms)
|
||||||
(require 'helm-adaptive)
|
(require 'helm-adaptive)
|
||||||
(setq helm-emms-default-sources
|
(setq helm-emms-default-sources
|
||||||
'(helm-source-emms-streams
|
'(helm-source-emms-streams
|
||||||
|
|
|
@ -16,6 +16,9 @@
|
||||||
|
|
||||||
;; Basic configuration
|
;; Basic configuration
|
||||||
|
|
||||||
|
(defvar db/personal-playlist nil
|
||||||
|
"Personal playlist.")
|
||||||
|
|
||||||
(setq emms-source-file-default-directory "~/Documents/media/audio/")
|
(setq emms-source-file-default-directory "~/Documents/media/audio/")
|
||||||
|
|
||||||
(defadvice emms-tag-editor-submit (after delete-window activate)
|
(defadvice emms-tag-editor-submit (after delete-window activate)
|
||||||
|
@ -46,9 +49,8 @@
|
||||||
(emms-playlist-current-clear)
|
(emms-playlist-current-clear)
|
||||||
(emms-playlist-current-insert-source
|
(emms-playlist-current-insert-source
|
||||||
'emms-insert-playlist
|
'emms-insert-playlist
|
||||||
(expand-file-name "private/playlist-daniel.pls"
|
db/personal-playlist)
|
||||||
emacs-d))
|
(goto-char (point-min))
|
||||||
(beginning-of-buffer)
|
|
||||||
(emms-shuffle)
|
(emms-shuffle)
|
||||||
;; (emms-playlist-sort-by-play-count)
|
;; (emms-playlist-sort-by-play-count)
|
||||||
(emms-playlist-select-first)
|
(emms-playlist-select-first)
|
||||||
|
|
Loading…
Reference in New Issue