diff options
| author | Case Duckworth | 2022-01-03 15:18:05 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-03 15:18:05 -0600 |
| commit | 90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b (patch) | |
| tree | 45c7ace92c972123e8b1f8c29a9f28f535cb32d8 /init.el | |
| parent | Do pulse-location-mode /after/ init (diff) | |
| download | emacs-90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b.tar.gz emacs-90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b.zip | |
Fix browse-url urls
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 9 |
1 files changed, 5 insertions, 4 deletions
| diff --git a/init.el b/init.el index 0b1d8b0..261d8c7 100644 --- a/init.el +++ b/init.el | |||
| @@ -96,6 +96,7 @@ | |||
| 96 | (:require +browse-url) | 96 | (:require +browse-url) |
| 97 | (:option | 97 | (:option |
| 98 | browse-url-browser-function #'eww-browse-url | 98 | browse-url-browser-function #'eww-browse-url |
| 99 | +browse-url-browser-function browse-url-browser-function | ||
| 99 | browse-url-secondary-browser-function (if (executable-find "firefox") | 100 | browse-url-secondary-browser-function (if (executable-find "firefox") |
| 100 | #'browse-url-firefox | 101 | #'browse-url-firefox |
| 101 | #'browse-url-default-browser) | 102 | #'browse-url-default-browser) |
| @@ -137,10 +138,10 @@ | |||
| 137 | #'+browse-url-with-mpv | 138 | #'+browse-url-with-mpv |
| 138 | browse-url-secondary-browser-function) | 139 | browse-url-secondary-browser-function) |
| 139 | args))) | 140 | args))) |
| 140 | (cons (lambda (url) ; non-eww-friendly websites | 141 | (cons (+browse-url-secondary-browser-regexps-combine) ; non-text websites |
| 141 | (cl-member url +browse-url-secondary-browser-regexps | 142 | browse-url-secondary-browser-function) |
| 142 | :test 'string-match-p)) | 143 | (cons "." ; everything else |
| 143 | #'browse-url-secondary-browser-function))) | 144 | browse-url-browser-function))) |
| 144 | ;; Transform URLs before passing to `browse-url' | 145 | ;; Transform URLs before passing to `browse-url' |
| 145 | (:option +browse-url-transformations `((,(rx "//" (or "youtube.com" | 146 | (:option +browse-url-transformations `((,(rx "//" (or "youtube.com" |
| 146 | "youtu.be")) | 147 | "youtu.be")) |