Commit e504407fa2ed

@@ -1,7 +1,4 @@
-;;; setup-browser.el --- setup eww and other browser -*- lexical-binding: t; -*-
-;;; Commentary:
-;;; Code:
-
+;;; -*- lexical-binding: t; -*-
 (use-package shr
   :commands (eww
              eww-browse-url)
@@ -61,9 +58,3 @@
   (define-key eww-mode-map "O" 'eww-browse-with-external-browser))
 
 (provide 'setup-browser)
-;;; setup-browser.el ends here
-
-;; Local Variables:
-;; coding: utf-8
-;; indent-tabs-mode: nil
-;; End:

@@ -275,3 +275,68 @@
   ;;; Finalization
   ;;; init.el ends here
 #+end_src
+
+** ~setup-browser.el~
+
+#+begin_src emacs-lisp :tangle lisp/setup-browser.el
+  ;;; -*- lexical-binding: t; -*-
+  (use-package shr
+    :commands (eww
+               eww-browse-url)
+    :custom
+    (browse-url-browser-function 'eww-browse-url)
+    (shr-use-fonts nil)
+    (shr-use-colors nil)
+    (shr-max-image-proportion 0.2)
+    (shr-width (current-fill-column)))
+
+  (use-package shr-tag-pre-highlight
+    :after shr
+    :config
+    (add-to-list 'shr-external-rendering-functions
+                 '(pre . shr-tag-pre-highlight))
+    (when (version< emacs-version "26")
+      (with-eval-after-load 'eww
+        (advice-add 'eww-display-html :around
+                    'eww-display-html--override-shr-external-rendering-functions))))
+
+  (use-package eww
+    :defer t
+    :init
+    (setq browse-url-browser-function
+          '((".*google.*maps.*" . browse-url-generic)
+            ;; Github goes to firefox, but not gist
+            ("http.*\/\/github.com" . browse-url-generic)
+            ("http.*\/\/github.io" . browse-url-generic)
+            ("http.*\/\/gitlab.com" . browse-url-generic)
+            ("http.*\/\/gitlab.io" . browse-url-generic)
+            ("groups.google.com" . browse-url-generic)
+            ("docs.google.com" . browse-url-generic)
+            ("melpa.org" . browse-url-generic)
+            ("build.*\.elastic.co" . browse-url-generic)
+            (".*-ci\.elastic.co" . browse-url-generic)
+            ("internal-ci\.elastic\.co" . browse-url-generic)
+            ("zendesk\.com" . browse-url-generic)
+            ("salesforce\.com" . browse-url-generic)
+            ("stackoverflow\.com" . browse-url-generic)
+            ("apache\.org\/jira" . browse-url-generic)
+            ("thepoachedegg\.net" . browse-url-generic)
+            ("zoom.us" . browse-url-generic)
+            ("blujeans.com" . browse-url-generic)
+            ("t.co" . browse-url-generic)
+            ("twitter.com" . browse-url-generic)
+            ("\/\/a.co" . browse-url-generic)
+            ("youtube.com" . browse-url-generic)
+            ("amazon.com" . browse-url-generic)
+            ("slideshare.net" . browse-url-generic)
+            ("." . eww-browse-url)))
+    (setq shr-external-browser 'browse-url-generic)
+    (setq browse-url-generic-program (executable-find "firefox"))
+    (add-hook 'eww-mode-hook #'toggle-word-wrap)
+    (add-hook 'eww-mode-hook #'visual-line-mode)
+    :config
+    (define-key eww-mode-map "o" 'eww)
+    (define-key eww-mode-map "O" 'eww-browse-with-external-browser))
+
+  (provide 'setup-browser)
+#+end_src