GPQAPP

1
// CodeMirror, copyright (c) by Marijn Haverbeke and others
2
// Distributed under an MIT license: https://codemirror.net/LICENSE
3

4
(function (mod) {
5
  if (typeof exports == "object" && typeof module == "object") // CommonJS
6
    mod(require("../../lib/codemirror"), require("../haskell/haskell"))
7
  else if (typeof define == "function" && define.amd) // AMD
8
    define(["../../lib/codemirror", "../haskell/haskell"], mod)
9
  else // Plain browser env
10
    mod(CodeMirror)
11
})(function (CodeMirror) {
12
  "use strict"
13

14
  CodeMirror.defineMode("haskell-literate", function (config, parserConfig) {
15
    var baseMode = CodeMirror.getMode(config, (parserConfig && parserConfig.base) || "haskell")
16

17
    return {
18
      startState: function () {
19
        return {
20
          inCode: false,
21
          baseState: CodeMirror.startState(baseMode)
22
        }
23
      },
24
      token: function (stream, state) {
25
        if (stream.sol()) {
26
          if (state.inCode = stream.eat(">"))
27
            return "meta"
28
        }
29
        if (state.inCode) {
30
          return baseMode.token(stream, state.baseState)
31
        } else {
32
          stream.skipToEnd()
33
          return "comment"
34
        }
35
      },
36
      innerMode: function (state) {
37
        return state.inCode ? {state: state.baseState, mode: baseMode} : null
38
      }
39
    }
40
  }, "haskell")
41

42
  CodeMirror.defineMIME("text/x-literate-haskell", "haskell-literate")
43
});
44