;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:


(defun emms-quickstart ()
  "Queues a shuffled playlist and starts
playback."
  (interactive)
  (emms-stop)
  (when (bufferp emms-playlist-buffer-name)
    (kill-buffer emms-playlist-buffer-name))
  (emms-play-directory-tree (expand-file-name "~/ik/music/"))
  (emms-shuffle))


(use-package emms
  :bind (("C-z C-s" . 'emms-quickstart))
  :config
  (emms-all)
  (require 'emms-player-mpv)
  (add-to-list 'emms-player-list 'emms-player-mpv)
  (keymap-global-set "C-z C-m"  (lambda ()
                                  (interactive)
                                  (if (get-buffer emms-playlist-buffer-name)
                                      (display-buffer emms-playlist-buffer-name)
                                    (message "The Ainur cannot hear you..."))))
  (emms-playing-time-disable-display)
  (setopt emms-track-description-function
          '(lambda (track)
             (let ((artist (emms-track-get track 'info-artist))
                   (title  (emms-track-get track 'info-title)))
               (cond
                ((and artist title)
                 (concat artist " - " title))
                (title
                 title)
                (t
                 (emms-track-simple-description track))))))
  (keymap-set emms-playlist-mode-map "q" #'quit-window)
  (setq-default
   emms-playlist-default-major-mode 'emms-playlist-mode

   emms-player-list '(emms-player-mpv)
   emms-player-mpv-environment '("PULSE_PROP_media.role=music")
   emms-player-mpv-parameters '("--quiet" "--really-quiet" "--no-audio-display" "--force-window=no" "--vo=null"))
  :custom
  ;; set dir and volume keys
  (emms-source-file-default-directory (expand-file-name "~/ik/playlists/"))
  ;; misc
  (emms-info-report-each-num-tracks 2000)
  (emms-playlist-buffer-name "*Playlist*")
  (emms-mode-line-format " %s "))

(provide 'bd--emms)
;;; bd-emms ends here