an automator script to wrap punctuation around text

wrap-automator.sh

which_wrap() {

# this script is much faster than the applescript version, but does not properly handle cancellation

osascript <<EOF 
try
set bloog to (choose from list {"double-quote \"\"", "single-quote ''", "parenthesis ()", "curly-brace {}", "brace []", "angled-bracket <>"} with title "Select an Item" OK button name "Wrap" default items {"double-quote"} with empty selection allowed)

return bloog

if bloog is false then
	error number -128
end if

end try

EOF
}

which_wrap=$(which_wrap | sed 's/[[:punct:]]. *$/ /g;s/[[:space:]]//g')

case "$which_wrap" in
	double-quote) sed 's/^/\"/;s/$/\"/';;
	single-quote) sed "s/^/\'/;s/$/\'/";;
	parenthesis) sed 's/^/\(/;s/$/\)/';;
	curly-brace) sed 's/^/\{/;s/$/\}/';;
	brace) sed 's/^/\[/;s/$/\]/';;
	angled-bracket) sed 's/^/\</;s/$/\>/';;
	"false") exit 1;;
esac