factor/extra/editors/emacs/emacs.factor

18 lines
371 B
Factor
Executable File

USING: definitions io.launcher kernel parser words sequences math
math.parser namespaces editors ;
IN: editors.emacs
: emacsclient ( file line -- )
[
"emacsclient" ,
"--no-wait" ,
"+" swap number>string append ,
,
] { } make try-process ;
: emacs ( word -- )
where first2 emacsclient ;
[ emacsclient ] edit-hook set-global