25 lines
648 B
EmacsLisp
25 lines
648 B
EmacsLisp
;;; +elfeed.el -*- lexical-binding: t; -*-
|
|
|
|
;;; Code:
|
|
|
|
(require 'elfeed)
|
|
|
|
(defun +elfeed-scroll-up-command (&optional arg)
|
|
"Scroll up or go to next feed item in Elfeed"
|
|
(interactive "^P")
|
|
(let ((scroll-error-top-bottom nil))
|
|
(condition-case-unless-debug nil
|
|
(scroll-up-command arg)
|
|
(error (elfeed-show-next)))))
|
|
|
|
(defun +elfeed-scroll-down-command (&optional arg)
|
|
"Scroll up or go to next feed item in Elfeed"
|
|
(interactive "^P")
|
|
(let ((scroll-error-top-bottom nil))
|
|
(condition-case-unless-debug nil
|
|
(scroll-down-command arg)
|
|
(error (elfeed-show-prev)))))
|
|
|
|
(provide '+elfeed)
|
|
;;; +elfeed.el ends here
|