[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Qemacs-commit] qemacs lisp.c
From: |
Charlie Gordon |
Subject: |
[Qemacs-commit] qemacs lisp.c |
Date: |
Tue, 25 Apr 2017 09:28:41 -0400 (EDT) |
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;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Qemacs-commit] qemacs lisp.c,
Charlie Gordon <=