summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-12-14 13:04:31 -0800
committerKaz Kylheku <kaz@kylheku.com>2011-12-14 13:04:31 -0800
commitdd6c8f68e1befce6ab4bfa66422f33609c25b6bd (patch)
tree7c5ae01503179ebe953fd04e3e7829b86e684d94
parent535e853d369f49f8b45e35cd21dd2f7495445429 (diff)
downloadtxr-dd6c8f68e1befce6ab4bfa66422f33609c25b6bd.tar.gz
txr-dd6c8f68e1befce6ab4bfa66422f33609c25b6bd.tar.bz2
txr-dd6c8f68e1befce6ab4bfa66422f33609c25b6bd.zip
* txr.vim: Highlight hash prefix and quote.
-rw-r--r--ChangeLog4
-rw-r--r--txr.vim11
2 files changed, 12 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index c5b2356d..603eb60d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2011-12-14 Kaz Kylheku <kaz@kylheku.com>
+ * txr.vim: Highlight hash prefix and quote.
+
+2011-12-14 Kaz Kylheku <kaz@kylheku.com>
+
* eval.c (op_dohash): Esbatlish anonymous block.
* txr.1: Finished documenting special operators.
diff --git a/txr.vim b/txr.vim
index 59f1380c..26326137 100644
--- a/txr.vim
+++ b/txr.vim
@@ -65,6 +65,9 @@ syn keyword txl_keyword contained list-vector assoc assq acons acons-new
syn keyword txl_keyword contained aconsq-new alist-remove alist-nremove copy-cons
syn keyword txl_keyword contained copy-alist merge sort find set-diff length
+syn match txr_hash "#" contained
+syn match txr_quote "[,']" contained
+
syn match txr_atat "@[ \t]*@"
syn match txr_comment "@[ \t]*#.*"
syn match txr_contin "@[ \t]*\\$"
@@ -81,11 +84,11 @@ syn match txr_num "[+-]\?[0-9]\+" contained
syn region txr_bracevar matchgroup=Delimiter start="@[ \t]*[*]\?{" matchgroup=Delimiter end="}" contains=txr_num,txr_ident,xr_string,txr_list,txr_regex,txr_quasilit,txr_chr
-syn region txr_directive matchgroup=Delimiter start="@[ \t]*(" matchgroup=Delimiter end=")" contains=txr_keyword,txr_string,txr_list,txr_meta,txr_quasilit,txr_num,txr_ident,txr_regex,txr_string,txr_variable,txr_chr
+syn region txr_directive matchgroup=Delimiter start="@[ \t]*(" matchgroup=Delimiter end=")" contains=txr_keyword,txr_string,txr_list,txr_meta,txr_quasilit,txr_num,txr_ident,txr_regex,txr_string,txr_variable,txr_chr,txr_hash
-syn region txr_list contained matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=txl_keyword,txr_string,txr_regex,txr_num,txr_ident,txr_variable,txr_meta,txr_list,txr_quasilit,txr_chr
+syn region txr_list contained matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=txl_keyword,txr_string,txr_regex,txr_num,txr_ident,txr_variable,txr_meta,txr_list,txr_quasilit,txr_chr,txr_hash,txr_quote
-syn region txr_meta contained matchgroup=Delimiter start="@[ \t]*(" matchgroup=Delimiter end=")" contains=txl_keyword,txr_string,txr_list,txr_regex,txr_num,txr_ident,txr_variable,txr_quasilit,txr_chrb
+syn region txr_meta contained matchgroup=Delimiter start="@[ \t]*(" matchgroup=Delimiter end=")" contains=txl_keyword,txr_string,txr_list,txr_regex,txr_num,txr_ident,txr_variable,txr_quasilit,txr_chrb,txr_hash,txr_quote
syn region txr_string contained oneline start=+"+ skip=+\\\\\|\\"+ end=+"+
syn region txr_quasilit contained oneline start=+`+ skip=+\\\\\|\\`+ end=+`+ contains=txr_directive,txr_variable,txr_bracevar
@@ -108,5 +111,7 @@ hi def link txr_variable Identifier
hi def link txr_bracevar Identifier
hi def link txr_ident Identifier
hi def link txr_num Number
+hi def link txr_hash String
+hi def link txr_quote String
let b:current_syntax = "lisp"