2019-03-04 10:22:00 +01:00
|
|
|
|
;;; oni-browse-url.el --- Browse URL configuration -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
|
|
;; Copyright (C) 2019 Tom Willemse
|
|
|
|
|
|
|
|
|
|
;; Author: Tom Willemse <tom@ryuslash.org>
|
|
|
|
|
;; Keywords: local
|
2022-12-13 16:09:34 +01:00
|
|
|
|
;; Version: 2022.1213.070851
|
2019-03-04 10:22:00 +01:00
|
|
|
|
|
|
|
|
|
;; 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)
|
|
|
|
|
|
2022-12-13 16:09:34 +01:00
|
|
|
|
(autoload 'mastodon-url-lookup "mastodon")
|
|
|
|
|
|
2022-02-08 18:42:32 +01:00
|
|
|
|
;; 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."
|
2022-04-02 03:44:23 +02:00
|
|
|
|
(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))))
|
2022-02-08 18:42:32 +01:00
|
|
|
|
|
2019-03-04 10:22:00 +01:00
|
|
|
|
(setq browse-url-browser-function
|
|
|
|
|
(if (eql system-type 'windows-nt)
|
|
|
|
|
'browse-url-default-windows-browser
|
|
|
|
|
'browse-url-firefox))
|
|
|
|
|
|
2022-12-13 16:09:34 +01:00
|
|
|
|
;; 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)))
|
|
|
|
|
|
2022-02-08 18:42:32 +01:00
|
|
|
|
(advice-add 'browse-url :filter-args #'browse-url-redirect-alternative)
|
|
|
|
|
|
2019-03-04 10:22:00 +01:00
|
|
|
|
(provide 'oni-browse-url)
|
|
|
|
|
;;; oni-browse-url.el ends here
|