/* TODO Handle multiline code after tag %foo= some | multiline | code | */ (function (Prism) { Prism.languages.haml = { // Multiline stuff should appear before the rest 'multiline-comment': { pattern: /((?:^|\r?\n|\r)([\t ]*))(?:\/|-#).*(?:(?:\r?\n|\r)\2[\t ].+)*/, lookbehind: true, alias: 'comment', }, 'multiline-code': [ { pattern: /((?:^|\r?\n|\r)([\t ]*)(?:[~-]|[&!]?=)).*,[\t ]*(?:(?:\r?\n|\r)\2[\t ].*,[\t ]*)*(?:(?:\r?\n|\r)\2[\t ].+)/, lookbehind: true, inside: Prism.languages.ruby, }, { pattern: /((?:^|\r?\n|\r)([\t ]*)(?:[~-]|[&!]?=)).*\|[\t ]*(?:(?:\r?\n|\r)\2[\t ].*\|[\t ]*)*/, lookbehind: true, inside: Prism.languages.ruby, }, ], // See at the end of the file for known filters filter: { pattern: /((?:^|\r?\n|\r)([\t ]*)):[\w-]+(?:(?:\r?\n|\r)(?:\2[\t ].+|\s*?(?=\r?\n|\r)))+/, lookbehind: true, inside: { 'filter-name': { pattern: /^:[\w-]+/, alias: 'symbol', }, }, }, markup: { pattern: /((?:^|\r?\n|\r)[\t ]*)<.+/, lookbehind: true, inside: Prism.languages.markup, }, doctype: { pattern: /((?:^|\r?\n|\r)[\t ]*)!!!(?: .+)?/, lookbehind: true, }, tag: { // Allows for one nested group of braces pattern: /((?:^|\r?\n|\r)[\t ]*)[%.#][\w\-#.]*[\w\-](?:\([^)]+\)|\{(?:\{[^}]+\}|[^{}])+\}|\[[^\]]+\])*[\/<>]*/, lookbehind: true, inside: { attributes: [ { // Lookbehind tries to prevent interpolations from breaking it all // Allows for one nested group of braces pattern: /(^|[^#])\{(?:\{[^}]+\}|[^{}])+\}/, lookbehind: true, inside: Prism.languages.ruby, }, { pattern: /\([^)]+\)/, inside: { 'attr-value': { pattern: /(=\s*)(?:"(?:\\.|[^\\"\r\n])*"|[^)\s]+)/, lookbehind: true, }, 'attr-name': /[\w:-]+(?=\s*!?=|\s*[,)])/, punctuation: /[=(),]/, }, }, { pattern: /\[[^\]]+\]/, inside: Prism.languages.ruby, }, ], punctuation: /[<>]/, }, }, code: { pattern: /((?:^|\r?\n|\r)[\t ]*(?:[~-]|[&!]?=)).+/, lookbehind: true, inside: Prism.languages.ruby, }, // Interpolations in plain text interpolation: { pattern: /#\{[^}]+\}/, inside: { delimiter: { pattern: /^#\{|\}$/, alias: 'punctuation', }, ruby: { pattern: /[\s\S]+/, inside: Prism.languages.ruby, }, }, }, punctuation: { pattern: /((?:^|\r?\n|\r)[\t ]*)[~=\-&!]+/, lookbehind: true, }, }; var filter_pattern = '((?:^|\\r?\\n|\\r)([\\t ]*)):{{filter_name}}(?:(?:\\r?\\n|\\r)(?:\\2[\\t ].+|\\s*?(?=\\r?\\n|\\r)))+'; // Non exhaustive list of available filters and associated languages var filters = [ 'css', { filter: 'coffee', language: 'coffeescript' }, 'erb', 'javascript', 'less', 'markdown', 'ruby', 'scss', 'textile', ]; var all_filters = {}; for (var i = 0, l = filters.length; i < l; i++) { var filter = filters[i]; filter = typeof filter === 'string' ? { filter: filter, language: filter } : filter; if (Prism.languages[filter.language]) { all_filters['filter-' + filter.filter] = { pattern: RegExp( filter_pattern.replace('{{filter_name}}', function () { return filter.filter; }) ), lookbehind: true, inside: { 'filter-name': { pattern: /^:[\w-]+/, alias: 'symbol', }, text: { pattern: /[\s\S]+/, alias: [filter.language, 'language-' + filter.language], inside: Prism.languages[filter.language], }, }, }; } } Prism.languages.insertBefore('haml', 'filter', all_filters); })(Prism); '#n25'>25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
Prism.languages.scheme = {
  comment:
    /;.*|#;\s*(?:\((?:[^()]|\([^()]*\))*\)|\[(?:[^\[\]]|\[[^\[\]]*\])*\])|#\|(?:[^#|]|#(?!\|)|\|(?!#)|#\|(?:[^#|]|#(?!\|)|\|(?!#))*\|#)*\|#/,
  string: { pattern: /"(?:[^"\\]|\\.)*"/, greedy: !0 },
  symbol: { pattern: /'[^()\[\]#'\s]+/, greedy: !0 },
  char: {
    pattern:
      /#\\(?:[ux][a-fA-F\d]+\b|[-a-zA-Z]+\b|[\uD800-\uDBFF][\uDC00-\uDFFF]|\S)/,
    greedy: !0,
  },
  'lambda-parameter': [
    {
      pattern:
        /((?:^|[^'`#])[(\[]lambda\s+)(?:[^|()\[\]'\s]+|\|(?:[^\\|]|\\.)*\|)/,
      lookbehind: !0,
    },
    { pattern: /((?:^|[^'`#])[(\[]lambda\s+[(\[])[^()\[\]']+/, lookbehind: !0 },
  ],
  keyword: {
    pattern:
      /((?:^|[^'`#])[(\[])(?:begin|case(?:-lambda)?|cond(?:-expand)?|define(?:-library|-macro|-record-type|-syntax|-values)?|defmacro|delay(?:-force)?|do|else|except|export|guard|if|import|include(?:-ci|-library-declarations)?|lambda|let(?:rec)?(?:-syntax|-values|\*)?|let\*-values|only|parameterize|prefix|(?:quasi-?)?quote|rename|set!|syntax-(?:case|rules)|unless|unquote(?:-splicing)?|when)(?=[()\[\]\s]|$)/,
    lookbehind: !0,
  },
  builtin: {
    pattern:
      /((?:^|[^'`#])[(\[])(?:abs|and|append|apply|assoc|ass[qv]|binary-port\?|boolean=?\?|bytevector(?:-append|-copy|-copy!|-length|-u8-ref|-u8-set!|\?)?|caar|cadr|call-with-(?:current-continuation|port|values)|call\/cc|car|cdar|cddr|cdr|ceiling|char(?:->integer|-ready\?|\?|<\?|<=\?|=\?|>\?|>=\?)|close-(?:input-port|output-port|port)|complex\?|cons|current-(?:error|input|output)-port|denominator|dynamic-wind|eof-object\??|eq\?|equal\?|eqv\?|error|error-object(?:-irritants|-message|\?)|eval|even\?|exact(?:-integer-sqrt|-integer\?|\?)?|expt|features|file-error\?|floor(?:-quotient|-remainder|\/)?|flush-output-port|for-each|gcd|get-output-(?:bytevector|string)|inexact\??|input-port(?:-open\?|\?)|integer(?:->char|\?)|lcm|length|list(?:->string|->vector|-copy|-ref|-set!|-tail|\?)?|make-(?:bytevector|list|parameter|string|vector)|map|max|member|memq|memv|min|modulo|negative\?|newline|not|null\?|number(?:->string|\?)|numerator|odd\?|open-(?:input|output)-(?:bytevector|string)|or|output-port(?:-open\?|\?)|pair\?|peek-char|peek-u8|port\?|positive\?|procedure\?|quotient|raise|raise-continuable|rational\?|rationalize|read-(?:bytevector|bytevector!|char|error\?|line|string|u8)|real\?|remainder|reverse|round|set-c[ad]r!|square|string(?:->list|->number|->symbol|->utf8|->vector|-append|-copy|-copy!|-fill!|-for-each|-length|-map|-ref|-set!|\?|<\?|<=\?|=\?|>\?|>=\?)?|substring|symbol(?:->string|\?|=\?)|syntax-error|textual-port\?|truncate(?:-quotient|-remainder|\/)?|u8-ready\?|utf8->string|values|vector(?:->list|->string|-append|-copy|-copy!|-fill!|-for-each|-length|-map|-ref|-set!|\?)?|with-exception-handler|write-(?:bytevector|char|string|u8)|zero\?)(?=[()\[\]\s]|$)/,
    lookbehind: !0,
  },
  operator: {
    pattern: /((?:^|[^'`#])[(\[])(?:[-+*%/]|[<>]=?|=>?)(?=[()\[\]\s]|$)/,
    lookbehind: !0,
  },
  number: {
    pattern: RegExp(
      (function (r) {
        for (var e in r)
          r[e] = r[e].replace(/<[\w\s]+>/g, function (e) {
            return '(?:' + r[e].trim() + ')';
          });
        return r[e];
      })({
        '<ureal dec>':
          '\\d+(?:/\\d+)|(?:\\d+(?:\\.\\d*)?|\\.\\d+)(?:[esfdl][+-]?\\d+)?',
        '<real dec>': '[+-]?<ureal dec>|[+-](?:inf|nan)\\.0',
        '<imaginary dec>': '[+-](?:<ureal dec>|(?:inf|nan)\\.0)?i',
        '<complex dec>':
          '<real dec>(?:@<real dec>|<imaginary dec>)?|<imaginary dec>',
        '<num dec>': '(?:#d(?:#[ei])?|#[ei](?:#d)?)?<complex dec>',
        '<ureal box>': '[0-9a-f]+(?:/[0-9a-f]+)?',
        '<real box>': '[+-]?<ureal box>|[+-](?:inf|nan)\\.0',
        '<imaginary box>': '[+-](?:<ureal box>|(?:inf|nan)\\.0)?i',
        '<complex box>':
          '<real box>(?:@<real box>|<imaginary box>)?|<imaginary box>',
        '<num box>': '#[box](?:#[ei])?|(?:#[ei])?#[box]<complex box>',
        '<number>':
          '(^|[()\\[\\]\\s])(?:<num dec>|<num box>)(?=[()\\[\\]\\s]|$)',
      }),
      'i'
    ),
    lookbehind: !0,
  },
  boolean: {
    pattern: /(^|[()\[\]\s])#(?:[ft]|false|true)(?=[()\[\]\s]|$)/,
    lookbehind: !0,
  },
  function: {
    pattern:
      /((?:^|[^'`#])[(\[])(?:[^|()\[\]'\s]+|\|(?:[^\\|]|\\.)*\|)(?=[()\[\]\s]|$)/,
    lookbehind: !0,
  },
  identifier: {
    pattern: /(^|[()\[\]\s])\|(?:[^\\|]|\\.)*\|(?=[()\[\]\s]|$)/,
    lookbehind: !0,
    greedy: !0,
  },
  punctuation: /[()\[\]']/,
};