summaryrefslogtreecommitdiffstats
path: root/genvim.txr
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-04-04 23:00:07 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-04-04 23:00:07 -0700
commit7f639b761bfd44c6a07b8417007e1cb8a3a2856c (patch)
tree8e18d2ef264dd7f38edba42b27e935a18b8d047a /genvim.txr
parentcd5602baccd5aa32cd7b7f47f2244c9bb303c9a1 (diff)
downloadtxr-7f639b761bfd44c6a07b8417007e1cb8a3a2856c.tar.gz
txr-7f639b761bfd44c6a07b8417007e1cb8a3a2856c.tar.bz2
txr-7f639b761bfd44c6a07b8417007e1cb8a3a2856c.zip
genvim: treatment of comments.
* genvim.txr (comments): new variable. Generate "set comments" command for TXR and TXR Lisp.
Diffstat (limited to 'genvim.txr')
-rw-r--r--genvim.txr2
1 files changed, 2 insertions, 0 deletions
diff --git a/genvim.txr b/genvim.txr
index 74e892bc..5b1252b1 100644
--- a/genvim.txr
+++ b/genvim.txr
@@ -57,6 +57,7 @@ static void dir_tables_init(void)
sys:setqf new lnew
meth umeth usl))
(list text)))))
+@(bind comments #"\\;\\;\\; \\;\\; \\;")
@(define generate (txr-p))
@ (output @(if txr-p "txr.vim" "tl.vim") :named out)
" VIM Syntax file for txr
@@ -221,6 +222,7 @@ hi def link txr_ign_bkt Comment
let b:current_syntax = "lisp"
set lispwords=@{lispwords ","},:method,:function,:init,:postinit,:fini
+set comments=@{[mapcar (ret `:@(if txr-p #\@ "")@1`) comments] ","}
@ (end)
@(end)
@(generate t)