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

small fixes to empv with my invidious instance

Browse source
This commit is contained in:
Chris Cochrun 2024-04-10 06:30:57 -05:00
parent 7ab0ade216
commit b759b18c8b
2 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
README.org
View file

@ -465,6 +465,7 @@ Let's turn auto update on for proced
I think I like this interface to controlling bluetooth the most I think I like this interface to controlling bluetooth the most
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package bluetooth (use-package bluetooth
:after general
:general :general
(chris/leader-keys (chris/leader-keys
"oT" 'bluetooth-list-devices)) "oT" 'bluetooth-list-devices))
@ -4635,7 +4636,7 @@ With empv we can perhaps control mpv much more fine grainly and even search yout
"i" 'empv-youtube-results-inspect "i" 'empv-youtube-results-inspect
"d" 'chris/empv-yt-dlp "d" 'chris/empv-yt-dlp
"D" 'chris/empv-yt-dlp-jellyfin) "D" 'chris/empv-yt-dlp-jellyfin)
(chris/leader-keys (general-def
:states 'normal :states 'normal
:keymaps 'dired-mode-map :keymaps 'dired-mode-map
"vi" 'chris/dired-empv-play-or-enqueue)) "vi" 'chris/dired-empv-play-or-enqueue))
@ -4739,8 +4740,12 @@ q quit-window
(if (string= enclosure nil) (if (string= enclosure nil)
link link
enclosure))) enclosure)))
(final-url (if (string-prefix-p "https://inv.cochrun.xyz/" url)
(string-replace "https://inv.cochrun.xyz/" "https://youtube.com/" url)
url))
(title (elfeed-entry-title entry))) (title (elfeed-entry-title entry)))
(empv-play-or-enqueue url) (empv-play-or-enqueue final-url)
(message "Playing: %s from %s" title final-url)
(elfeed-search-untag-all-unread))) (elfeed-search-untag-all-unread)))
(defun chris/empv-ytdlp-play-or-enqueue (process signal video) (defun chris/empv-ytdlp-play-or-enqueue (process signal video)

9
init.el
View file

@ -229,6 +229,7 @@
(setq proced-auto-update-flag t) (setq proced-auto-update-flag t)
(use-package bluetooth (use-package bluetooth
:after general
:general :general
(chris/leader-keys (chris/leader-keys
"oT" 'bluetooth-list-devices)) "oT" 'bluetooth-list-devices))
@ -3394,7 +3395,7 @@ targets."
"i" 'empv-youtube-results-inspect "i" 'empv-youtube-results-inspect
"d" 'chris/empv-yt-dlp "d" 'chris/empv-yt-dlp
"D" 'chris/empv-yt-dlp-jellyfin) "D" 'chris/empv-yt-dlp-jellyfin)
(chris/leader-keys (general-def
:states 'normal :states 'normal
:keymaps 'dired-mode-map :keymaps 'dired-mode-map
"vi" 'chris/dired-empv-play-or-enqueue)) "vi" 'chris/dired-empv-play-or-enqueue))
@ -3416,8 +3417,12 @@ targets."
(if (string= enclosure nil) (if (string= enclosure nil)
link link
enclosure))) enclosure)))
(final-url (if (string-prefix-p "https://inv.cochrun.xyz/" url)
(string-replace "https://inv.cochrun.xyz/" "https://youtube.com/" url)
url))
(title (elfeed-entry-title entry))) (title (elfeed-entry-title entry)))
(empv-play-or-enqueue url) (empv-play-or-enqueue final-url)
(message "Playing: %s from %s" title final-url)
(elfeed-search-untag-all-unread))) (elfeed-search-untag-all-unread)))
(defun chris/empv-ytdlp-play-or-enqueue (process signal video) (defun chris/empv-ytdlp-play-or-enqueue (process signal video)