The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support elpher in mu4e
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
f0770de
..
8a420e1
100644
(file)
--- 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")
;; 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'."
(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)))
'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://"))
;; 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
;;
;;; Interactive procedures
;;