[nongnu] elpa/hyperdrive c4567c4b9f 46/82: Change: (hyperdrive--org-normalize-link) Use hyperdrive-entry-url

[ELPA Syncer]

branch: elpa/hyperdrive
commit c4567c4b9f515bf85458ccd589fdc07b56be1c8c
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive--org-normalize-link) Use hyperdrive-entry-url
    
    This change means that a domain name would be used when to public key
    is available, which should never be the case.
---
 hyperdrive-org.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/hyperdrive-org.el b/hyperdrive-org.el
index 63e11d6373..4d7716b8dd 100644
--- a/hyperdrive-org.el
+++ b/hyperdrive-org.el
@@ -185,8 +185,7 @@ FIXME: Docstring, maybe move details from 
`hyperdrive-org-link-full-url'."
   (cl-assert hyperdrive-current-entry)
   (let* ((url (org-element-property :raw-link link-element))
          (target-entry (hyperdrive-url-entry url))
-         (search-option (alist-get 'target (hyperdrive-entry-etc 
target-entry)))
-         (host-format '(public-key)) (with-path t) (with-protocol t))
+         (search-option (alist-get 'target (hyperdrive-entry-etc 
target-entry))))
 
     (when (or hyperdrive-org-link-full-url
               (not (hyperdrive-entry-hyperdrive-equal-p
@@ -194,12 +193,10 @@ FIXME: Docstring, maybe move details from 
`hyperdrive-org-link-full-url'."
       ;; Full "hyper://" URL
       (when search-option
         ;; When linking to a different file, prefix search option with "::".
-        (cl-callf2 concat "::" (alist-get 'target (hyperdrive-entry-etc 
target-entry))))
+        (cl-callf2 concat "::"
+                   (alist-get 'target (hyperdrive-entry-etc target-entry))))
       (cl-return-from hyperdrive--org-normalize-link
-        (hyperdrive--format-entry-url
-         target-entry
-         :with-path with-path
-         :with-protocol with-protocol :host-format host-format)))
+        (hyperdrive-entry-url target-entry)))
 
     (when (and search-option
                (hyperdrive-entry-equal-p hyperdrive-current-entry 
target-entry))