Merge pull request #610 from kaushalmodi/support-info-links

feat: Export info: links correctly

ox-hugo.el

@@ -885,6 +885,17 @@ https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=6b2a7cb20b357e73
   (and (string-match-p "\\`-?\\([0-9]\\|\\([1-9]\\|[0-9]*\\.\\)[0-9]*\\)\\'" string)
        (string-to-number string)))
 
+(defun org-hugo--org-info-export (path desc format)
+  "Add support for exporting [[info:..]] links for `hugo' format."
+  (let* ((parts (split-string path "#\\|::"))
+         (manual (car parts))
+         (node (or (nth 1 parts) "Top")))
+    (when (member format '(md hugo))
+      (format "[%s](%s#%s)"
+              (or desc path)
+              (org-info-map-html-url manual)
+              (org-info--expand-node-name node)))))
+
 (defun org-hugo--before-export-function (subtreep)
   "Function to be run before an ox-hugo export.
 
@@ -898,7 +909,8 @@ This is an internal function."
     ;; Reset the variables that are used only for subtree exports.
     (setq org-hugo--subtree-coord nil))
   (advice-add 'org-babel-exp-code :around #'org-hugo--org-babel-exp-code)
-  (advice-add 'org-babel--string-to-number :override #'org-hugo--org-babel--string-to-number))
+  (advice-add 'org-babel--string-to-number :override #'org-hugo--org-babel--string-to-number)
+  (advice-add 'org-info-export :override #'org-hugo--org-info-export))
 
 (defun org-hugo--after-1-export-function (info outfile)
   "Function to be run after exporting one post.
@@ -914,6 +926,7 @@ INFO is a plist used as a communication channel.
 OUTFILE is the Org exported file name.
 
 This is an internal function."
+  (advice-remove 'org-info-export #'org-hugo--org-info-export)
   (advice-remove 'org-babel--string-to-number #'org-hugo--org-babel--string-to-number)
   (advice-remove 'org-babel-exp-code #'org-hugo--org-babel-exp-code)
   (when (and outfile

test/site/content-org/all-posts.org

@@ -3781,6 +3781,16 @@ Below links are invalid, they are there just for test purpose.
 
 - [[https://jira.example.com/issues/?jql=(project=MYPRJ)AND(assignee=currentUser())][A dummy Jira JQL link]]
 - [[https://jira.example.com/issues/?jql=(project=MYPRJ)AND(assignee=currentUser())AND(labels in (foo))][A dummy Jira JQL link with spaces]]
+** Links to Info manual nodes                                          :info:
+:PROPERTIES:
+:EXPORT_FILE_NAME: links-to-info-manual-nodes
+:END:
+#+begin_description
+Test links to Info manual nodes.
+#+end_description
+- Link to an Org Info manual node: [[info:org#Search Options]]
+- Link to an Emacs Info manual node: [[info:emacs#Point]]
+- Link to an Emacs Lisp Info manual node: [[info:elisp#Lambda Expressions]]
 * Equations                                                       :equations:
 ** MathJax                                                          :mathjax:
 *** Inline equations

test/site/content/posts/coderef.md

@@ -8,7 +8,7 @@ tags = ["src-block", "coderef", "annotation", "example-block"]
 draft = false
 +++
 
-See [info:org#Literal Examples](org#Literal%20Examples).
+See [info:org#Literal Examples](https://www.gnu.org/software/emacs/manual/html_mono/org.html#Literal_002520Examples).
 
 In literal examples, Org interprets strings like `(ref:name)` as
 labels, and use them as targets for special hyperlinks like

test/site/content/posts/links-to-info-manual-nodes.md

@@ -0,0 +1,10 @@
++++
+title = "Links to Info manual nodes"
+description = "Test links to Info manual nodes."
+tags = ["links", "info"]
+draft = false
++++
+
+-   Link to an Org Info manual node: [org#Search Options](https://www.gnu.org/software/emacs/manual/html_mono/org.html#Search-Options)
+-   Link to an Emacs Info manual node: [emacs#Point](https://www.gnu.org/software/emacs/manual/html_mono/emacs.html#Point)
+-   Link to an Emacs Lisp Info manual node: [elisp#Lambda Expressions](https://www.gnu.org/software/emacs/manual/html_mono/elisp.html#Lambda-Expressions)