factor/basis/editors/editpadlite/editpadlite.factor

USING: combinators.short-circuit editors io.standard-paths
kernel make namespaces ;
IN: editors.editpadlite

SINGLETON: editpadlite
editpadlite editor-class set-global

: editpadlite-path ( -- path )
    \ editpadlite-path get [
        {
            [ { "Just Great Software" "JGsoft" } "editpadlite.exe" find-in-applications ]
            [ { "Just Great Software" "JGsoft" } "editpadlite7.exe" find-in-applications ]
            [ "editpadlite7.exe" ]
        } 0||
    ] unless* ;

M: editpadlite editor-command
    drop
    [ editpadlite-path , , ] { } make ;