From 4e63ea053c359cc00d7f39013661c82c0a1db948 Mon Sep 17 00:00:00 2001
From: Paul-Henri Froidmont <git.contact-57n2p@froidmont.org>
Date: Thu, 18 May 2023 22:43:08 +0200
Subject: [PATCH] Emacs: pull feeds from nextcloud

---
 modules/editor/emacs/doom.d/config.el   | 29 ++++++++++++++++++++-----
 modules/editor/emacs/doom.d/init.el     |  2 +-
 modules/editor/emacs/doom.d/packages.el |  1 +
 modules/editor/emacs/emacs.nix          |  5 +++++
 4 files changed, 30 insertions(+), 7 deletions(-)

diff --git a/modules/editor/emacs/doom.d/config.el b/modules/editor/emacs/doom.d/config.el
index b7dcd44..d187191 100644
--- a/modules/editor/emacs/doom.d/config.el
+++ b/modules/editor/emacs/doom.d/config.el
@@ -36,11 +36,28 @@
           org-roam-ui-update-on-save t
           org-roam-ui-open-on-start t))
 
-;; Update elfeed on open
-(add-hook 'elfeed-search-mode-hook #'elfeed-update)
+; Taken from https://github.com/yqrashawn/yqdotfiles/blob/master/.doom.d/read.el
+(setq! elfeed-use-curl t)
+(after! elfeed
+  (elfeed-set-timeout 36000)
+  (run-with-idle-timer 300 t #'elfeed-update)
+  (setq!
+  ;;   elfeed-protocol-newsblur-maxpages 200
+  ;;   elfeed-search-filter "+unread +p1"
+  ;;   elfeed-search-trailing-width 60
+      rmh-elfeed-org-files `(,(concat org-directory "elfeed.org")))
+  ;; (add-hook! 'elfeed-search-mode-hook 'elfeed-update)
+  (setq elfeed-protocol-enabled-protocols '(owncloud))
+  (defadvice elfeed (after configure-elfeed-feeds activate)
+    "Make elfeed-org autotags rules work with elfeed-protocol."
+    (setq elfeed-protocol-tags elfeed-feeds)
+    (setq elfeed-feeds (list
+                         (list "owncloud+https://paultrial@cloud.banditlair.com"
+                           :password (shell-command-to-string "echo -n `secret-tool lookup elfeed nextcloud`")
+                           :autotags elfeed-protocol-tags))))
+  (elfeed-protocol-enable))
 
 (use-package! elfeed-tube
-  ;;:ensure t ;; or :straight t
   :after elfeed
   :demand t
   :config
@@ -56,7 +73,7 @@
          ([remap save-buffer] . elfeed-tube-save)))
 
 (use-package! elfeed-tube-mpv
-  ;;:ensure t ;; or :straight t
   :bind (:map elfeed-show-mode-map
-              ("gf" . elfeed-tube-mpv-follow-mode)
-              ("gw" . elfeed-tube-mpv-where)))
+              ;; ("gf" . elfeed-tube-mpv-follow-mode)
+              ;; ("gw" . elfeed-tube-mpv-where)))
+              ))
diff --git a/modules/editor/emacs/doom.d/init.el b/modules/editor/emacs/doom.d/init.el
index c04eb00..fc5f3e4 100644
--- a/modules/editor/emacs/doom.d/init.el
+++ b/modules/editor/emacs/doom.d/init.el
@@ -66,7 +66,7 @@
        ;;word-wrap         ; soft wrapping with language-aware indent
 
        :emacs
-       dired             ; making dired pretty [functional]
+       (dired +dirvish)  ; making dired pretty [functional]
        electric          ; smarter, keyword-based electric-indent
        ;;ibuffer         ; interactive buffer management
        undo              ; persistent, smarter undo for your inevitable mistakes
diff --git a/modules/editor/emacs/doom.d/packages.el b/modules/editor/emacs/doom.d/packages.el
index d343f8e..4b71a03 100644
--- a/modules/editor/emacs/doom.d/packages.el
+++ b/modules/editor/emacs/doom.d/packages.el
@@ -1,4 +1,5 @@
 (package! lsp-tailwindcss)
+(package! elfeed-protocol)
 (package! elfeed-tube)
 (package! elfeed-tube-mpv)
 (package! mpv)
diff --git a/modules/editor/emacs/emacs.nix b/modules/editor/emacs/emacs.nix
index 467fc09..3620f96 100644
--- a/modules/editor/emacs/emacs.nix
+++ b/modules/editor/emacs/emacs.nix
@@ -16,6 +16,11 @@ in {
         ripgrep
         fd
         findutils.locate
+        python311
+        libsecret
+        gcc
+        gnumake
+        cmake
 
         terraform
         pandoc