create-app-dir ( vocab bundle-name -- vm )

Vocabulary

tools.deploy.macosx

Inputs

vocab	an object
bundle-name	an object

Outputs

vm

an object

Definition

USING: combinators io.directories io.files.info.unix
io.pathnames kernel tools.deploy.backend ;

IN: tools.deploy.macosx

: create-app-dir ( vocab bundle-name -- vm )
    {
        [
            nip
            [ copy-nib ] [
                "Contents/Resources" append-path
                make-directories
            ] [
                "Contents/Frameworks" append-path
                make-directories
            ] tri
        ]
        [ copy-icns ]
        [ create-app-plist ]
        [ "Contents/MacOS/" append-path copy-vm ]
    } 2cleave dup 493 set-file-permissions ;