Xcode 4.x PeepOpen applescript

Xcode-PeepOpen.applescript

tell application "Xcode"
	tell front project
		-- The project root
		set root_group to root group
		-- The first folder in the project root
		-- (Sources folder in CMake generated projects)
		set first_item to first item reference of root_group
		-- Get the file path
		set my_sources_path to full path of first_item
		-- Open with peepopen
		do shell script "open \"peepopen://" & my_sources_path & "?editor=Xcode\""
	end tell
end tell