spox-ultraviolet 0.10.3

data/syntax/lilypond.syntax

@@ -0,0 +1,492 @@
+--- 
+name: Lilypond
+fileTypes: 
+- ly
+- ily
+scopeName: source.lilypond
+repository: 
+  g_markup: 
+    name: meta.element.markup.lilypond
+    begin: "(?x)\n\
+      \t\t\t\t((\\\\) markup) \\s+ # backslash + \"markup\" + spaces\n\
+      \t\t\t\t(?={)\n\
+      \t\t\t"
+    beginCaptures: 
+      "1": 
+        name: support.function.element.markup.lilypond
+      "2": 
+        name: punctuation.definition.function.markup
+    end: (?<=})
+    patterns: 
+    - include: "#g_m_group"
+  comments: 
+    patterns: 
+    - name: comment.block.lilypond
+      captures: 
+        "0": 
+          name: punctuation.definition.comment.lilypond
+      begin: "%{"
+      end: "%}"
+    - name: comment.line.lilypond
+      begin: "%"
+      beginCaptures: 
+        "0": 
+          name: punctuation.definition.comment.lilypond
+      end: $\n?
+  g_times: 
+    begin: ((\\)times)\s*(?:([1-9][0-9]*/[1-9][0-9])\s*)(?={)
+    beginCaptures: 
+      "1": 
+        name: support.function.section.lilypond
+      "2": 
+        name: punctuation.definition.function.lilypond
+      "3": 
+        name: constant.numeric.fraction.lilypond
+    end: (?<=})
+    patterns: 
+    - include: "#group"
+  f_keywords: 
+    name: keyword.control.lilypond
+    captures: 
+      "1": 
+        name: punctuation.definition.function.lilypond
+    match: "(?x)\n\
+      \t\t\t\t(?: (\\\\)\n\
+      \t\t\t\t    (?: set | new | override | revert)\n\
+      \t\t\t\t)\n\
+      \t\t\t"
+  f_clef: 
+    name: meta.element.clef.lilypond
+    captures: 
+      "6": 
+        name: meta.fixme.unknown-clef-name.lilypond
+      "7": 
+        name: constant.other.modifier.clef.lilypond
+      "8": 
+        name: punctuation.definition.string.lilypond
+      "1": 
+        name: support.function.element.lilypond
+      "2": 
+        name: punctuation.definition.function.lilypond
+      "3": 
+        name: punctuation.definition.string.lilypond
+      "4": 
+        name: constant.language.clef-name.lilypond
+      "5": 
+        name: constant.other.modifier.clef.lilypond
+    match: "(?x)\n\
+      \t\t\t\t((\\\\) clef) \\s+  # backslash + \"clef\" + spaces (groups 1-2)\n\
+      \t\t\t\t(?:\n\
+      \t\t\t\t  (\"?)\t# beginning quotes (group 3)\n\
+      \t\t\t\t  ( (?: # group 4\n\
+      \t\t\t\t\t  treble | violin | G | french |                    # G clefs\n\
+      \t\t\t\t      alto | C | tenor | (?:mezzo)?soprano | baritone | # C clefs\n\
+      \t\t\t\t      (?:sub)?bass | F | varbaritone |                  # F clefs\n\
+      \t\t\t\t      percussion | tab | # percussion / tablature clefs\n                      \n\
+      \t\t\t          (?:neo)?mensural-c[1-4] | mensural-[fg] | \t\t# Ancient clefs\n\
+      \t\t\t\t      petrucci-(?: [fg] | c[1-5] ) |\n\
+      \t\t\t\t      (?: vaticana | medicaea | hufnagel ) - (?: do[1-3] | fa[12] ) |\n\
+      \t\t\t\t      hufnagel-do-fa\n\
+      \t\t\t\t    )\n\
+      \t\t\t\t    ([_^](?:8|15)?)? # optionally shift 1-2 octaves \xE2\x86\x91/\xE2\x86\x93 (group 5)\n\
+      \t\t\t\t  ) |\n\
+      \t\t\t\t  ( (?:\\w+) ([_^](?:8|15))? ) # unknown clef name (groups 6-7)\n\
+      \t\t\t\t  (\\3) # closing quotes (group 8)\n\
+      \t\t\t\t)?\n\
+      \t\t\t"
+    comment: "\n\
+      \t\t\t\tThis looks something like:   \\clef mezzosoprano_8\n\
+      \t\t\t\tOr maybe:                    \\clef neomensural-c3^15\n\
+      \t\t\t"
+  g_relative: 
+    begin: ((\\)relative)\s*(?:([a-h][',]*)\s*)?(?={)
+    beginCaptures: 
+      "1": 
+        name: support.function.section.lilypond
+      "2": 
+        name: punctuation.definition.function.lilypond
+      "3": 
+        name: storage.type.pitch.lilypond
+    end: (?<=})
+    patterns: 
+    - include: "#group"
+  scheme: 
+    begin: "#"
+    contentName: source.scheme.embedded.lilypond
+    beginCaptures: 
+      "0": 
+        name: punctuation.section.embedded.scheme.lilypond
+    end: (?=[\s%])|(?<=\n)
+    patterns: 
+    - include: source.scheme
+    comment: "\n\
+      \t\t\t\tLilypond source can embed scheme code to do things more\n\
+      \t\t\t\tflexibly than allowed by the basic language.\n\n\
+      \t\t\t\tWe need to make sure to match after a \\n, as included\n\
+      \t\t\t\tby some s-expressions in the scheme grammar.\n\
+      \t\t\t"
+  notes: 
+    patterns: 
+    - name: meta.element.note.lilypond
+      begin: "(?x)\\b\n\
+        \t\t\t\t\t    (\t\t\t\t\t\t  # (group 1)\n\
+        \t\t\t\t\t\t  ( [a-h]                 # Pitch (group 2)\n\
+        \t\t\t\t\t\t    ( (?:i[sh]){1,2} |    #   - sharp (group 3)\n\
+        \t\t\t\t\t\t      (?:e[sh]|s){1,2}    #   - flat\n\
+        \t\t\t\t\t\t    )?\n\
+        \t\t\t\t\t        ([!?])?               # Cautionary accidental (group 4)\n\
+        \t\t\t\t\t        ('+|,+)?             # Octave (group 5)\n\
+        \t\t\t\t\t\t  )\n\
+        \t\t\t\t\t\t  ( ( ((\\\\)breve)|        # Duration (groups 6-9)\n\
+        \t\t\t\t\t\t      64|32|16|8|4|2|1\n\
+        \t\t\t\t\t\t    )\n\
+        \t\t\t\t\t\t    (\\.)?                 # Augmentation dot (group 10)\n\
+        \t\t\t\t\t\t\t((\\*)(\\d+(?:/\\d+)?))? # Scaling duration (groups 11-13)\n\
+        \t\t\t\t\t\t  )?\n\
+        \t\t\t\t\t\t)(?![a-z])\t# do not follow a note with a letter\n\
+        \t\t\t\t\t"
+      beginCaptures: 
+        "6": 
+          name: storage.type.duration.lilypond
+        "12": 
+          name: keyword.operator.duration-scale.lilypond
+        "13": 
+          name: constant.numeric.fraction.lilypond
+        "9": 
+          name: punctuation.definition.function.lilypond
+        "2": 
+          name: storage.type.pitch.lilypond
+        "4": 
+          name: meta.note-modifier.cautionary-accidental.lilypond
+        "5": 
+          name: meta.note-modifier.octave.lilypond
+      end: "(?x)\n\
+        \t\t\t\t\t\t(?= [ }~a-z] ) # End when we encounter a space or }\n\
+        \t\t\t\t\t"
+      patterns: 
+      - include: "#n_articulations"
+      comment: "\n\
+        \t\t\t\t\t\tThis rule handles notes, including the pitch, the\n\
+        \t\t\t\t\t\tduration, and any articulations drawn along with\n\
+        \t\t\t\t\t\tthe note.\n\
+        \t\t\t\t\t\t\n\
+        \t\t\t\t\t\tThis rule gets a whole lot uglier if we want to\n\
+        \t\t\t\t\t\tsupport multilingual note names.  If so, the rule\n\
+        \t\t\t\t\t\tgoes something like:\n\
+        \t\t\t\t\t\t\n\
+        \t\t\t\t\t\t(?x)\n\
+        \t\t\t\t\t\t\t\\b( # Basic Pitches\n\
+        \t\t\t\t\t\t\t  [a-h]  # Dutch/English/etc.                         \n\
+        \t\t\t\t\t\t\t  (?: (iss?|s|sharp|x)(iss?|s|sharp|x|ih) | # sharp / flat\n\
+        \t\t\t\t\t\t\t\t  (ess?|s|flat|f)(ess?|s|flat|f|eh)\n\
+        \t\t\t\t\t\t\t  )? |\n\
+        \t\t\t\t\t\t\t  (?: do|re|mi|fa|sol|la|si) # Italian/Spanish\n\
+        \t\t\t\t\t\t\t  (?: ss?|dd?bb?) # sharp/flat\n\
+        \t\t\t\t\t\t\t)\n\
+        \t\t\t\t\t\t...\n\
+        \t\t\t\t\t"
+    - name: meta.element.pause.rest.lilypond
+      begin: "(?x)\\b\n\
+        \t\t\t\t\t\t(r) # (group 1)\n\
+        \t\t\t\t\t\t( ( (\\\\)breve|       # Duration (groups 2-4)\n\
+        \t\t\t\t\t\t    64|32|16|8|4|2|1\n\
+        \t\t\t\t\t\t  )\n\
+        \t\t\t\t\t\t  (\\.)?                 # Augmentation dot (group 5)\n\
+        \t\t\t\t\t\t  ((\\*)(\\d+(?:/\\d+)?))? # Scaling duration (groups 6-8)\n\
+        \t\t\t\t\t\t\n\
+        \t\t\t\t\t\t)?\n\
+        \t\t\t\t\t\t(?![a-z])\t# do not follow a note with a letter\n\
+        \t\t\t\t\t"
+      beginCaptures: 
+        "6": 
+          name: keyword.operator.duration-scale.lilypond
+        "8": 
+          name: constant.numeric.fraction.lilypond
+        "1": 
+          name: storage.type.pause.rest.lilypond
+        "2": 
+          name: storage.type.duration.lilypond
+        "4": 
+          name: punctuation.definition.function.lilypond
+      end: (?=[ }~a-z])
+      patterns: 
+      - include: "#n_articulations"
+    - name: meta.element.pause.skip.lilypond
+      begin: "(?x)\\b\n\
+        \t\t\t\t\t\t(s) # (group 1)\n\
+        \t\t\t\t\t\t( ( (\\\\)breve|       # Duration (groups 2-4)\n\
+        \t\t\t\t\t\t    64|32|16|8|4|2|1\n\
+        \t\t\t\t\t\t  )\n\
+        \t\t\t\t\t\t  (\\.)?                 # Augmentation dot (group 5)\n\
+        \t\t\t\t\t\t  ((\\*)(\\d+(?:/\\d+)?))? # Scaling duration (groups 6-8)\n\
+        \t\t\t\t\t\t\n\
+        \t\t\t\t\t\t)?\n\
+        \t\t\t\t\t\t(?![a-z])\t# do not follow a note with a letter\n\
+        \t\t\t\t\t"
+      beginCaptures: 
+        "6": 
+          name: keyword.operator.duration-scale.lilypond
+        "8": 
+          name: constant.numeric.fraction.lilypond
+        "1": 
+          name: storage.type.pause.skip.lilypond
+        "2": 
+          name: storage.type.duration.lilypond
+        "4": 
+          name: punctuation.definition.function.lilypond
+      end: (?=[ }~a-z])
+      patterns: 
+      - include: "#n_articulations"
+    - name: meta.element.pause.skip.lilypond
+      captures: 
+        "1": 
+          name: storage.type.pause.skip.lilypond
+        "2": 
+          name: punctuation.definition.function.lilypond
+        "3": 
+          name: storage.type.duration.lilypond
+      match: ((\\)skip)\s+(64|32|16|8|4|2|1)
+    - name: meta.element.chord.lilypond
+      endCaptures: 
+        "1": 
+          name: punctuation.definition.chord.lilypond
+        "2": 
+          name: storage.type.duration.lilypond
+        "4": 
+          name: punctuation.definition.function.lilypond
+      begin: <
+      beginCaptures: 
+        "0": 
+          name: punctuation.definition.chord.lilypond
+      end: "(?x)\n\
+        \t\t\t\t\t\t(>)\n\
+        \t\t\t\t\t\t( ( ((\\\\)breve)|        # Duration (groups 2-4)\n\
+        \t\t\t\t\t\t    64|32|16|8|4|2|1\n\
+        \t\t\t\t\t\t  )\n\
+        \t\t\t\t\t\t  (\\.)?                  # Augmentation dot (group 5)\n\
+        \t\t\t\t\t\t)?\n\
+        \t\t\t\t\t"
+      patterns: 
+      - captures: 
+          "1": 
+            name: storage.type.pitch.lilypond
+          "3": 
+            name: meta.note-modifier.cautionary-accidental.lilypond
+          "4": 
+            name: meta.note-modifier.octave.lilypond
+        match: "(?x)\\b\n\
+          \t\t\t\t\t\t\t\t  ( [a-h]                 # Pitch (group 1)\n\
+          \t\t\t\t\t\t\t\t    ( (?:i[sh]){1,2} |    #   - sharp (group 2)\n\
+          \t\t\t\t\t\t\t\t      (?:e[sh]|s){1,2}    #   - flat\n\
+          \t\t\t\t\t\t\t\t    )?\n\
+          \t\t\t\t\t\t\t        ([!?])?               # Cautionary accidental (group 3)\n\
+          \t\t\t\t\t\t\t        ('+|,+)?             # Octave (group 4)\n\
+          \t\t\t\t\t\t\t\t  )\n\
+          \t\t\t\t\t\t\t"
+      comment: "\n\
+        \t\t\t\t\t\tLilypond chords look like:    < a b c >\n\
+        \t\t\t\t\t"
+    - name: meta.element.chord.lilypond
+      begin: (?<=>)(?<!->)(?!\s)
+      end: (?=[ }~a-z])(?<![^-]>)
+      patterns: 
+      - include: "#n_articulations"
+      comment: "\n\
+        \t\t\t\t\t\tThis rule attaches stuff to the end of a chord\n\
+        \t\t\t\t\t\t\n\
+        \t\t\t\t\t\tTherefore it begins after the > which ends a chord,\n\
+        \t\t\t\t\t\tand does not end after a > which ends a chord.\n\
+        \t\t\t\t\t\t(to avoid infinite loops)\n\
+        \t\t\t\t\t"
+    - name: storage.type.tie.lilypond
+      match: "~"
+    - name: storage.type.breath-mark.lilypond
+      captures: 
+        "1": 
+          name: punctuation.definition.function.lilypond
+      match: (\\)breathe
+    comment: "\n\
+      \t\t\t\tThis section includes the rules for notes, rests, and chords\n\
+      \t\t\t"
+  n_articulations: 
+    patterns: 
+    - name: storage.modifier.articulation.accent.lilypond
+      match: "(?x)\n\
+        \t\t\t\t\t\t([_^-])\n\
+        \t\t\t\t\t\t(?:[.>^+_-])\n\
+        \t\t\t\t\t"
+    - name: storage.modifier.articulation.named.lilypond
+      captures: 
+        "1": 
+          name: punctuation.definition.function.lilypond
+      match: "(?x)\n\
+        \t\t\t\t\t\t(\\\\)\n\
+        \t\t\t\t\t\t(?: accent | markato | staccatissimo |\t\t       # basic accents\n\
+        \t\t\t\t\t\t\tespressivo | staccato | tenuto | portato | \n\
+        \t\t\t\t\t\t\t(?:up|down)bow | flageolet | thumb |\n\
+        \t\t\t\t\t\t\t[lr](?:heel|toe) | open | stopped |\n\
+        \t\t\t\t\t\t\t(?:reverse)?turn | trill |\n\
+        \t\t\t\t\t\t\tprall(?: prall | mordent | down | up)? |       # pralls\n\
+        \t\t\t\t\t\t\t(?: up | down | line ) prall |                 # and\n\
+        \t\t\t\t\t\t\t(?: up | down )? mordent |                     # mordents\n\
+        \t\t\t\t\t\t\tsignumcongruentiae |\n\
+        \t\t\t\t\t\t\t(?: (?:very)? long | short)?fermata(Markup)? | # fermatas\n\
+        \t\t\t\t\t\t\tsegno | (?:var)?coda \n\
+        \t\t\t\t\t\t)\n\
+        \t\t\t\t\t"
+    - name: storage.modifier.articulation.dynamics.lilypond
+      match: "(?x)\n\
+        \t\t\t\t\t\t(\\\\) # backslash\n\
+        \t\t\t\t\t\tp{1,5} | m[pf] | f{1,4} | fp | # forte, piano, etc.\n\
+        \t\t\t\t\t\tsff? | spp? | [sr]fz | \n\
+        \t\t\t\t\t\t< | > | ! | espressivo         # (de)crescendo\n\
+        \t\t\t\t\t"
+    - name: storage.modifier.beam.lilypond
+      match: \[|\]
+    - name: storage.modifier.slur.lilypond
+      match: \(|\)
+  functions: 
+    patterns: 
+    - include: "#f_clef"
+    - include: "#f_time-signature"
+    - include: "#f_key-signature"
+    - include: "#f_keywords"
+    - include: "#f_generic"
+  strings: 
+    name: string.quoted.double.lilypond
+    captures: 
+      "0": 
+        name: punctuation.definition.string.lilypond
+    begin: "\""
+    end: "\""
+    patterns: 
+    - name: constant.character.escape.lilypond
+      match: \\.
+  f_key-signature: 
+    name: meta.element.key-signature.lilypond
+    comment: FIXME
+  music-expr: 
+    patterns: 
+    - include: "#comments"
+    - include: "#groupings"
+    - include: "#strings"
+    - include: "#functions"
+    - include: "#scheme"
+    - include: "#notes"
+  g_system: 
+    name: meta.system.lilypond
+    endCaptures: 
+      "0": 
+        name: punctuation.section.system.end.lilypond
+    begin: "<<"
+    beginCaptures: 
+      "0": 
+        name: punctuation.section.system.begin.lilypond
+    end: ">>"
+    patterns: 
+    - include: $self
+  f_generic: 
+    name: support.function.general.lilypond
+    captures: 
+      "1": 
+        name: punctuation.definition.function.lilypond
+    match: (\\)[a-zA-Z-]+\b
+  groupings: 
+    patterns: 
+    - include: "#g_system"
+    - include: "#g_relative"
+    - include: "#g_times"
+    - include: "#group"
+  group: 
+    name: meta.music-expression.lilypond
+    endCaptures: 
+      "0": 
+        name: punctuation.section.group.end.lilypond
+    begin: "{"
+    beginCaptures: 
+      "0": 
+        name: punctuation.section.group.begin.lilypond
+    end: "}"
+    patterns: 
+    - include: "#music-expr"
+  g_header: 
+    name: meta.header.lilypond
+    endCaptures: 
+      "0": 
+        name: punctuation.section.group.end.lilypond
+    begin: ((\\)header)\s*({)
+    beginCaptures: 
+      "1": 
+        name: support.function.section.header.lilypond
+      "2": 
+        name: punctuation.definition.function.lilypond
+      "3": 
+        name: punctuation.section.group.begin.lilypond
+    end: "}"
+    patterns: 
+    - include: "#comments"
+    - include: "#strings"
+    - include: "#scheme"
+    - include: "#g_markup"
+    - name: punctuation.separator.key-value.lilypond
+      match: "="
+    - name: support.constant.header.lilypond
+      match: "(?x)\n\
+        \t\t\t\t\t\tdedication | title | subtitle | subsubtitle | poet |\n\
+        \t\t\t\t\t\tcomposer | meter | opus | arranger | instrument |\n\
+        \t\t\t\t\t\tpiece | breakbefore | copyright | tagline | enteredby\n\
+        \t\t\t\t\t"
+    - name: support.constant.header.mutopia.lilypond
+      match: "(?x)\n\
+        \t\t\t\t\t\tmutopiatitle | mutopiacomposer | mutopiapoet |\n\
+        \t\t\t\t\t\tmutopiaopus | mutopiainstrument | date | source |\n\
+        \t\t\t\t\t\tstyle | maintainer | maintainerEmail |\n\
+        \t\t\t\t\t\tmaintainerWeb | lastupdated\n\
+        \t\t\t\t\t"
+  g_m_group: 
+    name: meta.group.lilypond
+    endCaptures: 
+      "0": 
+        name: punctuation.section.group.end.lilypond
+    begin: "{"
+    beginCaptures: 
+      "0": 
+        name: punctuation.section.group.begin.lilypond
+    end: "}"
+    patterns: 
+    - include: "#f_generic"
+    - include: "#strings"
+    - include: "#comments"
+    - include: "#scheme"
+    - include: "#g_m_group"
+  f_time-signature: 
+    name: meta.element.time-signature.lilypond
+    captures: 
+      "1": 
+        name: support.function.element.lilypond
+      "2": 
+        name: punctuation.definition.function.lilypond
+      "3": 
+        name: constant.numeric.time-signature.lilypond
+    match: "(?x)\n\
+      \t\t\t\t((\\\\) time) \\s+ # backslash + \"time\" + spaces (groups 1-2)\n\
+      \t\t\t\t([1-9][0-9]*/[1-9][0-9]*)?\n\
+      \t\t\t"
+uuid: F25B30BE-0526-4D92-806C-F0D678DDF669
+foldingStartMarker: (\{|<<)\s*$
+patterns: 
+- include: "#comments"
+- include: "#g_header"
+- include: "#groupings"
+- include: "#strings"
+- include: "#scheme"
+- include: "#functions"
+foldingStopMarker: (\}|>>)
+keyEquivalent: ^~L
+comment: "\n\
+  \t\tThis bundle is, as can easily be seen, far from complete,\n\
+  \t\tbut it should still be as useful as the Lilypond.app pyobjc\n\
+  \t\tapplication, which has no syntax coloring, no way to do\n\
+  \t\tsnippets, and pretty much no interesting functionality at\n\
+  \t\tall, other than a \"Run\" menu option. :)\n\
+  \t"

data/syntax/lisp.syntax

@@ -0,0 +1,61 @@
+--- 
+name: Lisp
+fileTypes: 
+- lisp
+- cl
+- l
+- mud
+- el
+scopeName: source.lisp
+uuid: 00D451C9-6B1D-11D9-8DFA-000D93589AF6
+foldingStartMarker: \(
+patterns: 
+- name: comment.line.semicolon.lisp
+  captures: 
+    "1": 
+      name: punctuation.definition.comment.lisp
+  match: (;).*$\n?
+- name: meta.function.lisp
+  captures: 
+    "2": 
+      name: storage.type.function-type.lisp
+    "4": 
+      name: entity.name.function.lisp
+  match: (\b(?i:(defun|defmethod|defmacro))\b)(\s+)((\w|\-|\!|\?)*)
+- name: constant.character.lisp
+  captures: 
+    "1": 
+      name: punctuation.definition.constant.lisp
+  match: (#)(\w|[\\+-=<>'"&#])+
+- name: variable.other.global.lisp
+  captures: 
+    "1": 
+      name: punctuation.definition.variable.lisp
+    "3": 
+      name: punctuation.definition.variable.lisp
+  match: (\*)(\S*)(\*)
+- name: keyword.control.lisp
+  match: \b(?i:case|do|let|loop|if|else|when)\b
+- name: keyword.operator.lisp
+  match: \b(?i:eq|neq|and|or)\b
+- name: constant.language.lisp
+  match: \b(?i:null|nil)\b
+- name: support.function.lisp
+  match: \b(?i:cons|car|cdr|cond|lambda|format|setq|setf|quote|eval|append|list|listp|memberp|t|load|progn)\b
+- name: constant.numeric.lisp
+  match: \b((0(x|X)[0-9a-fA-F]*)|(([0-9]+\.?[0-9]*)|(\.[0-9]+))((e|E)(\+|-)?[0-9]+)?)(L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?\b
+- name: string.quoted.double.lisp
+  endCaptures: 
+    "0": 
+      name: punctuation.definition.string.end.lisp
+  begin: "\""
+  beginCaptures: 
+    "0": 
+      name: punctuation.definition.string.begin.lisp
+  end: "\""
+  patterns: 
+  - name: constant.character.escape.lisp
+    match: \\.
+foldingStopMarker: \)
+keyEquivalent: ^~L
+comment: ""

data/syntax/literate_haskell.syntax

@@ -0,0 +1,24 @@
+--- 
+name: Literate Haskell
+fileTypes: 
+- lhs
+scopeName: text.tex.latex.haskell
+uuid: 439807F5-7129-487D-B5DC-95D5272B43DD
+patterns: 
+- name: meta.function.embedded.haskell.latex
+  captures: 
+    "1": 
+      name: support.function.be.latex
+    "2": 
+      name: punctuation.definition.function.latex
+    "3": 
+      name: punctuation.definition.arguments.begin.latex
+    "4": 
+      name: punctuation.definition.arguments.end.latex
+  begin: ^((\\)begin)({)code(})(\s*\n)?
+  contentName: source.haskell.embedded.latex
+  end: ^((\\)end)({)code(})
+  patterns: 
+  - include: source.haskell
+- include: text.tex.latex
+keyEquivalent: ^~H

data/syntax/logo.syntax

@@ -0,0 +1,29 @@
+--- 
+name: Logo
+fileTypes: []
+
+scopeName: source.logo
+uuid: 7613EC24-B0F9-4D01-8706-1D54098BFFD8
+foldingStartMarker: ^to \w+
+patterns: 
+- name: entity.name.function.logo
+  match: ^to [\w.]+
+- name: keyword.control.logo
+  match: continue|do\.until|do\.while|end|for(each)?|if(else|falsetrue|)|repeat|stop|until
+- name: keyword.other.logo
+  match: \b(\.defmacro|\.eq|\.macro|\.maybeoutput|\.setbf|\.setfirst|\.setitem|\.setsegmentsize|allopen|allowgetset|and|apply|arc|arctan|arity|array|arrayp|arraytolist|ascii|ashift|back|background|backslashedp|beforep|bitand|bitnot|bitor|bitxor|buried|buriedp|bury|buryall|buryname|butfirst|butfirsts|butlast|bye|cascade|case|caseignoredp|catch|char|clean|clearscreen|cleartext|close|closeall|combine|cond|contents|copydef|cos|count|crossmap|cursor|define|definedp|dequeue|difference|dribble|edall|edit|editfile|edn|edns|edpl|edpls|edps|emptyp|eofp|epspict|equalp|erall|erase|erasefile|ern|erns|erpl|erpls|erps|erract|error|exp|fence|filep|fill|filter|find|first|firsts|forever|form|forward|fput|fullprintp|fullscreen|fulltext|gc|gensym|global|goto|gprop|greaterp|heading|help|hideturtle|home|ignore|int|invoke|iseq|item|keyp|label|last|left|lessp|list|listp|listtoarray|ln|load|loadnoisily|loadpict|local|localmake|log10|lowercase|lput|lshift|macroexpand|macrop|make|map|map.se|mdarray|mditem|mdsetitem|member|memberp|minus|modulo|name|namelist|namep|names|nodes|nodribble|norefresh|not|numberp|openappend|openread|openupdate|openwrite|or|output|palette|parse|pause|pen|pencolor|pendown|pendownp|penerase|penmode|penpaint|penreverse|pensize|penup|pick|plist|plistp|plists|pllist|po|poall|pon|pons|pop|popl|popls|pops|pos|pot|pots|power|pprop|prefix|primitivep|print|printdepthlimit|printwidthlimit|procedurep|procedures|product|push|queue|quoted|quotient|radarctan|radcos|radsin|random|rawascii|readchar|readchars|reader|readlist|readpos|readrawline|readword|redefp|reduce|refresh|remainder|remdup|remove|remprop|repcount|rerandom|reverse|right|round|rseq|run|runparse|runresult|save|savel|savepict|screenmode|scrunch|sentence|setbackground|setcursor|seteditor|setheading|sethelploc|setitem|setlibloc|setmargins|setpalette|setpen|setpencolor|setpensize|setpos|setprefix|setread|setreadpos|setscrunch|settemploc|settextcolor|setwrite|setwritepos|setx|setxy|sety|shell|show|shownp|showturtle|sin|splitscreen|sqrt|standout|startup|step|stepped|steppedp|substringp|sum|tag|test|text|textscreen|thing|throw|towards|trace|traced|tracedp|transfer|turtlemode|type|unbury|unburyall|unburyname|unburyonedit|unstep|untrace|uppercase|usealternatenam|wait|while|window|word|wordp|wrap|writepos|writer|xcor|ycor)\b
+- name: variable.parameter.logo
+  captures: 
+    "1": 
+      name: punctuation.definition.variable.logo
+  match: (\:)(?:\|[^|]*\||[-\w.]*)+
+- name: string.other.word.logo
+  match: "\"(?:\\|[^|]*\\||[-\\w.]*)+"
+- name: comment.line.semicolon.logo
+  captures: 
+    "1": 
+      name: punctuation.definition.comment.logo
+  match: (;).*$\n?
+foldingStopMarker: ^end$
+keyEquivalent: ^~L
+comment: Roughed out by Paul Bissex <http://e-scribe.com/news/>