SubEthaEdit script to cleanup trailing whitespace

gistfile1.applescript

on seescriptsettings()
	return {keyboardShortcut:"$@c", displayName:"Remove trailing whitespace", inContextMenu:"yes"}
end seescriptsettings

tell application "SubEthaEdit"
	set someText to contents of front document as text
	
end tell


set cleaned_text to do shell script "echo " & quoted form of someText & " | sed -e's/[[:space:]]*$//' " without altering line endings


tell application "SubEthaEdit"
	if (length of selection = 0) then
		set contents of front document to cleaned_text
	else
		set contents of selection of front document to cleaned_text as text
	end if
end tell