elfeed: update keybindings and feeds

1 files changed, 9 insertions, 6 deletions

diff --git a/.emacs.d/modules/thanos-elfeed.el b/.emacs.d/modules/thanos-elfeed.el
index 630c902..20701d7 100644
--- a/.emacs.d/modules/thanos-elfeed.el
+++ b/.emacs.d/modules/thanos-elfeed.el
@@ -99,14 +99,16 @@
 	("https://wp.medscape.com/cx/rssfeeds/2700.xml"
 	 med medscape)
 	("https://nyxt.atlas.engineer/feed"
-	 nyxt)))
+	 nyxt)
+	("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)
-  "Youtube-feed link"
+  "Play video link with mpv."
   (interactive "P")
   (let ((entries (elfeed-search-selected)))
     (cl-loop for entry in entries
@@ -116,10 +118,6 @@
     (mapc #'elfeed-search-update-entry entries)
     (unless (use-region-p) (forward-line))))
 
-(define-key elfeed-search-mode-map (kbd "v") 'elfeed-view-mpv)
-(define-key elfeed-search-mode-map (kbd "U") 'elfeed-update)
-(define-key thanos/applications-map (kbd "f") 'elfeed)
-
 (setf elfeed-goodies/entry-pane-size 0.55)
 (elfeed-goodies/setup)
 
@@ -127,5 +125,10 @@
 (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 "U") 'elfeed-update)
+(define-key thanos/applications-map (kbd "f") 'elfeed)
+
 (provide 'thanos-elfeed)
 ;;; thanos-elfeed.el ends here