chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

music

Browse source
This commit is contained in:
Chris Cochrun 2022-04-07 12:02:19 -05:00
parent 29a8b1553e
commit 1ef1dbed58
2 changed files with 145 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
README.org
View file

@ -37,6 +37,7 @@
- [[#eaf-emacs-application-framework][EAF (Emacs Application Framework)]]
- [[#elfeed][Elfeed]]
- [[#bongo][Bongo]]
- [[#emms][EMMS]]
- [[#transmission][Transmission]]
- [[#pass][Pass]]
- [[#matrixement][Matrix/Ement]]
@ -396,6 +397,7 @@ This evil-collection package includes a lot of other evil based things.
"of" '(:ignore t :which-key "elfeed")
"h" '(:ignore t :which-key "help")
"n" '(:ignore t :which-key "notes")
"m" '(:ignore t :which-key "music")
"l" '(:ignore t :which-key "lsp")
"sp" '(:ignore t :which-key "passwords")
"bs" '(consult-buffer :which-key "buffer search")
@ -2575,13 +2577,19 @@ interfere with the default `bongo-playlist-buffer'."
(use-package bongo
:commands (bongo bongo-playlist-buffer)
:config
(setq bongo-default-directory "~/Music"
bongo-prefer-library-buffers nil
bongo-insert-whole-directory-trees t
bongo-logo nil
bongo-display-playback-mode-indicator t
bongo-display-inline-playback-progress t
bongo-field-separator (propertize " · " 'face 'shadow))
(define-bongo-backend mpv
:constructor 'bongo-start-mpv-player
:program-name 'mpv
:extra-program-arguments '("--profile=fast --input-ipc-server=/tmp/mpvsocket")
:matcher '((local-file "file:" "http:" "ftp:" "lbry:")
"mka" "wav" "wma" "ogm" "opus"
"ogg" "flac" "mp3" "mka" "wav"
"mpg" "mpeg" "vob" "avi" "ogm" "mp4"
"mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts")
:matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:"
@ -2589,8 +2597,23 @@ interfere with the default `bongo-playlist-buffer'."
"cue:" "sdp:" "mpst:" "tivo:") . t)
:matcher '(("http:" "https:" "lbry:") . t))
(setq bongo-enabled-backends '(mpv)
bongo-mpv-extra-arguments '("--profile=fast")
(define-bongo-backend mpv-music
:constructor 'bongo-start-mpv-player
:program-name-variable 'mpv
:extra-program-arguments '("--profile=slow --input-ipc-server=/tmp/mpvsocket")
:matcher '((local-file "file:" "http:" "ftp:" "lbry:")
"mka" "wav" "wma" "ogm" "opus"
"ogg" "flac" "mp3" "mka" "wav")
:matcher '(("http:" "https:" "lbry:") . t))
(setq bongo-custom-backend-matchers '((mpv-music local-file
"mka" "wav" "wma" "ogm" "opus"
"ogg" "flac" "mp3" "mka" "wav")
(mpv local-file
"mpg" "mpeg" "vob" "avi" "ogm" "mp4"
"mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts")))
(setq bongo-enabled-backends '(mpv mpv-music)
bongo-track-mark-icon-file-name "track-mark-icon.png")
(defun chris/bongo-mark-line-forward ()
@ -2613,9 +2636,10 @@ interfere with the default `bongo-playlist-buffer'."
:general
(chris/leader-keys
:states 'normal
"ob" 'bongo
"oB" 'chris/bongo-open-elfeed-queue-buffer)
"oB" 'chris/bongo-open-elfeed-queue-buffer
"mi" 'bongo-insert-enqueue
"mp" 'bongo-pause/resume)
(general-def 'normal bongo-playlist-mode-map
"RET" 'bongo-dwim
"d" 'bongo-kill-line
@ -2636,6 +2660,40 @@ interfere with the default `bongo-playlist-buffer'."
"q" 'bury-buffer))
#+end_src
** EMMS
Since Bongo seems kinda difficult I shall give EMMS another try.
#+begin_src emacs-lisp
(use-package emms
:config
(emms-all)
(evil-collection-emms-setup)
(emms-default-players)
(setq emms-source-file-default-directory "~/Music/")
(defun chris/emms-delete-song ()
"Deletes files in the emms browser by default. Maybe I'll have a yes or no thingy..."
(interactive)
(if (yes-or-no-p "delete the file too?")
(emms-browser-remove-tracks t)
(emms-browser-remove-tracks)))
:general
(chris/leader-keys
:states 'normal
:keymaps 'override
"mo" 'emms
"mb" 'emms-browser
"mp" 'emms-pause)
(general-def 'normal emms-playlist-mode-map
"q" 'bury-buffer
"d" 'emms-playlist-mode-kill-track
"D" 'emms-playlist-mode-goto-dired-at-point)
(general-def 'normal emms-browser-mode-map
"q" 'bury-buffer
"d" 'chris/emms-delete-song
"D" 'emms-browser-view-in-dired))
#+end_src
** Transmission
I use transmission on a server to manage my torrents
#+begin_src emacs-lisp

68
init.el
View file

@ -229,6 +229,7 @@
"of" '(:ignore t :which-key "elfeed")
"h" '(:ignore t :which-key "help")
"n" '(:ignore t :which-key "notes")
"m" '(:ignore t :which-key "music")
"l" '(:ignore t :which-key "lsp")
"sp" '(:ignore t :which-key "passwords")
"bs" '(consult-buffer :which-key "buffer search")
@ -1874,13 +1875,19 @@ interfere with the default `bongo-playlist-buffer'."
(use-package bongo
:commands (bongo bongo-playlist-buffer)
:config
(setq bongo-default-directory "~/Music"
bongo-prefer-library-buffers nil
bongo-insert-whole-directory-trees t
bongo-logo nil
bongo-display-playback-mode-indicator t
bongo-display-inline-playback-progress t
bongo-field-separator (propertize " · " 'face 'shadow))
(define-bongo-backend mpv
:constructor 'bongo-start-mpv-player
:program-name 'mpv
:extra-program-arguments '("--profile=fast --input-ipc-server=/tmp/mpvsocket")
:matcher '((local-file "file:" "http:" "ftp:" "lbry:")
"mka" "wav" "wma" "ogm" "opus"
"ogg" "flac" "mp3" "mka" "wav"
"mpg" "mpeg" "vob" "avi" "ogm" "mp4"
"mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts")
:matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:"
@ -1888,8 +1895,23 @@ interfere with the default `bongo-playlist-buffer'."
"cue:" "sdp:" "mpst:" "tivo:") . t)
:matcher '(("http:" "https:" "lbry:") . t))
(setq bongo-enabled-backends '(mpv)
bongo-mpv-extra-arguments '("--profile=fast")
(define-bongo-backend mpv-music
:constructor 'bongo-start-mpv-player
:program-name-variable 'mpv
:extra-program-arguments '("--profile=slow --input-ipc-server=/tmp/mpvsocket")
:matcher '((local-file "file:" "http:" "ftp:" "lbry:")
"mka" "wav" "wma" "ogm" "opus"
"ogg" "flac" "mp3" "mka" "wav")
:matcher '(("http:" "https:" "lbry:") . t))
(setq bongo-custom-backend-matchers '((mpv-music local-file
"mka" "wav" "wma" "ogm" "opus"
"ogg" "flac" "mp3" "mka" "wav")
(mpv local-file
"mpg" "mpeg" "vob" "avi" "ogm" "mp4"
"mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts")))
(setq bongo-enabled-backends '(mpv mpv-music)
bongo-track-mark-icon-file-name "track-mark-icon.png")
(defun chris/bongo-mark-line-forward ()
@ -1912,9 +1934,10 @@ interfere with the default `bongo-playlist-buffer'."
:general
(chris/leader-keys
:states 'normal
"ob" 'bongo
"oB" 'chris/bongo-open-elfeed-queue-buffer)
"oB" 'chris/bongo-open-elfeed-queue-buffer
"mi" 'bongo-insert-enqueue
"mp" 'bongo-pause/resume)
(general-def 'normal bongo-playlist-mode-map
"RET" 'bongo-dwim
"d" 'bongo-kill-line
@ -1934,6 +1957,36 @@ interfere with the default `bongo-playlist-buffer'."
"H" 'bongo-switch-buffers
"q" 'bury-buffer))
(use-package emms
:config
(emms-all)
(evil-collection-emms-setup)
(emms-default-players)
(setq emms-source-file-default-directory "~/Music/")
(defun chris/emms-delete-song ()
"Deletes files in the emms browser by default. Maybe I'll have a yes or no thingy..."
(interactive)
(if (yes-or-no-p "delete the file too?")
(emms-browser-remove-tracks t)
(emms-browser-remove-tracks)))
:general
(chris/leader-keys
:states 'normal
:keymaps 'override
"mo" 'emms
"mb" 'emms-browser
"mp" 'emms-pause)
(general-def 'normal emms-playlist-mode-map
"q" 'bury-buffer
"d" 'emms-playlist-mode-kill-track
"D" 'emms-playlist-mode-goto-dired-at-point)
(general-def 'normal emms-browser-mode-map
"q" 'bury-buffer
"d" 'chris/emms-delete-song
"D" 'emms-browser-view-in-dired))
(use-package transmission
:commands (transmission)
:config
@ -2034,8 +2087,6 @@ interfere with the default `bongo-playlist-buffer'."
gcmh-verbose nil))
(setq warning-suppress-types '((comp)))
<<<<<<< HEAD
=======
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
@ -2053,4 +2104,3 @@ interfere with the default `bongo-playlist-buffer'."
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
>>>>>>> origin/master