[oni-elfeed] Enable ‘olivetti-mode’

oni-elfeed.el

@@ -4,8 +4,8 @@
 
 ;; Author: Tom Willemse <tom@ryuslash.org>
 ;; Keywords: local
-;; Version: 2021.0611.011733
-;; Package-Requires: (elfeed)
+;; Version: 2021.0701.175714
+;; Package-Requires: (elfeed olivetti)
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -27,6 +27,12 @@
 ;;; Code:
 
 (require 'elfeed)
+(require 'shr)
+
+(defun oni-elfeed-enable-olivetti-mode ()
+  "Change ‘olivetti-body-width’ to match the ‘shr-max-width’."
+  (setq-local olivetti-body-width (1+ shr-max-width))
+  (olivetti-mode))
 
 (setq elfeed-feeds
       '("http://nullprogram.com/feed/"
@@ -70,5 +76,7 @@
           (elfeed-make-tagger :before "2 weeks ago"
                               :remove 'unread))
 
+(add-hook 'elfeed-show-mode-hook #'oni-elfeed-enable-olivetti-mode)
+
 (provide 'oni-elfeed)
 ;;; oni-elfeed.el ends here