diff options
author | Thanos Apollo <[email protected]> | 2023-08-20 12:06:03 +0300 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2023-08-20 12:06:23 +0300 |
commit | a656f2cfda4fdee9c41f4f60dc7b99f47233b86a (patch) | |
tree | 8d0e1b00edbca04fdc2d07737d1669e2e3c33ef4 /emacs.org | |
parent | a1235e08f815df7d87cf975b4ba9b8459415d666 (diff) |
emacs: update elfeed-v-mpv
Diffstat (limited to 'emacs.org')
-rwxr-xr-x | emacs.org | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -814,8 +814,8 @@ Generate a random password between 20 and 40 characters Create function to watch videos using ~mpv~ #+begin_src emacs-lisp (defun elfeed-v-mpv (url) - "Watch a video from URL in MPV" - (call-process-shell-command (format "mpv \"%s\"" url) nil 0)) + "Watch a video from URL in MPV" + (start-process-shell-command "elfeed-video" nil (format "mpv \"%s\"" url))) (defun elfeed-view-mpv (&optional use-generic-p) "Youtube-feed link" @@ -823,9 +823,9 @@ Create function to watch videos using ~mpv~ (let ((entries (elfeed-search-selected))) (cl-loop for entry in entries do (elfeed-untag entry 'unread) - when (elfeed-entry-link entry) - do (elfeed-v-mpv it)) - (mapc #'elfeed-search-update-entry entries) + when (elfeed-entry-link entry) + do (elfeed-v-mpv it)) + (mapc #'elfeed-search-update-entry entries) (unless (use-region-p) (forward-line)))) #+end_src ** Settings & Keys |