;;; graveyard.el --- stuff i'm not currently using right now

;;; Commentary:

;; I spent a long time configuring these packages!  And they're misbehaving,
;; boo.  So into the graveyard they go.

;;; Code:

(use-package emms
  :ensure t
  :init
  (require 'emms-setup)
  (autoload #'+emms-streams "+emms" nil t)
  (defkeys t "C-c p s" #'+emms-streams)
  (defhook (emms-playlist-mode-hook
            emms-browser-mode-hook
            emms-show-all-mode-hook)
    #'hl-line-mode
    #'show-paren-mode)
  :config
  (require '+emms)
  (emms-all)
  (emms-default-players)
  (emms-browser-make-filter "all" #'ignore)
  (emms-browser-make-filter "recent"
                            (lambda (track)
                              (< 30 (time-to-number-of-days
                                     (time-subtract (current-time)
                                                    (emms-info-track-file-mtime
                                                     track))))))
  (emms-browser-set-filter (assoc "all" emms-browser-filters))
  (emms-history-load)
  (emms-playing-time-mode -1)
  :bind
  (("C-c p p" . emms-pause)
   ("C-c p b" . emms-browser)
   ("C-c p l" . emms-playlist-mode-go))
  :custom
  (emms-source-file-default-directory (expand-file-name "~/var/music/"))
  (emms-source-playlist-default-format 'm3u)
  (emms-playlist-mode-center-when-go t)
  (emms-playlist-default-major-mode 'emms-playlist-mode)
  (emms-player-mpv-update-metadata t)
  (emms-browser-covers #'emms-browser-cache-thumbnail-async)
  (emms-browser-thumbnail-small-size 64)
  (emms-browser-thumbnail-medium-size 128)
  (emms-streams-file (expand-file-name "streams.emms"
                                       emms-source-file-default-directory))
  (emms-mode-line-mode-line-function nil))