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-search-filter "@all +unread"
|
||||||
elfeed-goodies/tag-column-width 0)
|
elfeed-goodies/tag-column-width 0)
|
||||||
(elfeed-protocol-enable)
|
(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
|
;; Set up the mail stack
|
||||||
(after! mu4e (load! "+mail"))
|
(after! mu4e (load! "+mail"))
|
||||||
;; HACK Enable AOT native compilation
|
;; HACK Enable AOT native compilation
|
||||||
|
|
Loading…
Reference in New Issue