From e2bead332866b83bf6705420606da4c41523a885 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 1 Jun 2015 15:34:11 -0700 Subject: [PATCH] editors.sublime: keep Sublime Text 2 support like we do on OS X. --- basis/editors/sublime/sublime.factor | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/basis/editors/sublime/sublime.factor b/basis/editors/sublime/sublime.factor index 3353897090..df08f603c7 100644 --- a/basis/editors/sublime/sublime.factor +++ b/basis/editors/sublime/sublime.factor @@ -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 [