mirror of
git://git.sv.gnu.org/nano.git
synced 2024-12-15 07:12:38 +03:00
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:]]);.*$"
|