jao-r2e: toggle (un)subscribed feeds, kill url

1 files changed, 18 insertions, 0 deletions

diff --git a/lib/eos/jao-r2e.el b/lib/eos/jao-r2e.el
index fa20ddb..24b6429 100644
--- a/lib/eos/jao-r2e.el
+++ b/lib/eos/jao-r2e.el
@@ -46,6 +46,8 @@
     (define-key map [?t] 'jao-r2e-toggle)
     (define-key map [?D] 'jao-r2e-delete)
     (define-key map [?u] 'jao-r2e-recover)
+    (define-key map [?y] 'jao-r2e-kill-url)
+    (define-key map [?x] 'jao-r2e-list-subscribed)
     map))
 
 ;;;###autoload
@@ -95,6 +97,13 @@
   (interactive)
   (jao-r2e--do "list"))
 
+(defun jao-r2e-list-subscribed (arg)
+  "Show only subscribed (unsubscribed with arg) feeds."
+  (interactive "P")
+  (jao-r2e-list)
+  (let ((inhibit-read-only t))
+    (flush-lines (if arg ".*\\[\\*\\].*" ".*\\[ \\].*"))))
+
 (defun jao-r2e--srx (opp)
   (when-let* ((f (jao-r2e--feed-at-point)))
     (let ((a (if opp (not (caddr f)) (caddr f))))
@@ -115,6 +124,15 @@
     (when (re-search-backward rx nil t)
       (beginning-of-line))))
 
+(defun jao-r2e-kill-url ()
+  "Copy as kill the URL of the feed at point."
+  (interactive)
+  (let ((url (cadddr (jao-r2e--feed-at-point))))
+    (if (not url)
+        (error "No feed at point")
+      (kill-new url)
+      (message "%s" url))))
+
 (defun jao-r2e-toggle ()
   (interactive)
   (let ((f (jao-r2e--feed-at-point)))