[Nano-devel] [PATCH 1/2] Guile syntax

[Mark Oteiza]

Hi,

Here are patches for the two lisp syntax files.

Index: Makefile.am
===================================================================
--- doc/syntax/Makefile.am      (revision 5198)
+++ doc/syntax/Makefile.am      (working copy)
@@ -10,6 +10,7 @@
                gentoo.nanorc \
                go.nanorc \
                groff.nanorc \
+               guile.nanorc \
                html.nanorc \
                java.nanorc \
                javascript.nanorc \
Index: guile.nanorc
===================================================================
--- doc/syntax/guile.nanorc     (revision 0)
+++ doc/syntax/guile.nanorc     (working copy)
@@ -0,0 +1,23 @@
+## Here is an example for Guile scheme.
+
+syntax "guile" "\.scm$"
+header "^#!.*guile"
+magic "guile"
+
+color green "\<(let|if|when|unless|lambda|map)\>"
+color brightcyan "\<(define|define-syntax|define-macro)\>"
+color brightcyan "\<(define-module|define-public)\>"
+# Quoted symbols
+color brightyellow "'\<(\w|-)+\>"
+# Chars
+color brightmagenta "#\\."
+color brightmagenta "#\\\w+\>"
+# Booleans
+color brightred "(#t|#f)\>"
+# Keywords
+color blue "#?:(\w|[?-])+"
+# Strings
+color yellow start="^[[:blank:]]+\"" end="[^\]\""
+color yellow ""(\\.|[^"])*""
+# Comments
+color cyan "(^|[[:space:]]);.*$"