copy-icns ( vocab bundle-name -- icon? )

Vocabulary

tools.deploy.macos

Inputs

vocab	an object
bundle-name	an object

Outputs

icon?

an object

Definition

USING: io.directories io.files io.pathnames kernel vocabs.loader
;

IN: tools.deploy.macos

: copy-icns ( vocab bundle-name -- icon? )
    swap dup vocab-mac-icon-path vocab-append-path
    dup file-exists? [
        swap "Contents/Resources/Icon.icns" append-path
        copy-file t
    ] [ 2drop f ] if ;