Remove emms

This commit is contained in:
Case Duckworth 2022-02-07 17:09:20 -06:00
parent 5efe60c74b
commit e8bcf53e55
1 changed files with 0 additions and 40 deletions

40
init.el
View File

@ -1236,46 +1236,6 @@ See also `crux-reopen-as-root-mode'."
(:load-after consult embark)
(add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode))
(setup (:straight (emms
:type git
:flavor melpa
:files ("*.el"
"lisp/*.el"
"doc/emms.info"
"doc/emms.texinfo"
"emms-pkg.el")
:pre-build ("make" "-Cdoc")
:repo "https://git.savannah.gnu.org/git/emms.git"))
(:also-load +emms)
;; TODO: Definitely need to do more customization here
(:option emms-source-file-default-directory "~/var/music/"
emms-player-mpv-update-metadata t)
(dolist (hook '(emms-browser-mode-hook
emms-lyrics-mode-hook
emms-playlist-mode-hook
emms-tag-editor-mode-hook))
(add-hook hook #'turn-off-+key-mode)
(add-hook hook #'turn-off-user-save-mode))
(require 'emms-setup)
(emms-all)
(emms-default-players)
;; Streaming
(require 'emms-streams)
(:option emms-streams-file (sync/ "emacs/streams.emms"))
;; Mode line
(:option emms-mode-line-icon-enabled-p t
emms-mode-line-format "%s"
emms-mode-line-mode-line-function ;#'emms-mode-line-icon-function
(defun +emms-mode-line-truncate ()
(let ((current-trunc (concat "{"
(+string-truncate
(emms-mode-line-playlist-current)
24)
"} ")))
current-trunc)))
(emms-mode-line-mode +1)
(emms-playing-time-mode -1))
(setup (:straight epithet)
(dolist (hook '(Info-selection-hook
eww-after-render-hook