USING: definitions io.launcher kernel parser words sequences math
-math.parser namespaces editors make system combinators.short-circuit ;
+math.parser namespaces editors make system combinators.short-circuit
+fry threads ;
IN: editors.emacs
SYMBOL: emacsclient-path
: emacsclient ( file line -- )
[
{ [ \ emacsclient-path get ] [ default-emacsclient ] } 0|| ,
- os windows? [ "--no-wait" , ] unless
+ "--no-wait" ,
number>string "+" prepend ,
,
- ] { } make try-process ;
+ ] { } make run-detached drop ;
: emacs ( word -- )
where first2 emacsclient ;