Remove emms
This commit is contained in:
parent
5efe60c74b
commit
e8bcf53e55
40
init.el
40
init.el
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue