basis/editors/atom/atom.factor

   1 ! Copyright (C) 2014 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: editors io.standard-paths kernel make math.parser
   4 namespaces sequences ;
   5 IN: editors.atom
   6
   7 SINGLETON: atom-editor
   8 atom-editor editor-class set-global
   9
  10 SYMBOL: atom-path
  11
  12 M: atom-editor editor-command ( file line -- command )
  13     [
  14         atom-path get [ "atom" ?find-in-path ] unless* ,
  15         number>string ":" glue ,
  16     ] { } make ;
  17