ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-browse-url] Add some redirections to scribe and yewtube

Browse source
This commit is contained in:
Tom Willemse 2022-02-16 01:01:19 -08:00
parent 055240f3db
commit 13e7e8767f
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
oni-browse-url.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
;; Version: 2022.0207.000602
;; Version: 2022.0212.230306
;; 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
@ -47,12 +47,27 @@ before this filter."
((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://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)))
(t args)))
(setq browse-url-browser-function