18 lines
438 B
Factor
18 lines
438 B
Factor
! Copyright (C) 2014 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: editors io.standard-paths kernel make math.parser
|
|
namespaces sequences ;
|
|
IN: editors.atom
|
|
|
|
SINGLETON: atom-editor
|
|
atom-editor editor-class set-global
|
|
|
|
SYMBOL: atom-path
|
|
|
|
M: atom-editor editor-command ( file line -- command )
|
|
[
|
|
atom-path get [ "atom" ?find-in-path ] unless* ,
|
|
number>string ":" glue ,
|
|
] { } make ;
|
|
|