quote-apple-script ( str -- str' )

Vocabulary

cocoa.apple-script

Inputs

str

a string

Outputs

str'

a string

Word description

Escape special characters in a string to make it suitable as a literal string in AppleScript code.

Definition

USING: assocs cocoa.apple-script.private kernel sequences
strings ;

IN: cocoa.apple-script

: quote-apple-script ( str -- str' )
    [ 1string apple-script-charmap ?at drop ] { } map-as
    "" concat-as "\"" dup surround ;