Add pattern-matching for backquoting and splicing

Author: Alhadis

grammars/emacs-lisp.cson

@@ -151,6 +151,26 @@ repository:
 			endCaptures:
 				0: name: "punctuation.section.quoted.expression.end.emacs.lisp"
 			patterns: [include: "$self"]
+		},{
+			name: "meta.backquoted.expression.emacs.lisp"
+			begin: "(\\`)(\\()"
+			end:   "\\)"
+			beginCaptures:
+				1: name: "punctuation.definition.symbol.emacs.lisp"
+				2: name: "punctuation.section.backquoted.expression.begin.emacs.lisp"
+			endCaptures:
+				0: name: "punctuation.section.backquoted.expression.end.emacs.lisp"
+			patterns: [include: "$self"]
+		},{
+			name: "meta.interpolated.expression.emacs.lisp"
+			begin: "(,@)(\\()"
+			end:   "\\)"
+			beginCaptures:
+				1: name: "punctuation.definition.symbol.emacs.lisp"
+				2: name: "punctuation.section.interpolated.expression.begin.emacs.lisp"
+			endCaptures:
+				0: name: "punctuation.section.interpolated.expression.end.emacs.lisp"
+			patterns: [include: "$self"]
 		}]
 
 
@@ -375,6 +395,12 @@ repository:
 			captures:
 				1: name: "punctuation.definition.symbol.emacs.lisp"
 				2: patterns: [include: "$self"]
+		},{
+			# ,@spliced-symbol
+			name: "constant.other.spliced.symbol.emacs.lisp"
+			match: "(,@)([-+=*/\\w~!@$%^&:<>{}?]+)"
+			captures:
+				1: name: "punctuation.definition.spliced.symbol.emacs.lisp"
 		}]
 
 

tests/emacs.el

@@ -16,6 +16,18 @@
 #\a
 
 
+`(1 2 (3 ,(+ 4 5)))
+
+(setq some-list '(2 3))
+(cons 1 (append some-list '(4) some-list))
+`(1 ,@some-list 4 ,@some-list)
+(setq list '(hack foo bar))
+(cons 'use
+  (cons 'the
+    (cons 'words (append (cdr list) '(as elements)))))
+`(use the words ,@(cdr list) as elements)
+
+
 (defface git-commit-branch-face
   '((((class grayscale) (background light) (type tty))
      (:foreground "DimGray" :slant italic))