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

diff --git a/etc/NEWS b/etc/NEWS
index 740375067706fcad660c1272d9e51044ce9237f6..af3240e5046fabbabd8345ceb2995b1e0a5c6356 100644 (file)
--- 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 6fe0ba0be65af2e56e61a85c1ec0c81c637b9012..2572bb79c00fb7599f602bb905ef6e1d434e36ea 100644 (file)
--- 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