X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=elpher.el;h=9b573244eda2216013dccc2898069068350e3cad;hb=ce0b66df15e6fbc23506b0dcecd4a428f7d18361;hp=e9fa4cddf623927ca29beafe44978f9f5a550d3a;hpb=1a8d4300dc8a781d193183caab15a4ad5e0c8297;p=elpher.git diff --git a/elpher.el b/elpher.el index e9fa4cd..9b57324 100644 --- a/elpher.el +++ b/elpher.el @@ -1,10 +1,22 @@ ;;; elpher.el --- A friendly gopher and gemini client -*- lexical-binding:t -*- -;; Copyright (C) 2019-2020 Tim Vaughan +;; Copyright (C) 2021 Jens Östlund +;; Copyright (C) 2021 F. Jason Park +;; Copyright (C) 2021 Christopher Brannon +;; Copyright (C) 2021 Omar Polo +;; Copyright (C) 2021 Noodles! +;; Copyright (C) 2020 Étienne Deparis +;; Copyright (C) 2020 Alex Schroeder +;; Copyright (C) 2020 Simon Nicolussi +;; Copyright (C) 2020 Michel Alexandre Salim +;; Copyright (C) 2020 Koushk Roy +;; Copyright (C) 2020 Vee +;; Copyright (C) 2020 Simon South +;; Copyright (C) 2019-2020 Tim Vaughan ;; Author: Tim Vaughan ;; Created: 11 April 2019 -;; Version: 2.10.2 +;; Version: 2.11.0 ;; Keywords: comm gopher ;; Homepage: http://thelambdalab.xyz/elpher ;; Package-Requires: ((emacs "26.2")) @@ -1732,6 +1744,19 @@ If ADDRESS is already bookmarked, update the label only." (org-add-link-type "mu4e" 'elpher-org-link-follow) (add-hook 'org-store-link-functions 'elpher-org-link-store))) +(defun browse-url-elpher (url &rest _args) + "Browse URL. This function is used by `browse-url'." + (interactive (browse-url-interactive-arg "Elpher URL: ")) + (elpher-go url)) + +(with-eval-after-load "browse-url" + ;; Use elpher to open gopher, finger and gemini links + (when (boundp 'browse-url-default-handlers) + (add-to-list 'browse-url-default-handlers + '("^\\(gopher\\|finger\\|gemini\\)://" . browse-url-elpher))) + ;; Register "gemini://" as a URI scheme so `browse-url' does the right thing + (add-to-list 'thing-at-point-uri-schemes "gemini://")) + ;;; Interactive procedures ;;