editors.atom: make it work better with Mac OS X.

basis/editors/atom/atom.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2014 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: editors io.standard-paths kernel make math.parser
-namespaces sequences ;
+USING: editors io.pathnames io.standard-paths kernel make
+math.parser namespaces sequences system ;
 IN: editors.atom
 
 SINGLETON: atom-editor
@@ -9,8 +9,20 @@ atom-editor editor-class set-global
 
 SYMBOL: atom-path
 
+HOOK: find-atom os ( -- path )
+
+M: object find-atom
+    "atom" ?find-in-path ;
+
+M: macosx find-atom
+    "com.github.Atom" find-native-bundle [
+        "Contents/MacOS/Atom" append-path
+    ] [
+        f
+    ] if* ;
+
 M: atom-editor editor-command ( file line -- command )
     [
-        atom-path get [ "atom" ?find-in-path ] unless* ,
+        atom-path get [ find-atom ] unless* ,
         number>string ":" glue ,
     ] { } make ;