factor/contrib/vim/vim.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