Remove icecat

1 files changed, 12 insertions, 25 deletions

diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el
index 92bc0bf..22bbb6c 100644
--- a/.config/emacs/modules/bd--browse.el
+++ b/.config/emacs/modules/bd--browse.el
@@ -12,7 +12,6 @@ icecat, or eww."
   (interactive)
   (pcase pref
     (0 (eww url))
-    (1 (start-process "icecat" nil "icecat" "--new-window" url))
     (_ (start-process "librewolf" nil "librewolf" "--new-window" url))))
 (setopt browse-url-browser-function 'bd/browse)
 
@@ -62,7 +61,7 @@ icecat, or eww."
          (bd/search-candidate "Archwiki" "https://wiki.archlinux.org/index.php?title=Special%3ASearch&search=" 0)
 
          (bd/selector-rip)
-         (bd/search-candidate "Web" "" 3))))
+         (bd/search-candidate "Web" "" 1))))
 
 (defun bd/browse-dispatcher ()
   "Select and `browse-url' a bookmark or search feature."
@@ -77,11 +76,6 @@ icecat, or eww."
            (lambda (url &rest _) (rip url))))
         url-privacy-level '(email os emacs lastloc cookies))
 
-(use-package shr
-  :defer t
-  :config
-  (setopt ))
-
 (use-package elpher
   :bind
   (:map elpher-mode-map
@@ -106,30 +100,23 @@ icecat, or eww."
           elpher-use-emacs-bookmark-menu t))
 
 (use-package eww
+  :defer 1
   :bind
   (:map eww-mode-map
-	("i" . eww-toggle-images))
-  :hook
-  ((eww-after-render . (lambda ()
-                         (setq-local fill-column-desired-width 120)
-                         (fill-column-mode))))
+        ("i" . eww-toggle-images))
   :config
-  (defun bd/eww-toggle-images ()
-    (interactive)
-    (setq-local shr-inhibit-images (not shr-inhibit-images))
-    (eww-reload t)
-    (message "%s images"
-	     (if shr-inhibit-images "Disabled" "Enabled")))
   (setopt eww-search-prefix "https://searx.operationnull.com/searxng/search?q="
           eww-auto-rename-buffer 'title
-	  eww-browse-url-new-window-is-tab nil
+          eww-browse-url-new-window-is-tab nil
+          browse-url-secondary-browser-function #'bd/browse
+          eww-header-line-format nil
           eww-use-browse-url (regexp-opt '("mailto:"
-					   "youtube.com"
-					   "youtu.be"))
-	  shr-use-fonts t
-	  shr-inhibit-images t
-	  shr-cookie-policy nil
-	  shr-max-width 85))
+                                           "youtube.com"
+                                           "youtu.be"))
+          shr-use-fonts nil
+          shr-inhibit-images t
+          shr-cookie-policy nil
+          shr-max-width 90))
 
 
 (provide 'bd--browse)