basis/editors/emacs/emacs.factor

   1 USING: definitions io.launcher kernel parser words sequences math
   2 math.parser namespaces editors make system ;
   3 IN: editors.emacs
   4
   5 : emacsclient ( file line -- )
   6     [
   7         \ emacsclient get "emacsclient" or ,
   8         os windows? [ "--no-wait" , ] unless
   9         "+" swap number>string append ,
  10         ,
  11     ] { } make try-process ;
  12
  13 : emacs ( word -- )
  14     where first2 emacsclient ;
  15
  16 [ emacsclient ] edit-hook set-global
  17