diff options
Diffstat (limited to 'lib/eos/jao-r2e.el')
| -rw-r--r-- | lib/eos/jao-r2e.el | 18 |
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))) |