Split/Copy Safari Tabs

Split Tabs.scpt

set destWindowIsNew to true

set optionList to {"Copy Tabs", "Move Tabs"}
set tabsAction to choose from list optionList with prompt "What to do with tabs:" default items {"Move Tabs"}
set closeTabs to tabsAction contains "Move Tabs"

tell application "Safari"
	set sourceWindow to front window
	set sourceTabs to tabs of sourceWindow
	set startSourceTabIndex to index of current tab of sourceWindow
	set sourceTabCount to count of sourceTabs
	
	if destWindowIsNew then
		make new document
		set destWindow to front window
	else
		set destWindow to window 2
	end if
	repeat with i from startSourceTabIndex to sourceTabCount
		set u to URL of item i of sourceTabs
		if u is not missing value then
			set destTab to make new tab at end of tabs of destWindow
			set URL of destTab to u
		end if
	end repeat
	if closeTabs then repeat with i from startSourceTabIndex to sourceTabCount
		close item startSourceTabIndex of sourceTabs
	end repeat
	activate
end tell