From a656f2cfda4fdee9c41f4f60dc7b99f47233b86a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 20 Aug 2023 12:06:03 +0300 Subject: emacs: update elfeed-v-mpv --- emacs.org | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'emacs.org') diff --git a/emacs.org b/emacs.org index ec6744d..10a43c2 100755 --- a/emacs.org +++ b/emacs.org @@ -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 -- cgit v1.2.3