factor/basis/editors/emacs/emacs.factor

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

SINGLETON: emacsclient
emacsclient editor-class set-global

SYMBOL: emacsclient-path

HOOK: find-emacsclient os ( -- path )

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

M: windows find-emacsclient
    {
        [ { "Emacs" } "emacsclientw.exe" find-in-applications ]
        [ { "Emacs" } "emacsclient.exe" find-in-applications ]
        [ "emacsclient.exe" ]
    } 0|| ;

M: emacsclient editor-command ( file line -- command )
    [
        emacsclient-path get [ find-emacsclient ] unless* ,
        "--no-wait" ,
        number>string "+" prepend ,
        ,
    ] { } make ;