From e7da53a1169ff1796d71fb80b3a51c82821c4bbe Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 3 Jul 2022 11:44:04 +0200 Subject: [PATCH] * lisp/dired.el (dired-do-eww): New command. --- etc/NEWS | 3 +++ lisp/dired.el | 5 +++++ 2 files changed, 8 insertions(+) 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 -- 2.39.2