Run the current selection as a BBEdit clipping

run_selection_as_clipping.applescript

tell application "BBEdit"
	
	set theScript to selection as text
	set clippingFileRef to (path to temporary items as string) & "clipping_as_selection"
	
	--close access clippingFileRef
	set fileref to open for access file clippingFileRef with write permission
	set eof of fileref to 0 -- clear the file
	write theScript to fileref
	close access fileref
	
	insert clipping clippingFileRef into window 1
end tell