write-plist ( assoc path -- )

Vocabulary

cocoa.plists

Inputs

assoc	an object
path	an object

Outputs

None

Definition

USING: alien.c-types cocoa.application cocoa.messages
cocoa.runtime io.backend kernel ;

IN: cocoa.plists

: write-plist ( assoc path -- )
    [ >plist ] [ normalize-path <NSString> ] bi* 0
    { char { id SEL id char } } "writeToFile:atomically:" send
    [ "write-plist failed" throw ] unless ;