Add Emacs Lisp language (#67)

* Add Emacs Lisp language

* Stop after first LOC

Author: fapdash

lib/languages/emacs-lisp.txt

@@ -0,0 +1,3 @@
+!e stop_at_first_loc
+;\p
+(require\p

test/languages/emacs_lisp_test.rb

@@ -0,0 +1,56 @@
+require "test_helper"
+
+module SnippetExtractor
+  module Languages
+    class EmacsLispTest < Minitest::Test
+      def test_full_example
+        # rubocop:disable Layout/TrailingWhitespace
+        code = <<~CODE
+          ;;; sublist.el --- Sublist (exercism)  -*- lexical-binding: t; -*-
+
+          ;;; Commentary:
+
+          ;;; Code:
+
+          (require 'cl-lib)
+
+          (defun list--partition (list cell-size)
+            (cl-loop for index from 0
+                     ;; we can ignore the rest because this can never contain our sublist
+                     while (<= index (- (length list) cell-size))
+                     collect (cl-subseq list index (+ index cell-size))))
+
+          (defun list-sublist (list1 list2)
+            (cl-some (lambda (partition)
+                       (equal list1 partition))
+                     (list--partition list2 (length list1))))
+
+          (defun list-classify (list1 list2)
+            (cond ((equal list1 list2) :equal)
+                  ((list-sublist list2 list1) :superlist)
+                  ((list-sublist list1 list2) :sublist)
+                  ('t :unequal)))
+
+          (provide 'sublist)
+          ;;; sublist.el ends here
+        CODE
+
+        expected = <<~CODE
+          (defun list--partition (list cell-size)
+            (cl-loop for index from 0
+                     ;; we can ignore the rest because this can never contain our sublist
+                     while (<= index (- (length list) cell-size))
+                     collect (cl-subseq list index (+ index cell-size))))
+
+          (defun list-sublist (list1 list2)
+            (cl-some (lambda (partition)
+                       (equal list1 partition))
+                     (list--partition list2 (length list1))))
+        CODE
+        # rubocop:enable Layout/TrailingWhitespace
+
+        assert_equal expected, ExtractSnippet.(code, 'emacs-lisp')
+      end
+    end
+  end
+end