Improve readability of elfeed entries
This commit is contained in:
parent
5c4802b371
commit
d872172bc6
18
config.el
18
config.el
|
@ -115,7 +115,23 @@
|
|||
elfeed-search-filter "@all +unread"
|
||||
elfeed-goodies/tag-column-width 0)
|
||||
(elfeed-protocol-enable)
|
||||
(add-hook! 'elfeed-search-mode-hook 'elfeed-update))
|
||||
(add-hook! 'elfeed-search-mode-hook 'elfeed-update)
|
||||
;; Use different font and show article in fullscreen
|
||||
(setq elfeed-show-mode-hook
|
||||
(lambda ()
|
||||
(set-face-attribute 'variable-pitch (selected-frame) :font (font-spec :family "Bitter" :size 28))
|
||||
(setq fill-column 120)
|
||||
(setq elfeed-show-entry-switch #'my-show-elfeed)))
|
||||
(defun my-show-elfeed (buffer)
|
||||
(with-current-buffer buffer
|
||||
(setq buffer-read-only nil)
|
||||
(goto-char (point-min))
|
||||
(re-search-forward "\n\n")
|
||||
(fill-individual-paragraphs (point) (point-max))
|
||||
(setq buffer-read-only t)
|
||||
(setq visual-fill-column-center-text t)
|
||||
(visual-fill-column-mode 1))
|
||||
(switch-to-buffer buffer)))
|
||||
;; Set up the mail stack
|
||||
(after! mu4e (load! "+mail"))
|
||||
;; HACK Enable AOT native compilation
|
||||
|
|
Loading…
Reference in New Issue