Fix Pandoc butchering the Hugo shortcodes

ox-hugo-pandoc-cite.el

@@ -69,8 +69,24 @@ The list of Pandoc specific meta-data is defined in
     (dolist (field ox-hugo-pandoc-cite-pandoc-meta-data)
       (let ((regexp (format "^%s: " (regexp-quote field))))
         (delete-matching-lines regexp)))
-    (buffer-substring-no-properties
-     (point-min) (point-max))))
+    (buffer-substring-no-properties (point-min) (point-max))))
+
+(defun ox-hugo-pandoc-cite--fix-pandoc-output (content)
+  "Fix the Pandoc output CONTENT and return it.
+
+Required fixes:
+
+- Unescape the Hugo shortcodes: \"{{\\\\=< shortcode \\\\=>}}\" -> \"{{< shortcode >}}\""
+  (with-temp-buffer
+    (insert content)
+    (goto-char (point-min))
+    (let ((case-fold-search nil)
+          (regexp (concat "{{\\\\<"
+                          "\\(?1:\\(.\\|\n\\)+?\\)"
+                          "\\\\>}}")))
+      (while (re-search-forward regexp nil :noerror)
+        (replace-match "{{<\\1>}}" :fixedcase)))
+    (buffer-substring-no-properties (point-min) (point-max))))
 
 (defun ox-hugo-pandoc-cite--parse-citations-maybe (info)
   "Check if Pandoc needs to be run to parse citations.
@@ -137,7 +153,8 @@ OUTFILE is the Org exported file name."
                                          (insert-file-contents outfile)
                                          (buffer-substring-no-properties
                                           (point-min) (point-max))))
-                 (fm-plus-content (concat fm "\n" post-pandoc-contents)))
+                 (contents-fixed (ox-hugo-pandoc-cite--fix-pandoc-output post-pandoc-contents))
+                 (fm-plus-content (concat fm "\n" contents-fixed)))
             (write-region fm-plus-content nil outfile)))
       (message "[ox-hugo-pandoc-cite] No bibliography file was specified"))))
 

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

@@ -4597,6 +4597,7 @@ This post should also be created in =content/section-a/=.
 :EXPORT_HUGO_PANDOC_CITATIONS: t
 :EXPORT_BIBLIOGRAPHY: bib/bib1.bib, bib/bib2.bib
 :EXPORT_HUGO_CUSTOM_FRONT_MATTER: :nocite '(@giovanelli2016 @eilan2016)
+:EXPORT_HUGO_PAIRED_SHORTCODES: %mdshortcode myshortcode
 :END:
 **** Section 1
 Here is a test example file with an in-text citation where someone
@@ -4609,6 +4610,15 @@ See [[#citation-example-section-2]].
 :CUSTOM_ID: citation-example-section-2
 :END:
 Content in section 2.
+**** Testing random Hugo shortcode
+#+begin_mdshortcode
+Text containing *Markdown*
+#+end_mdshortcode
+
+#+begin_myshortcode
+Text not containing *Markdown*
+#+end_myshortcode
+
 **** COMMENT References
 * Export Options                                              :export_option:
 ** Table of Contents (TOC)                                              :toc:

test/site/content/posts/citations-example.md

@@ -16,6 +16,13 @@ See [Section 2](#citation-example-section-2).
 
 Content in section 2.
 
+## Testing random Hugo shortcode
+
+{{% mdshortcode %}} Text containing **Markdown** {{% /mdshortcode %}}
+
+{{< myshortcode >}} Text not containing **Markdown** {{< /myshortcode
+>}}
+
 ::: {#refs .references}
 ::: {#ref-eilan2016}
 Eilan, Naomi. 2016. "You Me and the World." *Analysis* 76 (3): 311--24.