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

fixing bongo

Browse source
This commit is contained in:
Chris Cochrun 2021-06-25 13:23:50 -05:00
parent eaee5317f0
commit 0efea84ffc
2 changed files with 18 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
README.org
View file

@ -1843,23 +1843,12 @@ interfere with the default `bongo-playlist-buffer'."
(use-package bongo (use-package bongo
:commands (bongo bongo-playlist-buffer) :commands (bongo bongo-playlist-buffer)
:config :config
(define-bongo-backend mpv-slow (define-bongo-backend mpv
:program-name 'mpv
:constructor 'bongo-start-mpv-player
:extra-program-arguments '("--profile=slow --input-ipc-server=/tmp/mpvsocket")
:matcher '((local-file "file:" "http:" "ftp:" "lbry:")
"ogg" "flac" "mp3" "mka" "wav"
"ogm" "opus" )
:matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:"
"dvd:" "vcd:" "tv:" "dvb:" "mf:" "cdda:" "cddb:"
"cue:" "sdp:" "mpst:" "tivo:") . t)
:matcher '(("http:" "https:" "lbry:") . t))
(define-bongo-backend mpv-fast
:constructor 'bongo-start-mpv-player :constructor 'bongo-start-mpv-player
:extra-program-arguments '("--profile=fast --input-ipc-server=/tmp/mpvsocket") :extra-program-arguments '("--profile=fast --input-ipc-server=/tmp/mpvsocket")
:matcher '((local-file "file:" "http:" "ftp:" "lbry:") :matcher '((local-file "file:" "http:" "ftp:" "lbry:")
"mka" "wav" "wma" "mka" "wav" "wma" "ogm" "opus"
"ogg" "flac" "mp3" "mka" "wav"
"mpg" "mpeg" "vob" "avi" "ogm" "mp4" "mpg" "mpeg" "vob" "avi" "ogm" "mp4"
"mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts") "mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts")
:matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:" :matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:"
@ -1867,7 +1856,7 @@ interfere with the default `bongo-playlist-buffer'."
"cue:" "sdp:" "mpst:" "tivo:") . t) "cue:" "sdp:" "mpst:" "tivo:") . t)
:matcher '(("http:" "https:" "lbry:") . t)) :matcher '(("http:" "https:" "lbry:") . t))
(setq bongo-enabled-backends '(mpv-fast mpv-slow) (setq bongo-enabled-backends '(mpv)
bongo-track-mark-icon-file-name "track-mark-icon.png") bongo-track-mark-icon-file-name "track-mark-icon.png")
(defun chris/bongo-mark-line-forward () (defun chris/bongo-mark-line-forward ()
@ -1880,6 +1869,10 @@ interfere with the default `bongo-playlist-buffer'."
(interactive) (interactive)
(bongo-mpv-player-pause/resume bongo-player)) (bongo-mpv-player-pause/resume bongo-player))
(defun chris/bongo-mpv-speed-up ()
(interactive)
(bongo--run-mpv-command bongo-player "speed" "set" "speed" "1.95"))
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal
@ -1893,6 +1886,7 @@ interfere with the default `bongo-playlist-buffer'."
"P" 'bongo-yank "P" 'bongo-yank
"H" 'bongo-switch-buffers "H" 'bongo-switch-buffers
"q" 'bury-buffer "q" 'bury-buffer
"+" 'chris/bongo-mpv-speed-up
"m" 'chris/bongo-mark-line-forward) "m" 'chris/bongo-mark-line-forward)
(general-def 'normal bongo-library-mode-map (general-def 'normal bongo-library-mode-map
"RET" 'bongo-dwim "RET" 'bongo-dwim

24
init.el
View file

@ -1375,23 +1375,12 @@ interfere with the default `bongo-playlist-buffer'."
(use-package bongo (use-package bongo
:commands (bongo bongo-playlist-buffer) :commands (bongo bongo-playlist-buffer)
:config :config
(define-bongo-backend mpv-slow (define-bongo-backend mpv
:program-name 'mpv
:constructor 'bongo-start-mpv-player
:extra-program-arguments '("--profile=slow --input-ipc-server=/tmp/mpvsocket")
:matcher '((local-file "file:" "http:" "ftp:" "lbry:")
"ogg" "flac" "mp3" "mka" "wav"
"ogm" "opus" )
:matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:"
"dvd:" "vcd:" "tv:" "dvb:" "mf:" "cdda:" "cddb:"
"cue:" "sdp:" "mpst:" "tivo:") . t)
:matcher '(("http:" "https:" "lbry:") . t))
(define-bongo-backend mpv-fast
:constructor 'bongo-start-mpv-player :constructor 'bongo-start-mpv-player
:extra-program-arguments '("--profile=fast --input-ipc-server=/tmp/mpvsocket") :extra-program-arguments '("--profile=fast --input-ipc-server=/tmp/mpvsocket")
:matcher '((local-file "file:" "http:" "ftp:" "lbry:") :matcher '((local-file "file:" "http:" "ftp:" "lbry:")
"mka" "wav" "wma" "mka" "wav" "wma" "ogm" "opus"
"ogg" "flac" "mp3" "mka" "wav"
"mpg" "mpeg" "vob" "avi" "ogm" "mp4" "mpg" "mpeg" "vob" "avi" "ogm" "mp4"
"mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts") "mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts")
:matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:" :matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:"
@ -1399,7 +1388,7 @@ interfere with the default `bongo-playlist-buffer'."
"cue:" "sdp:" "mpst:" "tivo:") . t) "cue:" "sdp:" "mpst:" "tivo:") . t)
:matcher '(("http:" "https:" "lbry:") . t)) :matcher '(("http:" "https:" "lbry:") . t))
(setq bongo-enabled-backends '(mpv-fast mpv-slow) (setq bongo-enabled-backends '(mpv)
bongo-track-mark-icon-file-name "track-mark-icon.png") bongo-track-mark-icon-file-name "track-mark-icon.png")
(defun chris/bongo-mark-line-forward () (defun chris/bongo-mark-line-forward ()
@ -1412,6 +1401,10 @@ interfere with the default `bongo-playlist-buffer'."
(interactive) (interactive)
(bongo-mpv-player-pause/resume bongo-player)) (bongo-mpv-player-pause/resume bongo-player))
(defun chris/bongo-mpv-speed-up ()
(interactive)
(bongo--run-mpv-command bongo-player "speed" "set" "speed" "1.95"))
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal
@ -1425,6 +1418,7 @@ interfere with the default `bongo-playlist-buffer'."
"P" 'bongo-yank "P" 'bongo-yank
"H" 'bongo-switch-buffers "H" 'bongo-switch-buffers
"q" 'bury-buffer "q" 'bury-buffer
"+" 'chris/bongo-mpv-speed-up
"m" 'chris/bongo-mark-line-forward) "m" 'chris/bongo-mark-line-forward)
(general-def 'normal bongo-library-mode-map (general-def 'normal bongo-library-mode-map
"RET" 'bongo-dwim "RET" 'bongo-dwim