diff options
| -rw-r--r-- | custom/jao-custom-browse.el | 30 | ||||
| -rw-r--r-- | init.el | 2 |
2 files changed, 15 insertions, 17 deletions
diff --git a/custom/jao-custom-browse.el b/custom/jao-custom-browse.el index 37f4c9f..2787518 100644 --- a/custom/jao-custom-browse.el +++ b/custom/jao-custom-browse.el @@ -108,7 +108,7 @@ ;;;; browse-url (require 'browse-url) -(setq browse-url-generic-program "~/bin/firehog") +(setq browse-url-generic-program "firefox") (defun jao-browse-with-external-browser (&rest url) "Browse with external hogging" @@ -121,6 +121,7 @@ (jao-river-enabled (jao-river-to-ws 2)) (jao-sway-enabled (jao-sway-firefox))) (browse-url-generic url)))) + (setq jao-browse-url-external-function 'jao-browse-with-external-browser) (defun jao--fln (url) @@ -177,21 +178,18 @@ (defun jao-browse-url-browse (&rest args) (apply jao-browse-url-function args)) -(setq browse-url-handlers - `((jao-video--url-p . jao-maybe-view-video) - (,jao--doc-exts . jao--browse-doc) - (,jao--see-exts . jao--see) - ("^file://?.+\\.html?$" . ,jao-browse-url-function) - ("^file://?" . jao--find-file-other-window) - (,jao-browse--external-regexp . ,jao-browse-url-external-function) - ("^https?://.*\\.gotomeeting\\.com\\.*" . browse-url-chrome) - (,jao-browse--sound-rx . jao-browse-play-sound-url) - (,(jao-wget--regexp) . jao-download) - ("." . jao-browse-url-browse))) - -(when (< emacs-major-version 28) - (setf (alist-get 'jao-video--url-p browse-url-handlers nil t) nil) - (setq browse-url-browser-function browse-url-handlers)) +(jao-when-linux + (setq browse-url-handlers + `((jao-video--url-p . jao-maybe-view-video) + (,jao--doc-exts . jao--browse-doc) + (,jao--see-exts . jao--see) + ("^file://?.+\\.html?$" . ,jao-browse-url-function) + ("^file://?" . jao--find-file-other-window) + (,jao-browse--external-regexp . ,jao-browse-url-external-function) + ("^https?://.*\\.gotomeeting\\.com\\.*" . browse-url-chrome) + (,jao-browse--sound-rx . jao-browse-play-sound-url) + (,(jao-wget--regexp) . jao-download) + ("." . jao-browse-url-browse)))) ;;;; subscribe to rss using r2e (autoload 'View-quit "view") @@ -1317,8 +1317,8 @@ (add-hook 'LaTeX-mode-hook 'turn-on-reftex)) ;;; Browsing +(require 'jao-custom-browse) (jao-when-linux - (require 'jao-custom-browse) (require 'jao-custom-eww)) ;;; PDFs and other docs |