From dbc47ac2e135a0220ebe2f208f37843d89881f7c Mon Sep 17 00:00:00 2001 From: =?utf8?q?=C3=89tienne=20Deparis?= Date: Mon, 28 Jun 2021 19:01:27 +0200 Subject: [PATCH] Support elpher in mu4e --- elpher.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/elpher.el b/elpher.el index f0770de..8a420e1 100644 --- a/elpher.el +++ b/elpher.el @@ -1782,8 +1782,7 @@ If ADDRESS is already bookmarked, update the label only." ;; Avoid byte compilation warnings. (eval-when-compile (declare-function org-link-store-props "ol") - (declare-function org-link-set-parameters "ol") - (defvar thing-at-point-uri-schemes)) + (declare-function org-link-set-parameters "ol")) (defun elpher-org-link-store () "Store link to an `elpher' page in `org'." @@ -1822,10 +1821,20 @@ If ADDRESS is already bookmarked, update the label only." 'browse-url-default-handlers '("^\\(gopher\\|finger\\|gemini\\)://" . elpher-browse-url-elpher))) +;; Avoid byte compilation warnings. +(eval-when-compile + (defvar thing-at-point-uri-schemes) + (defvar mu4e~view-beginning-of-url-regexp)) + ;; Register "gemini://" as a URI scheme so `browse-url' does the right thing (with-eval-after-load 'thingatpt (add-to-list 'thing-at-point-uri-schemes "gemini://")) +(with-eval-after-load 'mu4e-view + ;; Make mu4e aware of the gemini world + (setq mu4e~view-beginning-of-url-regexp + "\\(?:https?\\|gopher\\|finger\\|gemini\\)://\\|mailto:")) + ;;; Interactive procedures ;; -- 2.20.1