87 lines
3.8 KiB
EmacsLisp
87 lines
3.8 KiB
EmacsLisp
;;; oni-browse-url.el --- Browse URL configuration -*- lexical-binding: t; -*-
|
||
|
||
;; Copyright (C) 2019 Tom Willemse
|
||
|
||
;; Author: Tom Willemse <tom@ryuslash.org>
|
||
;; Keywords: local
|
||
;; Version: 2022.0228.012441
|
||
|
||
;; This program is free software; you can redistribute it and/or modify
|
||
;; it under the terms of the GNU General Public License as published by
|
||
;; the Free Software Foundation, either version 3 of the License, or
|
||
;; (at your option) any later version.
|
||
|
||
;; This program is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||
|
||
;;; Commentary:
|
||
|
||
;; Browse URL configuration.
|
||
|
||
;;; Code:
|
||
|
||
(require 'browse-url)
|
||
|
||
;; Ideas:
|
||
;; - Split out to different functions for Medium, Twitter, Youtube, etc.
|
||
;; - Split the medium one into *.medium.com and also allow arbitrary sites to be added.
|
||
(defun browse-url-redirect-alternative (args)
|
||
"Check the url given to ‘browse-url’ and redirect to a free alternative if available.
|
||
ARGS is the list of arguments that was passed to ‘browse-url’
|
||
before this filter."
|
||
(cond
|
||
((string-prefix-p "https://blog.bitsrc.io" (car args))
|
||
(cons (string-replace "https://blog.bitsrc.io" "https://scribe.rip/bitsrc" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://levelup.gitconnected.com" (car args))
|
||
(cons (string-replace "https://levelup.gitconnected.com" "https://scribe.rip/gitconnected" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://twitter.com" (car args))
|
||
(cons (string-replace "https://twitter.com" "https://nitter.net" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://kevingosse.medium.com" (car args))
|
||
(cons (string-replace "https://kevingosse.medium.com" "https://scribe.rip/kevingosse" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://medium.marqeta.com" (car args))
|
||
(cons (string-replace "https://medium.marqeta.com" "https://scribe.rip/marqeta" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://kevlinhenney.medium.com" (car args))
|
||
(cons (string-replace "https://kevlinhenney.medium.com" "https://scribe.rip" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://upekabee.medium.com" (car args))
|
||
(cons (string-replace "https://upekabee.medium.com" "https://scribe.rip" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://itnext.io" (car args))
|
||
(cons (string-replace "https://itnext.io" "https://scribe.rip" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://medium.com" (car args))
|
||
(cons (string-replace "https://medium.com" "https://scribe.rip" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://www.youtube.com" (car args))
|
||
(cons (string-replace "https://www.youtube.com" "https://yewtu.be" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://m.youtube.com" (car args))
|
||
(cons (string-replace "https://m.youtube.com" "https://yewtu.be" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://youtu.be" (car args))
|
||
(cons (string-replace "https://youtu.be/" "https://yewtu.be/watch?v=" (car args))
|
||
(cdr args)))
|
||
((string-prefix-p "https://www.instagram.com" (car args))
|
||
(cons (string-replace "https://www.instagram.com" "https://bibliogram.1d4.us/u" (car args))
|
||
(cdr args)))
|
||
(t args)))
|
||
|
||
(setq browse-url-browser-function
|
||
(if (eql system-type 'windows-nt)
|
||
'browse-url-default-windows-browser
|
||
'browse-url-firefox))
|
||
|
||
(advice-add 'browse-url :filter-args #'browse-url-redirect-alternative)
|
||
|
||
(provide 'oni-browse-url)
|
||
;;; oni-browse-url.el ends here
|