From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 3 Jul 2022 09:44:04 +0000 (+0200)
Subject: * lisp/dired.el (dired-do-eww): New command.
X-Git-Tag: emacs-29.0.90~1447^2~1248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7da53a1169ff1796d71fb80b3a51c82821c4bbe;p=emacs.git

* lisp/dired.el (dired-do-eww): New command.
---

diff --git a/etc/NEWS b/etc/NEWS
index 74037506770..af3240e5046 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1061,6 +1061,9 @@ the following to your Init file:
   (keymap-set dired-mode-map "N" nil)
   (keymap-set dired-mode-map "I" nil))
 
+*** New command 'dired-do-eww'.
+This command visits the file on the current line with EWW.
+
 ** Elisp
 
 *** New command 'elisp-eval-buffer' (bound to 'C-c C-e').
diff --git a/lisp/dired.el b/lisp/dired.el
index 6fe0ba0be65..2572bb79c00 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -4827,6 +4827,11 @@ Interactively with prefix argument, read FILE-NAME."
   (interactive nil dired-mode)
   (info (dired-get-file-for-visit)))
 
+(defun dired-do-eww ()
+  "In Dired, visit file in EWW."
+  (interactive nil dired-mode)
+  (eww-open-file (dired-get-file-for-visit)))
+
 (provide 'dired)
 
 (run-hooks 'dired-load-hook)		; for your customizations