diff options
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-browse.el | 30 |
1 files changed, 14 insertions, 16 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") |