find-aquamacs-path ( -- path )

Vocabulary

editors.aquamacs

Inputs

None

Outputs

path

an object

Definition

USING: system ;

IN: editors.aquamacs

HOOK: find-aquamacs-path os ( -- path )

Methods

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

M: macos find-aquamacs-path
    "org.gnu.Aquamacs" find-native-bundle
    [ "Contents/MacOS/bin/aquamacs" append-path ] [ f ] if* ;


USING: editors.aquamacs kernel ;

M: object find-aquamacs-path f ;