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
Этот коммит содержится в:
родитель
3de2c704ef
Коммит
6ff772b8d9
@ -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
|
||||||
|
@ -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
Обычный файл
31
doc/syntax/elisp.nanorc
Обычный файл
@ -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
Обычный файл
24
doc/syntax/guile.nanorc
Обычный файл
@ -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:]]);.*$"
|
Загрузка…
Ссылка в новой задаче
Block a user