diff options
| author | Thanos Apollo <[email protected]> | 2023-09-08 15:25:45 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2023-09-08 15:25:45 +0300 |
| commit | 8b8f09dec4bce11a934e93256c498bb223d41683 (patch) | |
| tree | 6954131294ff67bb020c7d4843f3c775f231bb61 | |
| parent | 87964fa82eccb428c5de2ea0f13ccd108d1768dd (diff) | |
emacs: Update elfeed feeds & rewrite functions
| -rw-r--r-- | .emacs.d/modules/thanos-elfeed.el | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/.emacs.d/modules/thanos-elfeed.el b/.emacs.d/modules/thanos-elfeed.el index 20701d7..cd4c6b5 100644 --- a/.emacs.d/modules/thanos-elfeed.el +++ b/.emacs.d/modules/thanos-elfeed.el @@ -31,6 +31,8 @@ (require 'elfeed) (require 'elfeed-goodies) + + (setf elfeed-feeds '(("https://hackaday.com/blog/feed/" hackaday linux) @@ -60,8 +62,6 @@ video zoogirl) ("https://www.youtube.com/feeds/videos.xml?channel_id=UC0uTPqBCFIpZxlz_Lv1tk_g" video prot) - ("https://www.youtube.com/feeds/videos.xml?channel_id=UCq6VFHwMzcMXbuKyG7SQYIg" - video moist) ("https://www.youtube.com/feeds/videos.xml?channel_id=UC05XpvbHZUQOfA6xk4dlmcw" video djware) ("https://archlinux.org/feeds/news/" @@ -80,8 +80,6 @@ hackernoon) ("https://sachachua.com/blog/feed/" sacha emacs) - ("https://www.youtube.com/feeds/videos.xml?channel_id=UCtMVHI3AJD4Qk4hcbZnI9ZQ" - video OrdinaeryGamers) ("https://www.youtube.com/feeds/videos.xml?channel_id=UCl2mFZoRqjw_ELax4Yisf6w" video Louis) ("https://www.youtube.com/feeds/videos.xml?channel_id=UC1yNl2E66ZzKApQdRuTQ4tw " @@ -103,30 +101,22 @@ ("https://www.science.org/action/showFeed?type=etoc&feed=rss&jc=sciimmunol" science))) -(defun elfeed-v-mpv (url) - "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) +(defun elfeed-mpv (&optional use-generic-p) "Play video link with mpv." (interactive "P") (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)) + do (start-process-shell-command "elfeed-video" nil (format "mpv \"%s\"" it))) (mapc #'elfeed-search-update-entry entries) (unless (use-region-p) (forward-line)))) (setf elfeed-goodies/entry-pane-size 0.55) (elfeed-goodies/setup) -(setf eshell-visual-commands '()) -(eat-eshell-mode 1) - - (define-key thanos/applications-map (kbd "f") 'elfeed) -(define-key elfeed-search-mode-map (kbd "v") 'elfeed-view-mpv) +(define-key elfeed-search-mode-map (kbd "v") 'elfeed-mpv) (define-key elfeed-search-mode-map (kbd "U") 'elfeed-update) (define-key thanos/applications-map (kbd "f") 'elfeed) |