[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
|
||||
emms-cache-save
|
||||
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
|
||||
:commands (helm-emms)
|
||||
:config (progn
|
||||
(require 'db-emms)
|
||||
(require 'helm-adaptive)
|
||||
(setq helm-emms-default-sources
|
||||
'(helm-source-emms-streams
|
||||
|
|
|
@ -16,6 +16,9 @@
|
|||
|
||||
;; Basic configuration
|
||||
|
||||
(defvar db/personal-playlist nil
|
||||
"Personal playlist.")
|
||||
|
||||
(setq emms-source-file-default-directory "~/Documents/media/audio/")
|
||||
|
||||
(defadvice emms-tag-editor-submit (after delete-window activate)
|
||||
|
@ -46,9 +49,8 @@
|
|||
(emms-playlist-current-clear)
|
||||
(emms-playlist-current-insert-source
|
||||
'emms-insert-playlist
|
||||
(expand-file-name "private/playlist-daniel.pls"
|
||||
emacs-d))
|
||||
(beginning-of-buffer)
|
||||
db/personal-playlist)
|
||||
(goto-char (point-min))
|
||||
(emms-shuffle)
|
||||
;; (emms-playlist-sort-by-play-count)
|
||||
(emms-playlist-select-first)
|
||||
|
|
Loading…
Reference in New Issue