add text replacement.scpt

using terms from application "Quicksilver"
	on process text ThisClipping
		do shell script "/Users/epall/bin/addreplacement " & ThisClipping
	end process text
end using terms from

addreplacement.sh

#!/bin/sh

replace=$1
with=$2

commands="Add :NSUserReplacementItems:0 dict\n\
Add :NSUserReplacementItems:0:on integer 1\n\
Add :NSUserReplacementItems:0:replace string $replace\n\
Add :NSUserReplacementItems:0:with string $with\n\
Save\nExit\n"

echo $commands | /Users/epall/bin/PlistBuddy ~/Library/Preferences/.GlobalPreferences.plist 2>&1 > /dev/null