Disabled images in eww by default

1 files changed, 17 insertions, 7 deletions

diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el
index 2689ac8..d921b8d 100644
--- a/.config/emacs/modules/bd--browse.el
+++ b/.config/emacs/modules/bd--browse.el
@@ -12,8 +12,7 @@ icecat, or eww."
   (interactive)
   (pcase pref
     (0 (eww url))
-    (1 (start-process "torbrowser" nil "torbrowser" "--new-window" url))
-    (2 (start-process "icecat" nil "icecat" "--new-window" 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)
 
@@ -81,9 +80,7 @@ icecat, or eww."
 (use-package shr
   :defer t
   :config
-  (setopt shr-use-fonts t
-          shr-cookie-policy nil
-          shr-max-width 85))
+  (setopt ))
 
 (use-package elpher
   :bind
@@ -109,16 +106,29 @@ icecat, or eww."
           elpher-use-emacs-bookmark-menu t))
 
 (use-package eww
+  :bind
+  (:map eww-mode-map
+	("i" . bd/eww-toggle-images))
   :hook
   ((eww-after-render . (lambda ()
                          (setq-local fill-column-desired-width 120)
                          (fill-column-mode))))
   :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-use-browse-url (regexp-opt '("mailto:"
-                                    "youtube.com"
-                                    "youtu.be"))))
+					   "youtube.com"
+					   "youtu.be"))
+	  shr-use-fonts t
+	  shr-inhibit-images t
+	  shr-cookie-policy nil
+	  shr-max-width 85))
 
 
 (provide 'bd--browse)