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

Merge pull request #2322 from larsbrinkhoff/lisp

Browse Source 
Make Common Lisp heuristic case insensitive.
This commit is contained in:
Arfon Smith
2015-04-13 08:49:37 -05:00
parent da58febc3e 33478b2d23
commit 611584a414
2 changed files with 4 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
disambiguate "Common Lisp", "OpenCL", "Cool" do |data|
if data.include?("(defun ")
if /^\s*\((defun|in-package|defpackage) /i.match(data)
Language["Common Lisp"]
elsif /^class/x.match(data)
Language["Cool"]
@@ -215,7 +215,7 @@ module Linguist
end
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"]
elsif /^\s*\(define /.match(data)
Language["NewLisp"]

2
samples/Common Lisp/hello.lisp Normal file
View File

@@ -0,0 +1,2 @@
(DEFUN HELLO ()
(PRINT 'HELLO))