blob: 89a776d0d9b322c017c94843b2ebe44070c6a8b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
;;; 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))
|