Cleanup Org integration
authorDaniel Semyonov <daniel@dsemy.com>
Tue, 29 Jun 2021 15:07:54 +0000 (18:07 +0300)
committerAlex Schroeder <alex@gnu.org>
Tue, 29 Jun 2021 18:46:37 +0000 (20:46 +0200)
Remove uses of 'with-eval-after-load'.
Remove compatibility with old versions of Org (also bump required
Emacs version to 27.1 accordingly).

elpher-pkg.el
elpher.el

index 13255f3..af4a208 100644 (file)
@@ -1,5 +1,5 @@
 (define-package "elpher" "2.11.0" "A friendly gopher and gemini client"
-  '((emacs "26.2"))
+  '((emacs "27.1"))
   :keywords ("convenience")
   :authors (("Tim Vaughan" . "plugd@thelambdalab.xyz"))
   :maintainer ("Alex Schroeder" . "alex@alexschroeder.ch")
index 27a0295..ec7edcb 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -21,8 +21,8 @@
 ;; Created: 11 April 2019
 ;; Version: 2.11.0
 ;; Keywords: comm gopher
-;; Homepage: http://thelambdalab.xyz/elpher
-;; Package-Requires: ((emacs "26.2"))
+;; Homepage: https://alexschroeder.ch/cgit/elpher
+;; Package-Requires: ((emacs "27.1"))
 
 ;; This file is not part of GNU Emacs.
 
@@ -81,6 +81,7 @@
 (require 'nsm)
 (require 'gnutls)
 (require 'socks)
+(require 'ol)
 
 ;;; ANSI colors or XTerm colors
 
@@ -1779,6 +1780,11 @@ If ADDRESS is already bookmarked, update the label only."
 ;;; Integrations
 ;;
 
+;; Avoid byte compilation warnings.
+(eval-when-compile
+  (declare-function org-link-store-props "ol")
+  (declare-function org-link-set-parameters "ol"))
+
 (defun elpher-org-link-store ()
   "Store link to an `elpher' page in `org'."
   (when (eq major-mode 'elpher-mode)
@@ -1799,14 +1805,9 @@ If ADDRESS is already bookmarked, update the label only."
          (string-match-p "^finger://.+" link))
     (elpher-go (string-remove-prefix "elpher:" link))))
 
-(with-eval-after-load "org"
-  ;; Use `org-link-set-parameters' if defined (org-mode 9+)
-  (if (fboundp 'org-link-set-parameters)
-      (org-link-set-parameters "elpher"
-                               :store #'elpher-org-link-store
-                               :follow #'elpher-org-link-follow)
-    (org-add-link-type "mu4e" 'elpher-org-link-follow)
-    (add-hook 'org-store-link-functions 'elpher-org-link-store)))
+(org-link-set-parameters "elpher"
+                         :store #'elpher-org-link-store
+                         :follow #'elpher-org-link-follow)
 
 ;;;###autoload
 (defun elpher-browse-url-elpher (url &rest _args)