libs/emacs.factor

   1 REQUIRES: libs/process ;
   2
   3 USING: definitions kernel parser words sequences math process
   4 namespaces ;
   5
   6 IN: emacs
   7
   8 : emacsclient ( file line -- )
   9 [ "emacsclient --no-wait +" % # " " % % ] "" make system drop ;
  10
  11 : emacs ( word -- )
  12 where first2 emacsclient ;
  13
  14 [ emacsclient ] edit-hook set-global
  15
  16 PROVIDE: libs/emacs ;