KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make Common Lisp heuristic case insensitive.

Browse Source
This commit is contained in:
Lars Brinkhoff
2015-04-10 11:57:39 +02:00
parent 46ca8e93c2
commit 33478b2d23
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/linguist/heuristics.rb
View File

@@ -129,7 +129,7 @@ module Linguist
end end
disambiguate "Common Lisp", "OpenCL", "Cool" do |data| disambiguate "Common Lisp", "OpenCL", "Cool" do |data|
if data.include?("(defun ") if /^\s*\((defun|in-package|defpackage) /i.match(data)
Language["Common Lisp"] Language["Common Lisp"]
elsif /^class/x.match(data) elsif /^class/x.match(data)
Language["Cool"] Language["Cool"]
@@ -215,7 +215,7 @@ module Linguist
end end
disambiguate "Common Lisp", "NewLisp" do |data| disambiguate "Common Lisp", "NewLisp" do |data|
if /^\s*\((defun|in-package|defpackage) /.match(data) if /^\s*\((defun|in-package|defpackage) /i.match(data)
Language["Common Lisp"] Language["Common Lisp"]
elsif /^\s*\(define /.match(data) elsif /^\s*\(define /.match(data)
Language["NewLisp"] Language["NewLisp"]