Make find_by_name case-sensitive again

alan-j-hu · Jul 15, 2021 · d400bc7 · d400bc7
1 parent d9c9ffe
commit d400bc7
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,7 +1,6 @@
-## 0.4.0 (July 15, 2021)
+## 0.3.1 (July 15, 2021)
 
 - Add `find_by_filetype` function.
-- Make `find_by_scope_name` case-sensitive.
 
 ## 0.3.0 (July 4, 2021)
 

diff --git a/src/common.ml b/src/common.ml
@@ -115,7 +115,8 @@ let add_grammar t grammar =
       Hashtbl.add t.by_filetype filetype grammar
     ) grammar.filetypes
 
-let find_by_name t = Hashtbl.find_opt t.by_name
+let find_by_name t name =
+  Hashtbl.find_opt t.by_name (String.lowercase_ascii name)
 
 let find_by_scope_name t = Hashtbl.find_opt t.by_scope_name
 

diff --git a/src/tmLanguage.mli b/src/tmLanguage.mli
@@ -51,14 +51,14 @@ val add_grammar : t -> grammar -> unit
 (** Add a grammar to the collection. *)
 
 val find_by_name : t -> string -> grammar option
-(** Finds a grammar by its [name] attribute. *)
+(** Finds a grammar by its [name] attribute. Case-insensitive. *)
 
 val find_by_scope_name : t -> string -> grammar option
-(** Finds a grammar by its [scopeName] attribute. *)
+(** Finds a grammar by its [scopeName] attribute. Case-sensitive. *)
 
 val find_by_filetype : t -> string -> grammar option
 (** Finds a grammar by matching one of the strings in its [fileTypes]
-    attribute. *)
+    attribute. Case-sensitive. *)
 
 val of_plist_exn : plist -> grammar
 (** Reads a TextMate grammar from a PLIST file. Raises {!exception:Error} if