From 171667f146386122b5a1169727ab040868c14d6c Mon Sep 17 00:00:00 2001
From: Kaushal Modi <kaushal.modi@gmail.com>
Date: Sun, 23 Jan 2022 12:33:52 -0500
Subject: [PATCH] Fix for ws trimming around a special block before/after code
 block

---
 ox-hugo.el                                    |  6 +++---
 test/site/content-org/all-posts.org           | 20 ++++++++++++++++++-
 ...ming-around-special-blocks-corner-cases.md | 14 ++++++++++++-
 3 files changed, 35 insertions(+), 5 deletions(-)

diff --git a/ox-hugo.el b/ox-hugo.el
index e79847cc..63a60199 100644
--- a/ox-hugo.el
+++ b/ox-hugo.el
@@ -1831,10 +1831,10 @@ holding export options."
                   (concat (org-hugo--build-toc info toc-level) "\n")
                 ""))
          (contents (replace-regexp-in-string ;Trim stuff before selected exported elements
-                    (concat "\\([[:space:]>]\\|\n\\)+" (regexp-quote org-hugo--trim-pre-marker))
-                    " " contents))
+                    (concat "\\([^`]\\)\\([[:space:]>]\\|\n\\)+" (regexp-quote org-hugo--trim-pre-marker))
+                    "\\1 " contents))
          (contents (replace-regexp-in-string ;Trim stuff after selected exported elements
-                    (concat (regexp-quote org-hugo--trim-post-marker) "\\([[:space:]>]\\|\n\\)+\\([^-#]\\)")
+                    (concat (regexp-quote org-hugo--trim-post-marker) "\\([[:space:]>]\\|\n\\)+\\([^-#`]\\)")
                     " \\2" contents)))
     ;; (message "[org-hugo-inner-template DBG] toc-level: %s" toc-level)
     (org-trim (concat
diff --git a/test/site/content-org/all-posts.org b/test/site/content-org/all-posts.org
index 526229be..d04ed89b 100644
--- a/test/site/content-org/all-posts.org
+++ b/test/site/content-org/all-posts.org
@@ -4860,7 +4860,7 @@ line 1
 abc def
 #+end_sidenote<>
 line 2
-*** Whitespace trimming around special blocks (corner cases)         :quotes:
+*** Whitespace trimming around special blocks (corner cases)
 :PROPERTIES:
 :EXPORT_FILE_NAME: ws-trimming-around-special-blocks-corner-cases
 :END:
@@ -4885,6 +4885,24 @@ something
 marked text
 #+end_mark<>
 ***** Next heading
+**** Whitespace trimming before and after code blocks
+something
+#+begin_mark<>
+marked text
+#+end_mark<>
+#+begin_example
+code line
+#+end_example
+#+begin_mark<>
+marked text
+#+end_mark<>
+
+something
+~inline code 1~
+#+begin_mark<>
+marked text
+#+end_mark<>
+~inline code 2~
 * Shortcodes                                                      :shortcode:
 ** Alert CSS                                                       :noexport:
 *** Common CSS
diff --git a/test/site/content/posts/ws-trimming-around-special-blocks-corner-cases.md b/test/site/content/posts/ws-trimming-around-special-blocks-corner-cases.md
index 58b0f245..a429dd4d 100644
--- a/test/site/content/posts/ws-trimming-around-special-blocks-corner-cases.md
+++ b/test/site/content/posts/ws-trimming-around-special-blocks-corner-cases.md
@@ -1,6 +1,6 @@
 +++
 title = "Whitespace trimming around special blocks (corner cases)"
-tags = ["special-block", "whitespace", "trimming", "quotes"]
+tags = ["special-block", "whitespace", "trimming"]
 draft = false
 +++
 
@@ -20,3 +20,15 @@ something <mark>marked text</mark>
 
 something <mark>marked text</mark>
 ### Next heading {#next-heading}
+
+
+## Whitespace trimming before and after code blocks {#whitespace-trimming-before-and-after-code-blocks}
+
+something <mark>marked text</mark>
+```text
+code line
+```
+ <mark>marked text</mark> something
+`inline code 1`
+ <mark>marked text</mark>
+`inline code 2`