steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/editors/sublime/sublime.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2013 Doug Coleman. ! Copyright (C) 2013 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: editors io.pathnames io.standard-paths kernel make USING: combinators.short-circuit editors io.pathnames
math.parser namespaces sequences system ; io.standard-paths kernel make math.parser namespaces sequences
system ;
IN: editors.sublime IN: editors.sublime
SINGLETON: sublime SINGLETON: sublime
@ -19,7 +20,11 @@ M: macosx find-sublime-path
] if* ; ] if* ;
M: windows find-sublime-path 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 ( -- path )
\ sublime-path get [ \ sublime-path get [