mirror of
git://git.sv.gnu.org/nano.git
synced 2024-12-13 22:37:21 +03:00
6ff772b8d9
Patch by Mark Oteiza. (Tweaked by Benno.) git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@5204 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
25 lines
592 B
Plaintext
25 lines
592 B
Plaintext
## Here is an example for Guile Scheme.
|
|
|
|
syntax "guile" "\.scm$"
|
|
header "^#!.*guile"
|
|
magic "guile"
|
|
|
|
# Basic scheme functions
|
|
color green "\<(do|if|lambda|let(rec)?|map|unless|when)\>"
|
|
# Defining things
|
|
color brightcyan "\<define(-macro|-module|-public|-syntax)?\>"
|
|
# 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:]]);.*$"
|