steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

working on contrib/vim

erg 2006-10-20 21:55:52 +00:00
parent 2228c9fe54
commit db061d7d4c
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/vim/vim.factor
View File

@ -2,14 +2,19 @@ IN: vim
USING: definitions embedded io kernel namespaces parser prettyprint process USING: definitions embedded io kernel namespaces parser prettyprint process
sequences ; sequences ;
SYMBOL: vim-path
"vim" vim-path set-global
: vim-command ( file line -- string )
[ "\"" % vim-path get % "\" \"" % swap % "\" +" % # ] "" make ;
: vim-location ( file line -- ) : vim-location ( file line -- )
>r [ file-modified ] keep r> vim-command run-process ;
[ "vim \"" % over % "\" +" % # ] "" make system drop
file-modified = [ drop ] [ run-file ] if ;
: vim ( spec -- ) : vim ( spec -- )
#! Edit the file in vim. Rerun the file if the timestamp is changed. #! Edit the file in vim. Rerun the file if the timestamp is changed.
dup where first2 vim-location ; where first2 vim-location ;
[ vim-location ] edit-hook set-global [ vim-location ] edit-hook set-global