[Qemacs-commit] qemacs lisp.c

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        17/04/25 09:28:41

Modified files:
        .              : lisp.c 

Log message:
        lisp: add xaos-mode

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

Patches:
Index: lisp.c
===================================================================
RCS file: /sources/qemacs/qemacs/lisp.c,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- lisp.c      17 Apr 2017 09:16:24 -0000      1.29
+++ lisp.c      25 Apr 2017 13:28:41 -0000      1.30
@@ -28,6 +28,7 @@
 #define LISP_LANG_RACKET   8
 #define LISP_LANG_CLOJURE  16
 #define LISP_LANG_SANDBOX  32
+#define LISP_LANG_XAOS     64
 
 /*---------------- Lisp colors ----------------*/
 
@@ -503,6 +504,20 @@
     .fallback = &lisp_mode,
 };
 
+static const char xaos_keywords[] = {
+    ""
+};
+
+static ModeDef xaos_mode = {
+    .name = "Xaos",  /* Xaos fractal generator */
+    .extensions = "xhf|xaf|xpf",
+    .keywords = xaos_keywords,
+    .types = lisp_types,
+    .colorize_func = lisp_colorize_line,
+    .colorize_flags = LISP_LANG_XAOS,
+    .fallback = &lisp_mode,
+};
+
 static int lisp_init(void)
 {
     qe_register_mode(&lisp_mode, MODEF_SYNTAX);
@@ -511,6 +526,7 @@
     qe_register_mode(&racket_mode, MODEF_SYNTAX);
     qe_register_mode(&clojure_mode, MODEF_SYNTAX);
     qe_register_mode(&sandbox_mode, MODEF_SYNTAX);
+    qe_register_mode(&xaos_mode, MODEF_SYNTAX);
 
     return 0;
 }