Terminal.appのウィンドウをScreenぽく分割するようなスクリプト

ここで紹介されているのと戯れていて、あとはターミナルの分割さえできれば…と思い作成したのが次の AppleScript。あまり賢くないけど、今開いてるウィンドウのサイズを半分にして空いたスペースに新しく作成したウィンドウを配置するというもの。QuickSilverにホットキー登録して使ってください。

あとはウィンドウをタイリングするのを書く暇があれば…。

tell application "Terminal"
	set theFrontmostWindow to null
	repeat with theWindow in windows
		if theWindow is frontmost then
			set theFrontmostWindow to theWindow
		end if
	end repeat
	if theFrontmostWindow is null then
		return
	end if
	set the number of rows of theFrontmostWindow to (the number of rows of theFrontmostWindow) / 2
	set theNewWindowPosition to the position of theFrontmostWindow
	set theNewWindowSize to the size of theFrontmostWindow
	set the item 2 of theNewWindowPosition to the (item 2 of theNewWindowPosition) + (the item 2 of theNewWindowSize)
	do script ""
	set theNewWindow to the first item of the windows
	set the size of theNewWindow to theNewWindowSize
	set the position of theNewWindow to theNewWindowPosition
end tell