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

1 files changed, 16 insertions, 1 deletions

diff --git a/oni-browse-url.el b/oni-browse-url.el
index 57feb6e..1c32d48 100644
--- a/oni-browse-url.el
+++ b/oni-browse-url.el
@@ -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