summaryrefslogtreecommitdiff
path: root/emacs.org
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-08-20 12:06:03 +0300
committerThanos Apollo <[email protected]>2023-08-20 12:06:23 +0300
commita656f2cfda4fdee9c41f4f60dc7b99f47233b86a (patch)
tree8d0e1b00edbca04fdc2d07737d1669e2e3c33ef4 /emacs.org
parenta1235e08f815df7d87cf975b4ba9b8459415d666 (diff)
emacs: update elfeed-v-mpv
Diffstat (limited to 'emacs.org')
-rwxr-xr-xemacs.org10
1 files changed, 5 insertions, 5 deletions
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