emacs-config/oni-browse-url.el

;;; 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.1213.070851

;; 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)

(autoload 'mastodon-url-lookup "mastodon")

;; 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."
  (save-match-data
    (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://medium.marqeta.com" (car args))
      (cons (string-replace "https://medium.marqeta.com" "https://scribe.rip/marqeta" (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-match (rx "https://" (optional (one-or-more (not ".")) ".") "medium.com") (car args))
      (cons (replace-match "https://scribe.rip" nil nil (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))

;; Taken from https://mas.to/@ParetoOptimalDev/109378647927115065
(defun oni-browse-url-browse-mastodon (url &rest _args)
  "Open URL in mastodon."
  (mastodon-url-lookup url))

(when (package-installed-p 'mastodon)
  (add-to-list 'browse-url-handlers
               (cons (rx "http" (optional "s") "://"
                         (minimal-match (one-or-more (not "/")))
                         "/@"
                         (minimal-match (one-or-more (not "/")))
                         "/")
                     #'oni-browse-url-browse-mastodon)))

(advice-add 'browse-url :filter-args #'browse-url-redirect-alternative)

(provide 'oni-browse-url)
;;; oni-browse-url.el ends here