 ;; Track description
 
 (defun db/emms-track-description (track)
+  "Return custom description of TRACK.
+This function can be used as a value for `emms-track-description-function’."
   (require 'seq)
   (let* ((artist    (propertize (emms-track-get track 'info-artist "")
                                 'face 'emms-browser-artist-face))

(require 'emms-stream-info)
(setq emms-stream-default-action "play")

(defun db/emms-track-status ()
  (if emms-player-playing-p
      (format "%s" (emms-track-description
                    (emms-playlist-current-selected-track)))
    "«nothing»"))


;; Hydra

(defhydra emms-control (:color red :hint none)
  "


(setq emms-source-file-default-directory "~/Documents/media/audio/")

(advice-add 'emms-tag-editor-submit :after #'delete-window)

(bind-key "S s" #'emms-shuffle emms-playlist-mode-map)

