extra/editors/emacs/emacs.factor

   1 USING: definitions io.launcher kernel parser words sequences math
   2 math.parser namespaces editors ;
   3 IN: editors.emacs
   4
   5 : emacsclient ( file line -- )
   6     [
   7         "emacsclient --no-wait +" % # " " % %
   8     ] "" make run-process ;
   9
  10 : emacs ( word -- )
  11     where first2 emacsclient ;
  12
  13 [ emacsclient ] edit-hook set-global
  14