From a0e2b5ac4495bf5f317fd8efd557bb2faa19c36d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 8 Aug 2022 23:49:31 +0100
Subject: wasn't emacs-w3m really nice(r)?

---
 custom/jao-custom-w3m.el | 4 ++--
 init.el                  | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/custom/jao-custom-w3m.el b/custom/jao-custom-w3m.el
index af4b0be..fb0e89f 100644
--- a/custom/jao-custom-w3m.el
+++ b/custom/jao-custom-w3m.el
@@ -30,8 +30,7 @@
     (condition-case nil
         (mm-inline-text-html-render-with-w3m handle)
       (error (delete-region (point) (point-max))
-             (let ((shr-use-fonts nil)
-                   (shr-use-colors nil))
+             (let ((shr-use-fonts nil))
                (mm-shr handle))))))
 
 (setq mm-text-html-renderer #'jao-w3m-html-renderer)
@@ -166,6 +165,7 @@
                ("D" . w3m-download)
                ("f" . w3m-lnum-follow)
                ("v" . jao-view-video)
+               ("q" . w3m-delete-buffer)
                ("w" . org-w3m-copy-for-org-mode)
                ("x" . jao-rss-subscribe)
                ("y" . w3m-print-current-url))))
diff --git a/init.el b/init.el
index 3bf5ffc..be5e4f7 100644
--- a/init.el
+++ b/init.el
@@ -1509,7 +1509,8 @@
              (member (buffer-local-value 'exwm-class-name b)
                      '("vlc" "mpv"))))))
 
-(require 'jao-custom-eww)
+;; (require 'jao-custom-eww)
+(require 'jao-custom-w3m)
 
 ;;;; browse-url
 (require 'browse-url)
-- 
cgit v1.2.3