merge: pull request #5523 from jeetelongname/elfeed-improvements

improve `:app rss` module

modules/app/rss/README.org

@@ -30,6 +30,7 @@ This module has no dedicated maintainers.
 
 ** Plugins
 + [[https://github.com/skeeto/elfeed][elfeed]]
++ [[https://github.com/algernon/elfeed-goodies][elfeed-goodies]] 
 + =+org=
   + [[https://github.com/remyhonig/elfeed-org][elfeed-org]]
 
@@ -73,7 +74,7 @@ When using ~+org~ flag then configuration is easier. You can use ~org-mode~ to c
 ** Keybindings
 + General
   | Key     | Mode               | Description                    |
-  |---------+--------------------+------------------------|
+  |---------+--------------------+--------------------------------|
   | =S-RET= | Elfeed-search-mode | Open link into browser         |
   | =RET=   | Elfeed-search-mode | Open item                      |
   | =s=     | Elfeed-search-mode | Filter                         |
@@ -85,6 +86,7 @@ When using ~+org~ flag then configuration is easier. You can use ~org-mode~ to c
   |-----+-----------------------------|
   | q   | elfeed-kill-buffer          |
   | r   | elfeed-search-update--force |
+  | g c | Copy link of current entry  |
 
 ** News filtering
 + Time filtering

modules/app/rss/autoload.el

@@ -54,7 +54,14 @@
     (forward-line -1)
     (call-interactively '+rss/open)))
 
-
+;;;###autoload
+(defun +rss/copy-link ()
+  "Copy current link to clipboard."
+  (interactive)
+  (let ((link (elfeed-entry-link elfeed-show-entry)))
+    (when link
+      (kill-new link)
+      (message "Copied %s to clipboard" link))))
 ;;
 ;; Hooks
 

modules/app/rss/config.el

@@ -58,7 +58,11 @@ easier to scroll through.")
     (evil-define-key 'normal elfeed-search-mode-map
       "q" #'elfeed-kill-buffer
       "r" #'elfeed-search-update--force
-      (kbd "M-RET") #'elfeed-search-browse-url)))
+      (kbd "M-RET") #'elfeed-search-browse-url)
+    (map! (:map elfeed-show-mode-map
+       :n "gc" nil
+       :n "gc" #'+rss/copy-link))))
+
 
 
 (use-package! elfeed-org
@@ -76,3 +80,8 @@ easier to scroll through.")
         (dolist (file (cl-remove-if #'file-exists-p files))
           (message "elfeed-org: ignoring %S because it can't be read" file))
         (setq rmh-elfeed-org-files (cl-remove-if-not #'file-exists-p files))))))
+
+(use-package! elfeed-goodies
+  :after elfeed
+  :config
+  (elfeed-goodies/setup))

modules/app/rss/packages.el

@@ -2,5 +2,6 @@
 ;;; app/rss/packages.el
 
 (package! elfeed :pin "162d7d545ed41c27967d108c04aa31f5a61c8e16")
+(package! elfeed-goodies :pin "95b4ea632fbd5960927952ec8f3394eb88da4752")
 (when (featurep! +org)
   (package! elfeed-org :pin "268efdd0121fa61f63b722c30e0951c5d31224a4"))