! File: aquamacs.factor
! Version: 0.1
! DRI: Dave Carlton
! Description: Another fine Factor file!
! Copyright (C) 2017 Dave Carlton.
! See http://factorcode.org/license.txt for BSD license.

USING: combinators.short-circuit editors io.standard-paths
kernel make math.parser namespaces sequences system ;
IN: editors.aquamacs

SINGLETON: aquamacs
aquamacs editor-class set-global

HOOK: find-aquamacs os ( -- path )

M: object find-aquamacs ( -- path )
    "aquamacs" ?find-in-path ;

M: aquamacs editor-command ( file line -- command )
    drop
    [
        "/Applications/Aquamacs.app/Contents/MacOS/bin/aquamacs" ,
        ,
    ] { } make
    ;