editors.sublime: keep Sublime Text 2 support like we do on OS X.

db4
John Benediktsson 2015-06-01 15:34:11 -07:00
parent 2ee3516bf1
commit e2bead3328
1 changed files with 8 additions and 3 deletions

View File

@ -1,7 +1,8 @@
! Copyright (C) 2013 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: editors io.pathnames io.standard-paths kernel make
math.parser namespaces sequences system ;
USING: combinators.short-circuit editors io.pathnames
io.standard-paths kernel make math.parser namespaces sequences
system ;
IN: editors.sublime
SINGLETON: sublime
@ -19,7 +20,11 @@ M: macosx find-sublime-path
] if* ;
M: windows find-sublime-path
{ "Sublime Text 3" } "subl.exe" find-in-applications ;
{
[ { "Sublime Text 3" } "subl.exe" find-in-applications ]
[ { "Sublime Text 2" } "sublime_text.exe" find-in-applications ]
[ "subl.exe" ]
} 0|| ;
: sublime-path ( -- path )
\ sublime-path get [