basis/editors/textedit/textedit.factor

   1 USING: definitions io.launcher kernel math math.parser parser
   2 namespaces prettyprint editors make ;
   3
   4 IN: editors.textedit
   5
   6 : textedit-location ( file line -- )
   7     drop
   8     [ "open" , "-a" , "TextEdit", , ] { } make
   9     try-process ;
  10
  11 [ textedit-location ] edit-hook set-global
  12
  13