swarsel/.dotfiles
1
0
Fork 0
mirror of https://github.com/Swarsel/.dotfiles.git synced 2025-12-06 09:07:21 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: elfeed db management

Browse source
This commit is contained in:
Swarsel 2024-12-16 11:37:46 +01:00
parent be15188dcf
commit e2d11ddfba
Signed by: swarsel
GPG key ID: 26A54C31F2A4FD84
3 changed files with 12 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

14
SwarselSystems.org
View file

@ -253,18 +253,14 @@ On my server, I use a reduced, self-contained emacs configuration that only serv
(defun bjm/elfeed-updater () (defun bjm/elfeed-updater ()
"Wrapper to load the elfeed db from disk before opening" "Wrapper to load the elfeed db from disk before opening"
(interactive) (interactive)
(elfeed-db-save) (elfeed-db-load))
(quit-window)
(elfeed-db-load)
(elfeed)
(elfeed-search-update--force)
(elfeed-update))
(run-with-timer 0 (* 30 60) 'bjm/elfeed-updater) (run-with-timer 0 (* 1 60) 'bjm/elfeed-updater)
(setq httpd-port 9812) (setq httpd-port 9812)
(setq httpd-host "0.0.0.0") (setq httpd-host "0.0.0.0")
(setq httpd-root "/root/.emacs.d/elpa/elfeed-web-20240729.1741/") (setq httpd-root "/root/.emacs.d/elpa/elfeed-web-20240729.1741/")
(setq elfeed-db-directory "/var/lib/syncthing/.elfeed/db/")
(httpd-start) (httpd-start)
(elfeed-web-start) (elfeed-web-start)
@ -10743,7 +10739,7 @@ I also define some keybinds to some combinations directly. Those are used mostly
"mc" '((lambda () (interactive) (swarsel/open-calendar)) :which-key "calendar") "mc" '((lambda () (interactive) (swarsel/open-calendar)) :which-key "calendar")
"mp" '(popper-toggle :which-key "popper") "mp" '(popper-toggle :which-key "popper")
"md" '(dirvish :which-key "dirvish") "md" '(dirvish :which-key "dirvish")
"mr" '(elfeed :which-key "elfeed") "mr" '(bjm/elfeed-load-db-and-open :which-key "elfeed")
"o" '(:ignore o :which-key "org") "o" '(:ignore o :which-key "org")
"op" '((lambda () (interactive) (org-present)) :which-key "org-present") "op" '((lambda () (interactive) (org-present)) :which-key "org-present")
"oa" '((lambda () (interactive) (org-agenda)) :which-key "org-agenda") "oa" '((lambda () (interactive) (org-agenda)) :which-key "org-agenda")
@ -12424,6 +12420,8 @@ This mode is not automatically activated anywhere because I only rarely need it.
(elfeed-db-save) (elfeed-db-save)
(quit-window)) (quit-window))
(setq elfeed-db-directory "~/.elfeed/db/")
(global-set-key (kbd "C-c w") 'bjm/elfeed-load-db-and-open) (global-set-key (kbd "C-c w") 'bjm/elfeed-load-db-and-open)

4
programs/emacs/init.el
View file

@ -330,7 +330,7 @@ create a new one."
"mc" '((lambda () (interactive) (swarsel/open-calendar)) :which-key "calendar") "mc" '((lambda () (interactive) (swarsel/open-calendar)) :which-key "calendar")
"mp" '(popper-toggle :which-key "popper") "mp" '(popper-toggle :which-key "popper")
"md" '(dirvish :which-key "dirvish") "md" '(dirvish :which-key "dirvish")
"mr" '(elfeed :which-key "elfeed") "mr" '(bjm/elfeed-load-db-and-open :which-key "elfeed")
"o" '(:ignore o :which-key "org") "o" '(:ignore o :which-key "org")
"op" '((lambda () (interactive) (org-present)) :which-key "org-present") "op" '((lambda () (interactive) (org-present)) :which-key "org-present")
"oa" '((lambda () (interactive) (org-agenda)) :which-key "org-agenda") "oa" '((lambda () (interactive) (org-agenda)) :which-key "org-agenda")
@ -1304,6 +1304,8 @@ create a new one."
(elfeed-db-save) (elfeed-db-save)
(quit-window)) (quit-window))
(setq elfeed-db-directory "~/.elfeed/db/")
(global-set-key (kbd "C-c w") 'bjm/elfeed-load-db-and-open) (global-set-key (kbd "C-c w") 'bjm/elfeed-load-db-and-open)

10
programs/emacs/server.el
View file

@ -67,18 +67,14 @@
(defun bjm/elfeed-updater () (defun bjm/elfeed-updater ()
"Wrapper to load the elfeed db from disk before opening" "Wrapper to load the elfeed db from disk before opening"
(interactive) (interactive)
(elfeed-db-save) (elfeed-db-load))
(quit-window)
(elfeed-db-load)
(elfeed)
(elfeed-search-update--force)
(elfeed-update))
(run-with-timer 0 (* 30 60) 'bjm/elfeed-updater) (run-with-timer 0 (* 1 60) 'bjm/elfeed-updater)
(setq httpd-port 9812) (setq httpd-port 9812)
(setq httpd-host "0.0.0.0") (setq httpd-host "0.0.0.0")
(setq httpd-root "/root/.emacs.d/elpa/elfeed-web-20240729.1741/") (setq httpd-root "/root/.emacs.d/elpa/elfeed-web-20240729.1741/")
(setq elfeed-db-directory "/var/lib/syncthing/.elfeed/db/")
(httpd-start) (httpd-start)
(elfeed-web-start) (elfeed-web-start)