Refactoring common functions out of platform-specific deployment

extra/tools/deploy/backend/backend.factor

@@ -105,5 +105,14 @@ DEFER: ?make-staging-image
 : make-deploy-image ( vm image vocab config -- )
     make-boot-image
     deploy-command-line run-factor ;
+    
+: copy-vm ( executable bundle-name extension -- vm )
+  [ prepend-path ] dip append vm over copy-file ;
+  
+: copy-fonts ( name dir -- )  
+  "fonts/" resource-path swap append-path copy-tree-into ;
+  
+: image-name ( vocab bundle-name -- str )  
+  prepend-path ".image" append ;
 
 HOOK: deploy* os ( vocab -- )

extra/tools/deploy/linux/linux.factor

@@ -4,20 +4,10 @@ USING: io io.files io.backend kernel namespaces sequences
 system tools.deploy.backend tools.deploy.config assocs
 hashtables prettyprint ;
 IN: tools.deploy.linux
-
-: copy-vm ( executable bundle-name -- vm )
-  prepend-path "" append
-  vm over copy-file ;
-  
-: copy-fonts ( name -- )  
-  "fonts/" resource-path swap copy-tree-into ;
   
 : create-app-dir ( vocab bundle-name -- vm )  
-  dup copy-fonts
-  copy-vm ;
-  
-: image-name ( vocab bundle-name -- str )  
-  prepend-path ".image" append ;
+  dup "" copy-fonts
+  "" copy-vm ;
   
 : bundle-name ( -- str )  
   deploy-name get ;

extra/tools/deploy/macosx/macosx.factor

@@ -14,13 +14,6 @@ IN: tools.deploy.macosx
     bundle-dir over append-path -rot
     "Contents" prepend-path append-path copy-tree ;
 
-: copy-vm ( executable bundle-name -- vm )
-    "Contents/MacOS/" append-path prepend-path vm over copy-file ;
-
-: copy-fonts ( name -- )
-    "fonts/" resource-path
-    swap "Contents/Resources/" append-path copy-tree-into ;
-
 : app-plist ( executable bundle-name -- assoc )
     [
         "6.0" "CFBundleInfoDictionaryVersion" set
@@ -40,8 +33,8 @@ IN: tools.deploy.macosx
 : create-app-dir ( vocab bundle-name -- vm )
     dup "Frameworks" copy-bundle-dir
     dup "Resources/English.lproj/MiniFactor.nib" copy-bundle-dir
-    dup copy-fonts
-    2dup create-app-plist copy-vm ;
+    dup "Contents/Resources/" copy-fonts
+    2dup create-app-plist "Contents/MacOS/" append-path "" copy-vm ;
 
 : deploy.app-image ( vocab bundle-name -- str )
     [ % "/Contents/Resources/" % % ".image" % ] "" make ;

extra/tools/deploy/windows/windows.factor

@@ -5,13 +5,6 @@ tools.deploy.backend tools.deploy.config assocs hashtables
 prettyprint windows.shell32 windows.user32 ;
 IN: tools.deploy.windows
 
-: copy-vm ( executable bundle-name -- vm )
-    prepend-path ".exe" append
-    vm over copy-file ;
-
-: copy-fonts ( bundle-name -- )
-    "fonts/" resource-path swap copy-tree-into ;
-
 : copy-dlls ( bundle-name -- )
     { "freetype6.dll" "zlib1.dll" "factor.dll" }
     [ resource-path ] map
@@ -19,8 +12,8 @@ IN: tools.deploy.windows
 
 : create-exe-dir ( vocab bundle-name -- vm )
     dup copy-dlls
-    dup copy-fonts
-    copy-vm ;
+    dup "" copy-fonts
+    ".exe" copy-vm ;
 
 : image-name ( vocab bundle-name -- str )
     prepend-path ".image" append ;