scrip-to-get-current-appname.scpt

set value to the name of (info for (path to frontmost application))
if value contains "." then
	repeat until last character of value = "."
		set total to count (character of value)
		set value to characters 1 through (total - 1) of value as text
	end repeat
	set total to count (character of value)
	set value to characters 1 through (total - 1) of value as text
end if
return value