Adding two files: syntax highlighting for Emacs Lisp and Guile Scheme.

Patch by Mark Oteiza.  (Tweaked by Benno.)


git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@5204 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
master
Benno Schulenberg 2015-04-18 13:04:57 +00:00
parent 3de2c704ef
commit 6ff772b8d9
4 changed files with 59 additions and 0 deletions

View File

@ -1,5 +1,7 @@
2015-04-18 Mark Oteiza <mvoteiza@udel.edu> 2015-04-18 Mark Oteiza <mvoteiza@udel.edu>
* doc/syntax/{python,ruby,sh,tex}.nanorc: Add a linter definition. * doc/syntax/{python,ruby,sh,tex}.nanorc: Add a linter definition.
* doc/syntax/elisp.nanorc: New file; syntax highlighting for Elisp.
* doc/syntax/guile.nanorc: New file; syntax highlighting for Guile.
2015-04-17 Benno Schulenberg <bensberg@justemail.net> 2015-04-17 Benno Schulenberg <bensberg@justemail.net>
* src/text.c (do_alt_speller, do_linter, do_formatter): Distinguish * src/text.c (do_alt_speller, do_linter, do_formatter): Distinguish

View File

@ -6,10 +6,12 @@ pkgdata_DATA = asm.nanorc \
css.nanorc \ css.nanorc \
debian.nanorc \ debian.nanorc \
default.nanorc \ default.nanorc \
elisp.nanorc \
fortran.nanorc \ fortran.nanorc \
gentoo.nanorc \ gentoo.nanorc \
go.nanorc \ go.nanorc \
groff.nanorc \ groff.nanorc \
guile.nanorc \
html.nanorc \ html.nanorc \
java.nanorc \ java.nanorc \
javascript.nanorc \ javascript.nanorc \

31
doc/syntax/elisp.nanorc Normal file
View File

@ -0,0 +1,31 @@
## Here is an example for Emacs Lisp.
syntax "elisp" "\.el$"
# Basic functions/macros
color brightcyan "\<(if|when|unless|cond|and|or|lambda|let|progn|while|dolist|dotimes)\>"
color brightcyan "\<save-((window-)?excursion|restriction)\>"
color brightcyan "\<eval-(and|when)-compile\>"
# Defining functions
color brightcyan "\<def(un|macro|subst|generic|alias)\>"
color brightcyan "\<cl-def(un|macro|subst|generic|struct|type)\>"
color brightcyan "\<define-(derived|minor|generic)-mode\>"
# Defining variables
color brightcyan "\<def(class|const|var(-local|alias)?)\>"
# Customization functions
color brightcyan "\<def(custom|face|group|theme)\>"
# Setting values
color brightcyan "\<(setq(-default|-local)?|setf|push|pop|declare(-function)?)\>"
# Feature functions
color brightcyan "\<(require|provide)\>"
# Quoted symbols
color brightyellow "#?'\<(\w|-)+\>"
# Booleans
color brightred "\<(t|nil)\>"
# Keywords
color blue ":(\w|[?-])+"
# Strings
color yellow start="^[[:blank:]]+\"" end="[^\]\""
color yellow ""(\\.|[^"])*""
# Comments
color cyan "(^|[[:space:]]);.*$"

24
doc/syntax/guile.nanorc Normal file
View File

@ -0,0 +1,24 @@
## 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:]]);.*$"