diff options
Diffstat (limited to 'lisp/+elfeed.el')
| -rw-r--r-- | lisp/+elfeed.el | 24 |
1 files changed, 24 insertions, 0 deletions
| diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el new file mode 100644 index 0000000..823902b --- /dev/null +++ b/lisp/+elfeed.el | |||
| @@ -0,0 +1,24 @@ | |||
| 1 | ;;; +elfeed.el -*- lexical-binding: t; -*- | ||
| 2 | |||
| 3 | ;;; Code: | ||
| 4 | |||
| 5 | (require 'elfeed) | ||
| 6 | |||
| 7 | (defun +elfeed-scroll-up-command (&optional arg) | ||
| 8 | "Scroll up or go to next feed item in Elfeed" | ||
| 9 | (interactive "^P") | ||
| 10 | (let ((scroll-error-top-bottom nil)) | ||
| 11 | (condition-case-unless-debug nil | ||
| 12 | (scroll-up-command arg) | ||
| 13 | (error (elfeed-show-next))))) | ||
| 14 | |||
| 15 | (defun +elfeed-scroll-down-command (&optional arg) | ||
| 16 | "Scroll up or go to next feed item in Elfeed" | ||
| 17 | (interactive "^P") | ||
| 18 | (let ((scroll-error-top-bottom nil)) | ||
| 19 | (condition-case-unless-debug nil | ||
| 20 | (scroll-down-command arg) | ||
| 21 | (error (elfeed-show-prev))))) | ||
| 22 | |||
| 23 | (provide '+elfeed) | ||
| 24 | ;;; +elfeed.el ends here | ||