Compare commits

...

2 Commits

Author SHA1 Message Date
coolneng d872172bc6
Improve readability of elfeed entries 2023-02-23 00:02:15 +01:00
coolneng 5c4802b371
Display header in csv-mode 2023-02-23 00:01:52 +01:00
1 changed files with 18 additions and 1 deletions

View File

@ -35,6 +35,7 @@
(revert-buffer :ignore-auto :noconfirm)) (revert-buffer :ignore-auto :noconfirm))
;; Align columns in CSV mode ;; Align columns in CSV mode
(add-hook 'csv-mode-hook 'csv-align-mode) (add-hook 'csv-mode-hook 'csv-align-mode)
(add-hook 'csv-mode-hook 'csv-header-line)
;; Close compilation buffer if successful ;; Close compilation buffer if successful
(setq compilation-finish-functions (setq compilation-finish-functions
(lambda (buf str) (lambda (buf str)
@ -114,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