From 6d3dada56032c733cc8dcb495efbc78eefe5ea9e Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Sun, 20 Dec 2020 17:57:58 +0100
Subject: [PATCH] Open HTML files in Emacs by default

Most of the time, I just want to see the text and edit it, and thus I open HTML
files in Emacs anyway (usually rendering them via `shr-render-buffer`).
---
 init.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/init.el b/init.el
index 48c120d..b9744d7 100644
--- a/init.el
+++ b/init.el
@@ -1969,7 +1969,6 @@
                   ("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\|webm\\)\\(?:\\.part\\)?\\'"
                    "vlc")
                   ("\\.\\(?:mp3\\|flac\\|ogg\\)\\'" "mplayer")
-                  ("\\.html?\\'" "firefox")
                   ("\\.docx?\\'" "loffice")))
 
           (when on-windows
@@ -2066,10 +2065,15 @@
 
 (use-package dired-open
   :ensure t
-  :init (unless (eq system-type 'gnu/linux)
-          (setq dired-open-use-nohup nil))
-  :config (add-to-list 'dired-open-functions
-                       #'dired-open-guess-shell-alist))
+  :init (progn
+          (unless (eq system-type 'gnu/linux)
+            (setq dired-open-use-nohup nil))
+          (setq dired-open-extensions-elisp '(("html" . eww-open-file))))
+  :config (progn
+            (add-to-list 'dired-open-functions
+                         #'dired-open-guess-shell-alist)
+            (add-to-list 'dired-open-functions
+                         #'dired-open-call-function-by-extension)))
 
 (use-package dired-recent
   :ensure t