[Qemacs-commit] qemacs lisp.c

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        14/05/30 20:01:01

Modified files:
        .              : lisp.c 

Log message:
        add syntax colorizer for Clojure lisp flavor

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/lisp.c?cvsroot=qemacs&r1=1.17&r2=1.18

Patches:
Index: lisp.c
===================================================================
RCS file: /sources/qemacs/qemacs/lisp.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- lisp.c      30 May 2014 17:18:13 -0000      1.17
+++ lisp.c      30 May 2014 20:01:01 -0000      1.18
@@ -26,6 +26,7 @@
 #define LISP_LANG_ELISP   2
 #define LISP_LANG_SCHEME  4
 #define LISP_LANG_RACKET  8
+#define LISP_LANG_CLOJURE  16
 
 /*---------------- Lisp colors ----------------*/
 
@@ -389,12 +390,22 @@
     .colorize_flags = LISP_LANG_RACKET,
 };
 
+ModeDef clojure_mode = {
+    .name = "Clojure",
+    .extensions = "clj",
+    .keywords = lisp_keywords,
+    .types = lisp_types,
+    .colorize_func = lisp_colorize_line,
+    .colorize_flags = LISP_LANG_CLOJURE,
+};
+
 static int lisp_init(void)
 {
     qe_register_mode(&lisp_mode, MODEF_SYNTAX);
     qe_register_mode(&elisp_mode, MODEF_SYNTAX);
     qe_register_mode(&scheme_mode, MODEF_SYNTAX);
     qe_register_mode(&racket_mode, MODEF_SYNTAX);
+    qe_register_mode(&clojure_mode, MODEF_SYNTAX);
 
     return 0;
 }