         bundle-name rm
         [ bundle-name create-app-dir ] keep
         [ bundle-name deploy.app-image ] keep
-        namespace
-    ] bind deploy* ;
+        namespace deploy*
+        bundle-name show-in-finder
+    ] bind ;

: copy-vm ( executable bundle-name -- vm )
    "Contents/MacOS/" path+ swap path+ vm swap
    [ copy-file ] keep
    [ "755" chmod ] keep ;

: copy-fonts ( name -- )
    "fonts/" resource-path

! Copyright (C) 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: io io.files io.launcher kernel namespaces sequences
system tools.deploy tools.deploy.config assocs hashtables
prettyprint unix io.unix.backend cocoa cocoa.plists
cocoa.application cocoa.classes ;
IN: tools.deploy.macosx

: touch ( path -- )
    { "touch" } swap add run-process ;

: rm ( path -- )
    { "rm" "-rf" } swap add run-process ;

: bundle-dir ( -- dir )
    vm parent-directory parent-directory ;
