[elpa] externals/org 9cbaf8e49c 4/6: ox-ascii.el: Consistently add brackets around links

[ELPA Syncer]

branch: externals/org
commit 9cbaf8e49c75f0db33ea8cce270b8b0e33b707aa
Author: Max Nikulin <manikulin@gmail.com>
Commit: Ihor Radchenko <yantar92@posteo.net>

    ox-ascii.el: Consistently add brackets around links
    
    * lisp/ox-ascii.el (org-ascii-link): Add square brackets around
    description of fuzzy links when they are exported inline.
    * lisp/ol-docview.el (org-docview-export):
    * lisp/ox-ascii.el (org-ascii-link): Export links with square brackets
    around description and angle brackets around path.
    
    This make export of links inline (when `org-ascii-links-to-notes' is
    nil) consistent with "http:" links: "[DESC] (<URI>)".
    
    I would drop brackets for "http:" and similar links instead
    ("DESC (<URI>)" or even "DESC <URI>"), but any case I prefer
    consistency.
    
    Ihor Radchenko to emacs-orgmode. Re: [RFC][PATCH] Allow to export to
    ascii custom link types as notes. Tue, 24 Oct 2023 10:40:41 +0000.
    <https://list.orgmode.org/87edhk717a.fsf@localhost>
---
 lisp/ol-docview.el | 2 +-
 lisp/ol-man.el     | 2 +-
 lisp/ox-ascii.el   | 6 +++---
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/ol-docview.el b/lisp/ol-docview.el
index bb9b34a17f..bcb26520b0 100644
--- a/lisp/ol-docview.el
+++ b/lisp/ol-docview.el
@@ -67,7 +67,7 @@
       (cond
        ((eq backend 'html) (format "<a href=\"%s\">%s</a>" path desc))
        ((eq backend 'latex) (format "\\href{%s}{%s}" path desc))
-       ((eq backend 'ascii) (format "%s (%s)" desc path))
+       ((eq backend 'ascii) (format "[%s] (<%s>)" desc path))
        (t path)))))
 
 (defun org-docview-open (link _)
diff --git a/lisp/ol-man.el b/lisp/ol-man.el
index abe79086ac..645a6108e8 100644
--- a/lisp/ol-man.el
+++ b/lisp/ol-man.el
@@ -91,7 +91,7 @@ BACKEND is the current export backend."
      ((eq backend 'html) (format "<a target=\"_blank\" href=\"%s\">%s</a>" 
path desc))
      ((eq backend 'latex) (format "\\href{%s}{%s}" path desc))
      ((eq backend 'texinfo) (format "@uref{%s,%s}" path desc))
-     ((eq backend 'ascii) (format "%s (%s)" desc path))
+     ((eq backend 'ascii) (format "[%s] (<%s>)" desc path))
      ((eq backend 'md) (format "[%s](%s)" desc path))
      (t path))))
 
diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el
index 110bb46015..ae4273489a 100644
--- a/lisp/ox-ascii.el
+++ b/lisp/ox-ascii.el
@@ -1607,9 +1607,9 @@ INFO is a plist holding contextual information."
          ((guard desc)
           (if (plist-get info :ascii-links-to-notes)
               (format "[%s]" desc)
-            (concat desc
-                    (format " (%s)"
-                            (org-ascii--describe-datum destination info)))))
+            (format "[%s] (%s)"
+                     desc
+                    (org-ascii--describe-datum destination info))))
          ;; External file.
          (`plain-text destination)
          (`headline