find-atom ( -- path )

Vocabulary

editors.atom

Inputs

None

Outputs

path

an object

Definition

USING: system ;

IN: editors.atom

HOOK: find-atom os ( -- path )

Methods

USING: editors.atom io.pathnames io.standard-paths kernel system
;

M: macosx find-atom
    "com.github.Atom" find-native-bundle
    [ "Contents/MacOS/Atom" append-path ] [ f ] if* ;


USING: editors.atom io.standard-paths kernel ;

M: object find-atom "atom" ?find-in-path ;