Fix the occurrence of triple hyphens in anchors

example-site/content/posts/post-heading-slugs.md

@@ -1,6 +1,6 @@
 +++
 title = "Post heading with crazy characters"
-date = 2017-07-12T03:24:41-04:00
+date = 2017-07-12T11:10:00-04:00
 tags = []
 +++
 
@@ -13,4 +13,4 @@ tags = []
 ## (Foo)Bar.Baz&Zoo {#foo--bar-dot-baz-and-zoo}
 
 
-## Hey! I have a link [here](https://example.org) (Awesome!) {#hey-i-have-a-link-here---awesome}
+## Hey! I have a link [here](https://example.org) (Awesome!) {#hey-i-have-a-link-here--awesome}

ox-hugo.el

@@ -179,7 +179,7 @@ should be all lower-case."
          ;; Remove URLs if present in the string
          ;; The ")" in the below regexp is the closing parenthesis of a
          ;; Markdown link: [Desc](Link)
-         (str (replace-regexp-in-string (concat ffap-url-regexp "[^)]+)") "" str))
+         (str (replace-regexp-in-string (concat "\\](" ffap-url-regexp "[^)]+)") "]" str))
          ;; Replace "&" with " and "
          (str (replace-regexp-in-string "&" " and " str))
          ;; Replace "." with " dot "
@@ -191,7 +191,7 @@ should be all lower-case."
          ;; Replace 2 or more spaces with a single space
          (str (replace-regexp-in-string "[[:space:]]\\{2,\\}" " " str))
          ;; Replace parentheses with double-hyphens
-         (str (replace-regexp-in-string "\\s-*(\\([^)]+\\))\\s-*" "--\\1--" str))
+         (str (replace-regexp-in-string "\\s-*(\\([^)]+\\))\\s-*" " -\\1- " str))
          ;; Remove any remaining parentheses character
          (str (replace-regexp-in-string "[()]" "" str))
          ;; Replace spaces with hyphens