[Qemacs-commit] qemacs lisp.c

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        15/05/03 10:28:13

Modified files:
        .              : lisp.c 

Log message:
        added colorizer for MacOS Sandbox syntax

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

Patches:
Index: lisp.c
===================================================================
RCS file: /sources/qemacs/qemacs/lisp.c,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- lisp.c      8 Jun 2014 10:56:59 -0000       1.22
+++ lisp.c      3 May 2015 10:28:13 -0000       1.23
@@ -27,6 +27,7 @@
 #define LISP_LANG_SCHEME   4
 #define LISP_LANG_RACKET   8
 #define LISP_LANG_CLOJURE  16
+#define LISP_LANG_SANDBOX  32
 
 /*---------------- Lisp colors ----------------*/
 
@@ -403,6 +404,16 @@
     .fallback = &lisp_mode,
 };
 
+ModeDef sandbox_mode = {
+    .name = "Sandbox",  /* MacOS, Tinyscheme based? */
+    .extensions = "sb",
+    .keywords = lisp_keywords,
+    .types = lisp_types,
+    .colorize_func = lisp_colorize_line,
+    .colorize_flags = LISP_LANG_SANDBOX,
+    .fallback = &lisp_mode,
+};
+
 static int lisp_init(void)
 {
     qe_register_mode(&lisp_mode, MODEF_SYNTAX);
@@ -410,6 +421,7 @@
     qe_register_mode(&scheme_mode, MODEF_SYNTAX);
     qe_register_mode(&racket_mode, MODEF_SYNTAX);
     qe_register_mode(&clojure_mode, MODEF_SYNTAX);
+    qe_register_mode(&sandbox_mode, MODEF_SYNTAX);
 
     return 0;
 }