From 279a8978629960ccabc3245ef7073ec9b4c8fec0 Mon Sep 17 00:00:00 2001
From: Jeetaditya Chatterjee <jeetelongname@gmail.com>
Date: Mon, 27 Sep 2021 01:21:51 +0100
Subject: [PATCH] feat(rss): add +rss/copy-link command

Add the copy link function and bind it to `gc` as a way to draw similar
comparisons to `go` which takes the entry link and sends it to the
browser
---
 modules/app/rss/autoload.el | 9 ++++++++-
 modules/app/rss/config.el   | 6 +++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/modules/app/rss/autoload.el b/modules/app/rss/autoload.el
index 2f742348a..a53ceaef4 100644
--- a/modules/app/rss/autoload.el
+++ b/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
 
diff --git a/modules/app/rss/config.el b/modules/app/rss/config.el
index 4f30c1b9e..7adca8c47 100644
--- a/modules/app/rss/config.el
+++ b/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