Vim syntax coloring for standalone TXR Lisp (*.tl) files.

* genvim.txr (generate): New pattern function, contains
generation logic so we can do it twice.

* txr.vim: Regenerated.

* tl.vim: New file.

1 files changed, 21 insertions, 21 deletions

diff --git a/txr.vim b/txr.vim
index 38cf49b9..be9a92b8 100644
--- a/txr.vim
+++ b/txr.vim
@@ -4,10 +4,11 @@
 " INSTALL-HOWTO:
 "
 " 1. Create the directory .vim/syntax in your home directory and
-"    put this file there.
-" 2. In your .vimrc, add this command to associate *.txr files
-"    with the txr filetype.
+"    put the files txr.vim and txl.vim into this directory.
+" 2. In your .vimrc, add this command to associate *.txr and *.tl
+"    files with the txr and txl filetypes:
 "    :au BufRead,BufNewFile *.txr set filetype=txr | set lisp
+"    :au BufRead,BufNewFile *.tl set filetype=txl | set lisp
 "
 " If you want syntax highlighting to be on automatically (for any language)
 " you need to add ":syntax on" in your .vimrc also. But you knew that already!
@@ -19,21 +20,6 @@ syn spell toplevel
 
 setlocal iskeyword=a-z,A-Z,48-57,!,$,&,*,+,-,<,=,>,?,\\,_,~,/
 
-syn keyword txr_keyword contained accept all and assert
-syn keyword txr_keyword contained bind block cases cat
-syn keyword txr_keyword contained catch choose chr close
-syn keyword txr_keyword contained coll collect defex deffilter
-syn keyword txr_keyword contained define do elif else
-syn keyword txr_keyword contained end eof eol fail
-syn keyword txr_keyword contained filter finally flatten forget
-syn keyword txr_keyword contained freeform fuzz gather if
-syn keyword txr_keyword contained include last line load
-syn keyword txr_keyword contained local maybe merge next
-syn keyword txr_keyword contained none or output rebind
-syn keyword txr_keyword contained rep repeat require set
-syn keyword txr_keyword contained skip some text throw
-syn keyword txr_keyword contained trailer try until var
-
 syn keyword txl_keyword contained * *args* *e* *flo-dig*
 syn keyword txl_keyword contained *flo-epsilon* *flo-max* *flo-min* *full-args*
 syn keyword txl_keyword contained *gensym-counter* *keyword-package* *pi* *random-state*
@@ -194,9 +180,21 @@ syn keyword txl_keyword contained vec-set-length vecref vector vector-list
 syn keyword txl_keyword contained vectorp when where while
 syn keyword txl_keyword contained with-saved-vars zerop zip
 
+syn keyword txr_keyword contained accept all and assert
+syn keyword txr_keyword contained bind block cases cat
+syn keyword txr_keyword contained catch choose chr close
+syn keyword txr_keyword contained coll collect defex deffilter
+syn keyword txr_keyword contained define do elif else
+syn keyword txr_keyword contained end eof eol fail
+syn keyword txr_keyword contained filter finally flatten forget
+syn keyword txr_keyword contained freeform fuzz gather if
+syn keyword txr_keyword contained include last line load
+syn keyword txr_keyword contained local maybe merge next
+syn keyword txr_keyword contained none or output rebind
+syn keyword txr_keyword contained rep repeat require set
+syn keyword txr_keyword contained skip some text throw
+syn keyword txr_keyword contained trailer try until var
 syn match txr_error "@[\t ]*[*]\?[\t ]*."
-syn match txr_nested_error "[^\t `]\+" contained
-syn match txr_hashbang "^#!.*"
 syn match txr_atat "@[ \t]*@"
 syn match txr_comment "@[ \t]*[#;].*"
 syn match txr_contin "@[ \t]*\\$"
@@ -204,9 +202,11 @@ syn match txr_char "@[ \t]*\\."
 syn match txr_char "@[ \t]*\\x[0-9A-Fa-f]\+"
 syn match txr_char "@[ \t]*\\[0-9]\+"
 syn match txr_variable "@[ \t]*[*]\?[ \t]*[A-Za-z_][A-Za-z0-9_]*"
-syn match txr_metanum "@[0-9]\+"
 syn match txr_splicevar "@[ \t,*]*[A-Za-z_][A-Za-z0-9_]*"
 syn match txr_regdir "@[ \t]*/\(\\/\|[^/]\|\\\n\)*/"
+syn match txr_hashbang "^#!.*"
+syn match txr_metanum "@[0-9]\+"
+syn match txr_nested_error "[^\t `]\+" contained
 
 syn match txr_chr "#\\x[A-Fa-f0-9]\+" contained
 syn match txr_chr "#\\o[0-9]\+" contained