find-sublime-path ( -- path )

Vocabulary

editors.sublime

Inputs

None

Outputs

path

an object

Definition

USING: system ;

IN: editors.sublime

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

Methods

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

M: macos find-sublime-path
    { "com.sublimetext.3" "com.sublimetext.2" }
    [ find-native-bundle ] map-find drop
    [ "Contents/SharedSupport/bin/subl" append-path ] [ f ] if*
    ;


USING: editors.sublime kernel ;

M: object find-sublime-path f ;


USING: combinators.short-circuit editors.sublime
io.standard-paths system ;

M: windows find-sublime-path
    {
        [ { "Sublime Text 3" } "subl.exe" find-in-applications ]
        [
            { "Sublime Text 2" } "sublime_text.exe"
            find-in-applications
        ]
        [ "subl.exe" ]
    } 0|| ;