From: Daniel Semyonov <daniel@dsemy.com>
Date: Tue, 29 Jun 2021 15:07:54 +0000 (+0300)
Subject: Cleanup Org integration
X-Git-Tag: bookmarks~18
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=bde7f861e6888e119abab402c30a50ea265185db;hp=70aa33aa021a46a8337348de253b83aa6a11c71c

Cleanup Org integration

Remove uses of 'with-eval-after-load'.
Remove compatibility with old versions of Org (also bump required
Emacs version to 27.1 accordingly).
---

diff --git a/elpher-pkg.el b/elpher-pkg.el
index 13255f3..af4a208 100644
--- a/elpher-pkg.el
+++ b/elpher-pkg.el
@@ -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")
diff --git a/elpher.el b/elpher.el
index 27a0295..ec7edcb 100644
--- 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)