[nongnu] elpa/hyperdrive 1fb11bed18 50/82: Fix: (hyperdrive--org-insert-link-after-advice) Preserve description

[ELPA Syncer]

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

    Fix: (hyperdrive--org-insert-link-after-advice) Preserve description
---
 hyperdrive-org.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hyperdrive-org.el b/hyperdrive-org.el
index 2010b7b07e..97145126d0 100644
--- a/hyperdrive-org.el
+++ b/hyperdrive-org.el
@@ -175,6 +175,7 @@ the current location."
     (let* ((link-element (org-element-context))
            (_ (cl-assert (eq 'link (car link-element))))
            (url (org-element-property :raw-link link-element))
+           (desc (hyperdrive--org-link-description link-element))
            (target-entry (hyperdrive-url-entry url)))
       (when (and (not hyperdrive-org-link-full-url)
                  (hyperdrive-entry-hyperdrive-equal-p
@@ -182,7 +183,8 @@ the current location."
         (delete-region (org-element-property :begin link-element)
                        (org-element-property :end link-element))
         (insert (org-link-make-string
-                 (hyperdrive--org-shorthand-link target-entry)))))))
+                 (hyperdrive--org-shorthand-link target-entry)
+                 desc))))))
 
 (cl-defun hyperdrive--org-shorthand-link (entry)
   "Return a non-\"hyper://\"-prefixed link to ENTRY.