Improve readability of elfeed entries

This commit is contained in:
coolneng 2023-02-23 00:02:15 +01:00
parent 5c4802b371
commit d872172bc6
Signed by: coolneng
GPG Key ID: 9893DA236405AF57
1 changed files with 17 additions and 1 deletions

View File

@ -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