Grammar update

This commit is contained in:
Arfon Smith
2016-08-24 09:30:20 -07:00
parent 216d63f575
commit 06e80f3889
103 changed files with 2675 additions and 47 deletions

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>${1:name} ${2:pattern}${2/.+/ /}= ${0:definition}</string>
<key>name</key>
<string>Definition</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>=</string>
<key>uuid</key>
<string>81886A7D-5EE8-438C-9FC8-6BA3B65E444A</string>
</dict>
</plist>

View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>${1:name} :: ${2:Type}
${1} ${3:pattern}${3/.+/ /}${4/.+/= /}${4:definition}</string>
<key>name</key>
<string>Function</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>fun</string>
<key>uuid</key>
<string>A83076A6-EC6F-418F-B8F9-9AE952964242</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>| ${1:predicate} = ${0:definition}</string>
<key>name</key>
<string>Guard</string>
<key>scope</key>
<string>source.haskell - comment</string>
<key>tabTrigger</key>
<string>|</string>
<key>uuid</key>
<string>BA1329DB-9437-4246-839A-48A49B48D31D</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>| ${0:documentation}</string>
<key>name</key>
<string>Haddock Postfix</string>
<key>scope</key>
<string>source.haskell comment.block</string>
<key>tabTrigger</key>
<string>|</string>
<key>uuid</key>
<string>961E79B9-CC31-4843-BBE9-51F46598BC25</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>^ ${0:documentation}</string>
<key>name</key>
<string>Haddock Prefix</string>
<key>scope</key>
<string>source.haskell comment.block</string>
<key>tabTrigger</key>
<string>^</string>
<key>uuid</key>
<string>E0E613C1-0760-46BC-A51E-168E658904C5</string>
</dict>
</plist>

View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>#!/usr/bin/env ${1:runhaskell}
</string>
<key>name</key>
<string>#!/usr/bin/env…</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>#!</string>
<key>uuid</key>
<string>54495635-CC26-4C14-A202-5C0CA4B078C2</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>\\${1:pattern} -&gt; ${0:expression}</string>
<key>name</key>
<string>Lambda Expression</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>\</string>
<key>uuid</key>
<string>0672CE3D-A796-44B1-AEF2-975C0FB27184</string>
</dict>
</plist>

View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>${1:name} &lt;- ${0:expression}</string>
<key>keyEquivalent</key>
<string>^,</string>
<key>name</key>
<string>Left Arrow</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>&lt;</string>
<key>uuid</key>
<string>9EF1F854-442C-40B2-BED5-454A015AA26D</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>[ ${1:expression} | ${2:name} &lt;- ${3:expression}${4/.+/, /}${4:condition} </string>
<key>name</key>
<string>List Comprehension</string>
<key>scope</key>
<string>source.haskell constant.language.nil</string>
<key>tabTrigger</key>
<string>[</string>
<key>uuid</key>
<string>C721BD84-71FA-423F-8460-2CED4954137F</string>
</dict>
</plist>

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>module Main where
main :: IO ()
main = ${0:putStrLn "Hello World"}
</string>
<key>name</key>
<string>Main</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>main</string>
<key>uuid</key>
<string>A3A65891-D126-4D2D-9E6B-E20ADE2EAA88</string>
</dict>
</plist>

View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>${1:expression} -&gt; ${0:expression}</string>
<key>keyEquivalent</key>
<string>^.</string>
<key>name</key>
<string>Right Arrow</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>&gt;</string>
<key>uuid</key>
<string>BAF52ED4-6A5B-4260-B5BC-93D2012200C8</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>(${1:Class}) =&gt; $0</string>
<key>name</key>
<string>Type Constraint</string>
<key>scope</key>
<string>source.haskell meta.function.type</string>
<key>tabTrigger</key>
<string>=</string>
<key>uuid</key>
<string>1D72833B-ED9F-4A5E-9B72-F77E4FD09CE9</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>${1:Type} -&gt; ${0:Type}</string>
<key>name</key>
<string>Type Sequence</string>
<key>scope</key>
<string>source.haskell meta.function.type</string>
<key>tabTrigger</key>
<string>-</string>
<key>uuid</key>
<string>17FC3207-9DC4-47F8-A9B3-B38FE5F84158</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>${1:name} :: ${0:Type}</string>
<key>name</key>
<string>Type Signature</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>::</string>
<key>uuid</key>
<string>78719987-0091-407A-B5F1-68456A67130D</string>
</dict>
</plist>

View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>case ${1:expression} of
${2:pattern} -&gt; ${3:expression}
${4:otherwise} -&gt; ${5:expression}</string>
<key>name</key>
<string>case … of …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>case</string>
<key>uuid</key>
<string>DD1D7C05-BC60-4E62-BC8C-9230A32C2533</string>
</dict>
</plist>

View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>class ${1:Class} where
${0:definition}</string>
<key>name</key>
<string>class …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>cla</string>
<key>uuid</key>
<string>23F6173A-6390-46FF-865C-F59AB70E360A</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>data ${1:Type} = ${0:Other}</string>
<key>name</key>
<string>data …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>dat</string>
<key>uuid</key>
<string>4C5EC5BB-6AE1-4825-AB50-1CF4741285E9</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>deriving (${0:Class})</string>
<key>name</key>
<string>deriving …</string>
<key>scope</key>
<string>source.haskell meta.type</string>
<key>tabTrigger</key>
<string>der</string>
<key>uuid</key>
<string>3FA57615-871F-4465-B35D-781B2EA9F5FC</string>
</dict>
</plist>

View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>do
${1:return ${0:expression}}</string>
<key>name</key>
<string>do …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>do</string>
<key>uuid</key>
<string>397D02C1-A10B-4A83-8C05-6EB71E50D4CF</string>
</dict>
</plist>

View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>if ${1:condition}
then ${2:expression}
else ${3:expression}</string>
<key>name</key>
<string>if … then … else …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>if</string>
<key>uuid</key>
<string>5F2050D1-1347-40CE-854E-24B2BF389849</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>import ${1:Module}${2/.+/ hiding (/}${2:function}${2/.+/)/}$0</string>
<key>name</key>
<string>import … hiding …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>imph</string>
<key>uuid</key>
<string>1BA6898C-E8C4-44C9-98F4-4823608FEFD1</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>import ${1:Module}${2/.+/ (/}${2:function}${2/.+/)/}$0</string>
<key>name</key>
<string>import …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>imp</string>
<key>uuid</key>
<string>85150C9B-A5F1-450A-BEBF-119091146957</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>import qualified ${1:Module}${2/.+/ as /}${2:Mod}${3/.+/ (/}${3:function}${3/.+/)/}$0</string>
<key>name</key>
<string>import qualified …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>impq</string>
<key>uuid</key>
<string>32BC2D63-AF02-4DBA-8A75-6A74E334FE0C</string>
</dict>
</plist>

View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>instance ${1:Class} ${2:Type} where
${0:definition}</string>
<key>name</key>
<string>instance …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>ins</string>
<key>uuid</key>
<string>26F8FAFE-4438-4D3C-A453-AAB72FD0F719</string>
</dict>
</plist>

View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>let
${1:name} = ${2:expression}
in ${0:expression}</string>
<key>name</key>
<string>let …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>let</string>
<key>uuid</key>
<string>88C8A6FB-B06D-4386-BA33-51E28F64AD88</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>newtype ${1:Type} = ${0:Other}</string>
<key>name</key>
<string>newtype …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>new</string>
<key>uuid</key>
<string>EFCBAB59-D574-454D-A05A-8928CF81947F</string>
</dict>
</plist>

View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>type ${1:Type} = ${0:Other}</string>
<key>name</key>
<string>type …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>typ</string>
<key>uuid</key>
<string>3C25C0C7-D764-4BF8-9BFF-AE6954AF106D</string>
</dict>
</plist>

View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>where
${0:definitions}</string>
<key>name</key>
<string>where …</string>
<key>scope</key>
<string>source.haskell</string>
<key>tabTrigger</key>
<string>where</string>
<key>uuid</key>
<string>A6FD9AB4-8E7E-47A8-B17D-D82F47A0C495</string>
</dict>
</plist>