OSX Dictionary Lookup History Service

LookUp.APPLESCRIPT

on run {input, parameters}
	set logPath to "Dropbox/Dictionary/words.txt"
	set lookUpWord to quoted form of (input as string)
	
	tell application "System Events" to tell (process 1 where frontmost is true)
		set windowTitle to name
		try
			set windowTitle to windowTitle
			set titleBar to name of window 1
		end try
	end tell
	
	#	do shell script ¬
	#		"cd; echo '{ word: \"" & lookUpWord & ¬
	#		"\", windowTitle: \"" & windowTitle & ¬
	#		"\", titleBar: \"" & titleBar & ¬
	#		"\" },' >> " & quoted form of logPath
	
	set timeStamp to do shell script "date +%s"
	do shell script ¬
		"cd; echo 'date:" & timeStamp & "\tword:" & lookUpWord & "\twindowTitle:" & windowTitle & "\ttitleBar:" & titleBar & "' >> " & quoted form of logPath
	
	do shell script "open dict://" & lookUpWord
	
	return input
end run