support let open MyModule syntax

synatx highlighting breaks on such statements without this change
textmate · Oct 11, 2014 · be9b450 · be9b450
1 parent 5381c7f
commit be9b450
Showing 1 changed file with 43 additions and 0 deletions.
diff --git a/Syntaxes/OCaml.plist b/Syntaxes/OCaml.plist
@@ -46,6 +46,49 @@
 			<key>name</key>
 			<string>meta.module.binding</string>
 		</dict>
+		<dict>
+			<key>begin</key>
+			<string>\b(let)\s+(open)\s+([A-Z][a-zA-Z0-9'_]*)(?=(\.[A-Z][a-zA-Z0-9_]*)*)</string>
+			<key>beginCaptures</key>
+			<dict>
+				<key>1</key>
+				<dict>
+					<key>name</key>
+					<string>keyword.other.module-binding.ocaml</string>
+				</dict>
+				<key>2</key>
+				<dict>
+					<key>name</key>
+					<string>keyword.other.ocaml</string>
+				</dict>
+				<key>3</key>
+				<dict>
+					<key>name</key>
+					<string>support.other.module.ocaml</string>
+				</dict>
+			</dict>
+			<key>end</key>
+			<string>(\s|$)</string>
+			<key>name</key>
+			<string>meta.module.openbinding</string>
+			<key>patterns</key>
+			<array>
+				<dict>
+					<key>captures</key>
+					<dict>
+						<key>1</key>
+						<dict>
+							<key>name</key>
+							<string>punctuation.separator.module-reference.ocaml</string>
+						</dict>
+					</dict>
+					<key>match</key>
+					<string>(\.)([A-Z][a-zA-Z0-9'_]*)</string>
+					<key>name</key>
+					<string>support.other.module.ocaml</string>
+				</dict>
+			</array>
+		</dict>
 		<dict>
 			<key>begin</key>
 			<string>\b(let|and)\s+(?!\(\*)((rec\s+)([a-z_][a-zA-Z0-9_']*)\b|([a-z_][a-zA-Z0-9_']*|\([^)]+\))(?=\s)((?=\s*=\s*(?=fun(?:ction)\b))|(?!\s*=)))</string>