parent
30ffd149f6
commit
813d1134ac
4
init.el
4
init.el
|
@ -866,9 +866,7 @@ _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)
|
||||||
|
|
|
@ -40,12 +40,12 @@
|
||||||
|
|
||||||
;; 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/")
|
||||||
|
|
||||||
(advice-add 'emms-tag-editor-submit :after #'delete-window)
|
(advice-add 'emms-tag-editor-submit
|
||||||
|
:after (lambda (&rest r)
|
||||||
|
(declare (ignore r))
|
||||||
|
(delete-window)))
|
||||||
|
|
||||||
(bind-key "S s" #'emms-shuffle emms-playlist-mode-map)
|
(bind-key "S s" #'emms-shuffle emms-playlist-mode-map)
|
||||||
|
|
||||||
|
@ -72,8 +72,8 @@
|
||||||
(emms-playlist-set-playlist-buffer)
|
(emms-playlist-set-playlist-buffer)
|
||||||
(emms-playlist-current-clear)
|
(emms-playlist-current-clear)
|
||||||
(emms-playlist-current-insert-source
|
(emms-playlist-current-insert-source
|
||||||
'emms-insert-playlist
|
'emms-insert-directory-tree
|
||||||
db/personal-playlist)
|
(expand-file-name "songs/" emms-source-file-default-directory))
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(emms-shuffle)
|
(emms-shuffle)
|
||||||
;; (emms-playlist-sort-by-play-count)
|
;; (emms-playlist-sort-by-play-count)
|
||||||
|
|
Loading…
Reference in New Issue