36 lines
893 B
EmacsLisp
36 lines
893 B
EmacsLisp
|
;;; db-music.el -- Music related stuff -*- lexical-binding: t -*-
|
|||
|
|
|
|||
|
|
;;; Commentary:
|
|||
|
|
|
|||
|
|
;;; Code:
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; Custom playlist
|
|||
|
|
|
|||
|
|
(defun db/play-playlist ()
|
|||
|
|
"Start playing songs from `db/playlist’"
|
|||
|
|
(interactive)
|
|||
|
|
(require 'emms)
|
|||
|
|
(save-window-excursion
|
|||
|
|
(let ((music-buffer-name "*EMMS Playlist* -- Personal"))
|
|||
|
|
(unless (get-buffer music-buffer-name)
|
|||
|
|
(emms-playlist-new music-buffer-name))
|
|||
|
|
(with-current-buffer (get-buffer music-buffer-name)
|
|||
|
|
(emms-stop)
|
|||
|
|
(emms-playlist-set-playlist-buffer)
|
|||
|
|
(emms-playlist-current-clear)
|
|||
|
|
(dolist (track db/playlist)
|
|||
|
|
(when (eq :include (cdr track))
|
|||
|
|
(emms-playlist-current-insert-source 'emms-insert-file (car track))))
|
|||
|
|
(goto-char (point-min))
|
|||
|
|
(emms-shuffle)
|
|||
|
|
(emms-playlist-select-first)
|
|||
|
|
(emms-start)))))
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; End
|
|||
|
|
|
|||
|
|
(provide 'db-music)
|
|||
|
|
|
|||
|
|
;;; db-music ends here
|