summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el21
1 files changed, 20 insertions, 1 deletions
diff --git a/init.el b/init.el index 4478b97..441ca35 100644 --- a/init.el +++ b/init.el
@@ -1359,7 +1359,26 @@ like a dumbass."
1359 (acdw/reading-mode))) 1359 (acdw/reading-mode)))
1360 1360
1361 ;; see https://irreal.org/blog/?p=8885 1361 ;; see https://irreal.org/blog/?p=8885
1362 ) 1362 ;; Lazy Elfeed (karthinks)
1363 (defun elfeed-scroll-up-command (&optional arg)
1364 "Scroll up or go to next feed item in Elfeed"
1365 (interactive "^P")
1366 (let ((scroll-error-top-bottom nil))
1367 (condition-case-unless-debug nil
1368 (scroll-up-command arg)
1369 (error (elfeed-show-next)))))
1370
1371 (defun elfeed-scroll-down-command (&optional arg)
1372 "Scroll up or go to next feed item in Elfeed"
1373 (interactive "^P")
1374 (let ((scroll-error-top-bottom nil))
1375 (condition-case-unless-debug nil
1376 (scroll-down-command arg)
1377 (error (elfeed-show-prev)))))
1378
1379 ;; Turns out, `scroll-up' and `scroll-down' are /backward/
1380 (define-key elfeed-show-mode-map (kbd "SPC") 'elfeed-scroll-up-command)
1381 (define-key elfeed-show-mode-map (kbd "S-SPC") 'elfeed-scroll-down-command))
1363 1382
1364(setup (:straight elisp-slime-nav) 1383(setup (:straight elisp-slime-nav)
1365 (:hook-into emacs-lisp-mode 1384 (:hook-into emacs-lisp-mode