Commit 86a395c761bb

Vincent Demeester <vincent@sbr.pm>
2019-03-04 17:44:27
setup-browser: use eww ! ๐Ÿ’’
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
1 parent c9225f1
Changed files (2)
lisp/setup-browser.el
@@ -0,0 +1,50 @@
+;;; setup-browser.el --- setup eww and other browser -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(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)
+          ("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)
+          ("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))
+
+(use-package ace-link
+  :defer t
+  :config
+  (ace-link-setup-default))
+
+(provide 'setup-browser)
+;;; setup-browser.el ends here
+
+;; Local Variables:
+;; coding: utf-8
+;; indent-tabs-mode: nil
+;; End:
init.el
@@ -189,7 +189,6 @@ packages.")
 (use-package setup-shells)
 (use-package setup-compile)
 (use-package setup-org)
-(use-package setup-notmuch)
 ;; Programming languages
 (use-package setup-nix)
 (use-package setup-go)
@@ -197,6 +196,9 @@ packages.")
 (use-package setup-web)
 (use-package setup-docker)
 (use-package setup-hydras)
+;; Other software like (mail, irc, โ€ฆ)
+(use-package setup-notmuch)
+(use-package setup-browser)
 
 (use-package command-log-mode
   :bind (("C-c e M" . command-log-mode)