22 lines
465 B
Factor
22 lines
465 B
Factor
IN: vim
|
|
USING: definitions io kernel namespaces parser prettyprint
|
|
process sequences ;
|
|
|
|
SYMBOL: vim-path
|
|
SYMBOL: vim-detach
|
|
|
|
"vim" vim-path set-global
|
|
|
|
: vim-command ( file line -- string )
|
|
[ "\"" % vim-path get % "\" \"" % swap % "\" +" % # ] "" make ;
|
|
|
|
: vim-location ( file line -- )
|
|
vim-command
|
|
vim-detach get-global
|
|
[ run-detached ] [ run-process ] if ;
|
|
|
|
: vim ( spec -- )
|
|
where first2 vim-location ;
|
|
|
|
[ vim-location ] edit-hook set-global
|