byteio/nixos-config
1
0
Fork 0
mirror of https://github.com/librephoenix/nixos-config synced 2025-01-18 22:55:52 +05:30
Code Issues Packages Projects Releases Wiki Activity

Finally got two-way freshrss-elfeed syncing

Browse source
This commit is contained in:
Emmet 2024-06-26 16:06:19 -05:00
parent e07955711e
commit 2886853a72
2 changed files with 15 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
user/app/doom-emacs/config.el
View file

@ -1562,19 +1562,13 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
(map! :leader :desc "Open elfeed" "O n" #'elfeed)
(map! :map 'elfeed-search-mode-map :desc "Open url" :n "g o" #'elfeed-search-browse-url)
(defun freshrss-network-connection-p ()
(not (condition-case nil
(delete-process
(make-network-process
:name freshrss-hostname
:host "elpa.gnu.org"
:service 443))
(error t))))
(defun elfeed-full-update ()
(interactive)
(if (freshrss-network-connection-p) (delete-directory "~/.cache/doom/elfeed" t))
(setq elfeed-db nil)
(elfeed-protocol-fever-update main-elfeed-feed)
(elfeed-search-update--force)
(cl-loop for entry in elfeed-search-entries
do (elfeed-untag-1 entry 'unread))
(elfeed-protocol-fever-reinit freshrss-hostname)
(elfeed-update))
(map! :map 'elfeed-search-mode-map :desc "Update elfeed" :n "g R" #'elfeed-full-update)
(add-hook 'elfeed-search-mode-hook 'elfeed-full-update)
(add-hook 'elfeed-search-update-hook (lambda () (goto-char (point-min))))

21
user/app/doom-emacs/doom.org
View file

@ -1836,22 +1836,17 @@ I don't have this active right now since it's kinda weird with pgtk...
(map! :leader :desc "Open elfeed" "O n" #'elfeed)
(map! :map 'elfeed-search-mode-map :desc "Open url" :n "g o" #'elfeed-search-browse-url)
(defun freshrss-network-connection-p ()
(not (condition-case nil
(delete-process
(make-network-process
:name freshrss-hostname
:host "elpa.gnu.org"
:service 443))
(error t))))
(defun elfeed-full-update ()
(interactive)
(if (freshrss-network-connection-p) (delete-directory "~/.cache/doom/elfeed" t))
(setq elfeed-db nil)
(elfeed-protocol-fever-update main-elfeed-feed)
(elfeed-search-update--force)
(cl-loop for entry in elfeed-search-entries
do (elfeed-untag-1 entry 'unread))
(elfeed-protocol-fever-reinit freshrss-hostname)
(elfeed-update))
(map! :map 'elfeed-search-mode-map :desc "Update elfeed" :n "g R" #'elfeed-full-update)
(add-hook 'elfeed-search-mode-hook 'elfeed-full-update)
(add-hook 'elfeed-search-update-hook (lambda () (goto-char (point-min))))
#+END_SRC
* My init.el