diff options
| -rw-r--r-- | .emacs.d/modules/thanos-elfeed.el | 15 |
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 |