Working,, but regression in Mermaid stylesheet

resources/test/test_extension.md

@@ -0,0 +1,7 @@
+# This is a test
+
+```test
+the quick brown fox jumped over the lazy dog
+```
+
+This concludes the test.

resources/test/test_local_links.md

@@ -0,0 +1,6 @@
+# This is a test
+
+[[Local link]]
+[Not a local link](http://nowhere.at.al)
+
+This concludes the test.

src/smeagol/formatting.clj

@@ -104,7 +104,6 @@
    ^String fragment
    ^String token
    formatter]
-  (log/info "index:" index "(type result):" (type result) "(type fragments):" (type fragments) "fragment:" fragment "token:" token ":formatter" formatter)
   (let
     [inky (keyword (str "inclusion-" index))
      fkey (keyword token)]

test/smeagol/test/formatting.clj

@@ -1,5 +1,6 @@
 (ns smeagol.test.formatting
   (:require [clojure.test :refer :all]
+            [clojure.string :as cs]
             [smeagol.formatting :refer :all]
             [smeagol.extensions.test :refer :all]
             [smeagol.local-links :refer :all]))
@@ -22,3 +23,21 @@
                      :inclusion-3)
           expected "<!-- The test extension has run and this is its output -->"]
       (is (= actual expected)))))
+
+(deftest test-md->html
+  (let [actual (:content (md->html
+                           {:source
+                            (cs/join
+                              "\n"
+                              ["# This is a test"
+                               ""
+                               "```test"
+                               "![Frost on a gate, Laurieston](content/uploads/g1.jpg)"
+                               "```"
+                               ""
+                               "This concludes the test"])} ))
+        expected (str
+                    "<h1 id=\"this&#95;is&#95;a&#95;test\">This is a test</h1>"
+                    "<p><!-- The test extension has run and this is its output --></p>"
+                    "<p>This concludes the test</p>")]
+    (is (= expected actual))))

test/smeagol/test/local_links.clj

@@ -1,5 +1,6 @@
 (ns smeagol.test.local-links
   (:require [clojure.test :refer :all]
+            [clojure.string :as cs]
             [smeagol.local-links :refer [local-links no-text-error]]
             [smeagol.extensions.test :refer :all]
             [smeagol.local-links :refer :all]))
@@ -10,5 +11,9 @@
     (is (= (local-links "") "") "Empty string should pass through unchanged.")
     (is (= (local-links "[[froboz]]") "<a href='wiki?page=froboz'>froboz</a>") "Local link should be rewritten.")
     (let [text (str "# This is a heading"
-                             "[This is a foreign link](http://to.somewhere)")]
-      (is (= (local-links text) text) "Foreign links should be unchanged"))))
+                    "[This is a foreign link](http://to.somewhere)")]
+      (is (= (local-links text) text) "Foreign links should be unchanged"))
+    (let [text (cs/trim (slurp "resources/test/test_local_links.md"))
+          actual (local-links text)
+          expected "# This is a test\n\n<a href='wiki?page=Local%20link'>Local link</a>\n[Not a local link](http://nowhere.at.al)\n\nThis concludes the test."]
+      (is (= actual expected)))))