Move RSS configuration to module

This commit is contained in:
coolneng 2024-11-19 22:12:17 +01:00
parent 5e0f9a61be
commit 51d2463a8d
Signed by: coolneng
GPG Key ID: 9893DA236405AF57
2 changed files with 32 additions and 27 deletions

30
+rss.el Normal file
View File

@ -0,0 +1,30 @@
;;; +rss.el -*- lexical-binding: t; -*-
;; Elfeed configuration
;;
;; Synchronize elfeed with Miniflux
(setq elfeed-use-curl t
elfeed-protocol-feeds (list
(list "fever+https://coolneng@rss.coolneng.duckdns.org"
:api-url "https://rss.coolneng.duckdns.org/fever/"
:password (auth-source-pass-get 'secret "api/miniflux")))
elfeed-sort-order 'ascending
elfeed-search-filter "@all +unread"
elfeed-goodies/tag-column-width 0)
(elfeed-protocol-enable)
;; Update RSS feeds on startup
(add-hook! 'elfeed-search-mode-hook 'elfeed-update)
;; Use different font and show article in fullscreen
(setq elfeed-show-entry-switch #'switch-to-buffer)
(defadvice! +rss-elfeed-wrap-h-nicer ()
"Enhances an elfeed entry's readability by wrapping it to a width of
`fill-column' and centering it with `visual-fill-column-mode'."
:override #'+rss-elfeed-wrap-h
(setq-local truncate-lines nil
shr-width 160
visual-fill-column-center-text t
default-text-properties '(line-height 1.1))
(let ((inhibit-read-only t)
(inhibit-modification-hooks t))
(visual-fill-column-mode)
(setq-local shr-current-font '(:family "Lato" :height 1.1))
(set-buffer-modified-p nil)))

View File

@ -88,33 +88,8 @@
(setq display-line-numbers-type 'relative) (setq display-line-numbers-type 'relative)
;; Use pass as auth-source ;; Use pass as auth-source
(add-to-list 'auth-sources 'password-store) (add-to-list 'auth-sources 'password-store)
;; Set up elfeed ;; Set up RSS reader
(after! elfeed (after! elfeed (load! "+rss"))
(setq elfeed-use-curl t)
(setq elfeed-protocol-feeds (list
(list "fever+https://coolneng@rss.coolneng.duckdns.org"
:api-url "https://rss.coolneng.duckdns.org/fever/"
:password (auth-source-pass-get 'secret "api/miniflux"))))
(setq elfeed-sort-order 'ascending
elfeed-search-filter "@all +unread"
elfeed-goodies/tag-column-width 0)
(elfeed-protocol-enable)
(add-hook! 'elfeed-search-mode-hook 'elfeed-update)
;; Use different font and show article in fullscreen
(setq elfeed-show-entry-switch #'switch-to-buffer)
(defadvice! +rss-elfeed-wrap-h-nicer ()
"Enhances an elfeed entry's readability by wrapping it to a width of
`fill-column' and centering it with `visual-fill-column-mode'."
:override #'+rss-elfeed-wrap-h
(setq-local truncate-lines nil
shr-width 160
visual-fill-column-center-text t
default-text-properties '(line-height 1.1))
(let ((inhibit-read-only t)
(inhibit-modification-hooks t))
(visual-fill-column-mode)
(setq-local shr-current-font '(:family "Lato" :height 1.1))
(set-buffer-modified-p nil))))
;; 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