Make eww the default browser for bd/selector-search

4 files changed, 16 insertions, 8 deletions

diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el
index 3731b18..2689ac8 100644
--- a/.config/emacs/modules/bd--browse.el
+++ b/.config/emacs/modules/bd--browse.el
@@ -56,11 +56,11 @@ icecat, or eww."
   (selector-source-create
    "Browser"
    :candidates
-   (list (bd/search-candidate "SearXNG" "https://searx.operationnull.com/searxng/search?q=" 3)
-         (bd/search-candidate "Wikipedia" "https://en.wikipedia.org/w/index.php?search=" 3)
+   (list (bd/search-candidate "SearXNG" "https://searx.operationnull.com/searxng/search?q=" 0)
+         (bd/search-candidate "Wikipedia" "https://en.wikipedia.org/w/index.php?search=" 0)
          (bd/search-candidate "Invidious" "https://inv.nadeko.net/search?q=" 0)
-         (bd/search-candidate "Urban Dictionary" "https://www.urbandictionary.com/define.php?term=" 2)
-         (bd/search-candidate "Archwiki" "https://wiki.archlinux.org/index.php?title=Special%3ASearch&search=" 2)
+         (bd/search-candidate "Urban Dictionary" "https://www.urbandictionary.com/define.php?term=" 0)
+         (bd/search-candidate "Archwiki" "https://wiki.archlinux.org/index.php?title=Special%3ASearch&search=" 0)
 
          (bd/selector-rip)
          (bd/search-candidate "Web" "" 3))))
@@ -111,10 +111,10 @@ icecat, or eww."
 (use-package eww
   :hook
   ((eww-after-render . (lambda ()
-                         (setq-local fill-column-desired-width 90)
+                         (setq-local fill-column-desired-width 120)
                          (fill-column-mode))))
   :config
-  (setopt eww-search-prefix "https://duckduckgo.com/html/?q="
+  (setopt eww-search-prefix "https://searx.operationnull.com/searxng/search?q="
           eww-auto-rename-buffer 'title
           eww-use-browse-url (regexp-opt '("mailto:"
                                     "youtube.com"
diff --git a/.config/emacs/modules/bd--minibuffer.el b/.config/emacs/modules/bd--minibuffer.el
index 405577c..de9c37d 100644
--- a/.config/emacs/modules/bd--minibuffer.el
+++ b/.config/emacs/modules/bd--minibuffer.el
@@ -99,6 +99,7 @@ selection commands.")
     (selector
      (list
       (bd/selector-recent-buffers)
+      (bd/selector-buffer-type "EWW" #'bd/buffer-eww-p)
       (bd/selector-buffer-type "EXWM" #'bd/buffer-exwm-p)
       (bd/selector-buffer-type "Shell" #'bd/buffer-shell-p)
       (bd/selector-buffer-type "IRC" #'bd/buffer-irc-p)
diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index d77b6f4..2bbf403 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -125,7 +125,7 @@ allowed."
   (setopt proced-enable-color-flag t
           proced-tree-flag t
           proced-auto-update-flag 'visible
-          proced-auto-update-interval 1
+          proced-auto-update-interval 3
           proced-descend t
           proced-filter 'user))
 
diff --git a/.config/emacs/modules/bd--utility.el b/.config/emacs/modules/bd--utility.el
index 161549e..d48ff02 100644
--- a/.config/emacs/modules/bd--utility.el
+++ b/.config/emacs/modules/bd--utility.el
@@ -92,6 +92,12 @@ TODO default folder"
       (locate-dominating-file "." "manifest.scm") ;; guix
       default-directory))
 
+(defun bd/buffer-eww-p (buf)
+  "Return non-nil if BUF is a `eww-mode' buffer."
+  (member
+   (buffer-local-value 'major-mode (get-buffer buf))
+   '(eww-mode)))
+
 (defun bd/buffer-exwm-p (buf)
   "Return non-nil if BUF is an `exwm-mode' buffer."
   (member
@@ -130,7 +136,8 @@ TODO default folder"
 
 (defun bd/buffer-ordinary-p (buf)
   "Return non-nil if BUF does not fit into known categories."
-  (not (or (bd/buffer-exwm-p buf)
+  (not (or (bd/buffer-eww-p buf)
+	   (bd/buffer-exwm-p buf)
            (bd/buffer-text-p buf)
            (bd/buffer-prog-p buf)
            (bd/buffer-shell-p buf)