program subl
	syntax anything
	if ustrregexm("`anything'","[\./ ]") {
		local fileobject `anything'
	}
	else {
		qui findfile `anything'.ado
		local fileobject = r(fn)
	}

	shell /usr/local/bin/subl "`fileobject'"
end