ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-browse-url] Open Mastodon URLs with mastodon.el if installed

Browse source
This commit is contained in:
Tom Willemse 2022-12-13 07:09:34 -08:00
parent cd94e63543
commit 8fb6beda45
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
oni-browse-url.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2022.0311.230935 ;; Version: 2022.1213.070851
;; This program is free software; you can redistribute it and/or modify ;; 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 ;; it under the terms of the GNU General Public License as published by
@ -27,6 +27,8 @@
(require 'browse-url) (require 'browse-url)
(autoload 'mastodon-url-lookup "mastodon")
;; Ideas: ;; Ideas:
;; - Split out to different functions for Medium, Twitter, Youtube, etc. ;; - 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. ;; - Split the medium one into *.medium.com and also allow arbitrary sites to be added.
@ -73,6 +75,20 @@ before this filter."
'browse-url-default-windows-browser 'browse-url-default-windows-browser
'browse-url-firefox)) '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) (advice-add 'browse-url :filter-args #'browse-url-redirect-alternative)
(provide 'oni-browse-url) (provide 'oni-browse-url)