mirror of
git://git.sv.gnu.org/nano.git
synced 2025-02-19 23:04:32 +03:00
0e1d45dc36
Also, trim some whitespace and group one rule better. Also, fix a stray closing parenthesis in the JSON syntax, and add the missing slash to the possible escaped characters. (Reference: https://www.json.org/json-en.html.) Also, improve the ending of multiline strings in the Rust syntax.
24 lines
562 B
Plaintext
24 lines
562 B
Plaintext
## Syntax highlighting for Guile Scheme.
|
|
|
|
syntax guile "\.scm$"
|
|
header "^#!.*guile"
|
|
comment ";"
|
|
|
|
# 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 "#\\(.|\w+)"
|
|
# Booleans
|
|
color brightred "(#t|#f)\>"
|
|
# Keywords
|
|
color blue "#?:(\w|[?-])+"
|
|
# Strings
|
|
color yellow start="^[[:blank:]]+"" end="[^\]""
|
|
color yellow ""([^"\]|\\.)*""
|
|
# Comments
|
|
color cyan "(^|[[:blank:]]);.*"
|