1 USING: definitions io.launcher kernel parser words sequences math
2 math.parser namespaces editors make system combinators.short-circuit
3 fry threads vocabs.loader ;
6 SYMBOL: emacsclient-path
8 HOOK: default-emacsclient os ( -- path )
10 M: object default-emacsclient ( -- path ) "emacsclient" ;
12 : emacsclient ( file line -- )
15 [ emacsclient-path get-global ]
16 [ default-emacsclient dup emacsclient-path set-global ]
19 number>string "+" prepend ,
22 os windows? [ run-detached drop ] [ try-process ] if ;
25 where first2 emacsclient ;
27 [ emacsclient ] edit-hook set-global
29 os windows? [ "editors.emacs.windows" require ] when