Merge pull request #55 from glebec/f/markdown-support

Support for Markdown code fence (haskell, hs)

package.json

@@ -97,6 +97,16 @@
                 "language": "literate haskell",
                 "scopeName": "text.tex.latex.haskell",
                 "path": "./syntaxes/literateHaskell.tmLanguage"
+            },
+            {
+                "scopeName": "markdown.haskell.codeblock",
+                "path": "./syntaxes/codeblock-haskell.json",
+                "injectTo": [
+                    "text.html.markdown"
+                ],
+                "embeddedLanguages": {
+                    "meta.embedded.block.haskell": "haskell"
+                }
             }
         ]
     },

syntaxes/codeblock-haskell.json

@@ -0,0 +1,28 @@
+{
+    "fileTypes": [],
+    "injectionSelector": "L:markup.fenced_code.block.markdown",
+    "patterns": [
+        {
+            "include": "#haskell-code-block"
+        }
+    ],
+    "repository": {
+        "haskell-code-block": {
+            "begin": "(haskell|hs)(\\s+[^`~]*)?$",
+            "end": "(^|\\G)(?=\\s*[`~]{3,}\\s*$)",
+            "patterns": [
+                {
+                    "begin": "(^|\\G)(\\s*)(.*)",
+                    "while": "(^|\\G)(?!\\s*([`~]{3,})\\s*$)",
+                    "contentName": "meta.embedded.block.haskell",
+                    "patterns": [
+                        {
+                            "include": "source.haskell"
+                        }
+                    ]
+                }
+            ]
+        }
+    },
+    "scopeName": "markdown.haskell.codeblock"
+}