29 lines
662 B
Factor
29 lines
662 B
Factor
! Copyright (C) 2014 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: editors io.pathnames io.standard-paths kernel make
|
|
math.parser namespaces sequences system ;
|
|
IN: editors.atom
|
|
|
|
SINGLETON: atom-editor
|
|
atom-editor editor-class set-global
|
|
|
|
SYMBOL: atom-path
|
|
|
|
HOOK: find-atom os ( -- path )
|
|
|
|
M: object find-atom
|
|
"atom" ?find-in-path ;
|
|
|
|
M: macosx find-atom
|
|
"com.github.Atom" find-native-bundle [
|
|
"Contents/MacOS/Atom" append-path
|
|
] [
|
|
f
|
|
] if* ;
|
|
|
|
M: atom-editor editor-command ( file line -- command )
|
|
[
|
|
atom-path get [ find-atom ] unless* ,
|
|
number>string ":" glue ,
|
|
] { } make ;
|