Add Name Commands

.gitignore

@@ -2,6 +2,14 @@
 #
 # gitignore contributors: remember to update Global/Xcode.gitignore, Objective-C.gitignore & Swift.gitignore
 
+*.ss~
+*.ss#*
+.#*.ss
+
+*.scm~
+*.scm#*
+.#*.scm
+
 ## Build generated
 build/
 DerivedData/
@@ -16,6 +24,8 @@ DerivedData/
 *.perspectivev3
 !default.perspectivev3
 xcuserdata/
+*.xcuserstate
+.DS_STORE
 
 ## Other
 *.moved-aside

Jared.applescript

@@ -0,0 +1,110 @@
+using terms from application "Messages"
+	on message sent theMessage for theChat with eventDescription
+		(*
+		set getname to ""
+		set gethandle to ""
+		try
+			set myresult to get id of theChat
+		on error errMsg
+			set errMsgParts to splitText(errMsg, "\"")
+			set errCount to count of errMsgParts
+			set myresult to item (errCount - 1) of errMsgParts
+		end try
+		tell application "JaredUI"
+			received with message theMessage from buddy getname with buddyHandle gethandle in group myresult
+		end tell*)
+	end message sent
+
+	on message received theText from theBuddy with eventDescription
+		set getname to first name of theBuddy as text
+		try
+			set myresult to get id of theBuddy
+		on error errMsg
+			set errMsgParts to splitText(errMsg, "\"")
+			set errCount to count of errMsgParts
+			set myresult to item (errCount - 1) of errMsgParts
+		end try
+		tell application "JaredUI"
+			received with message theText from buddy getname in group myresult
+		end tell
+	end message received
+
+	on chat room message received theText with eventDescription from theBuddy for theChat
+		set getname to first name of theBuddy as text
+		set gethandle to handle of theBuddy as text
+		try
+			set myresult to get id of theChat
+		on error errMsg
+			set errMsgParts to splitText(errMsg, "\"")
+			set errCount to count of errMsgParts
+			set myresult to item (errCount - 1) of errMsgParts
+		end try
+		tell application "JaredUI"
+			received with message theText from buddy getname with gethandle in group myresult
+		end tell
+	end chat room message received
+
+	on active chat message received theText with eventDescription from theBuddy for theChat
+	end active chat message received
+
+	on addressed message received theText with eventDescription from theBuddy for theChat
+		set getname to first name of theBuddy as text
+		try
+			set myresult to get id of theChat
+		on error errMsg
+			set errMsgParts to splitText(errMsg, "\"")
+			set errCount to count of errMsgParts
+			set myresult to item (errCount - 1) of errMsgParts
+		end try
+		tell application "JaredUI"
+			received with message theText from buddy getname in group myresult
+		end tell
+	end addressed message received
+
+	on received text invitation with eventDescription
+	end received text invitation
+
+	on received audio invitation theText from theBuddy for theChat with eventDescription
+	end received audio invitation
+
+	on received video invitation theText from theBuddy for theChat with eventDescription
+	end received video invitation
+
+	on buddy authorization requested with eventDescription
+	end buddy authorization requested
+
+	on addressed chat room message received with eventDescription
+	end addressed chat room message received
+
+	on login finished with eventDescription
+	end login finished
+
+	on logout finished with eventDescription
+	end logout finished
+
+	on buddy became available with eventDescription
+	end buddy became available
+
+	on buddy became unavailable with eventDescription
+	end buddy became unavailable
+
+	on received file transfer invitation theFileTransfer with eventDescription
+	end received file transfer invitation
+
+	on av chat started with eventDescription
+	end av chat started
+
+	on av chat ended with eventDescription
+	end av chat ended
+
+	on completed file transfer with eventDescription
+	end completed file transfer
+
+end using terms from
+
+on splitText(sourceText, textDelimiter)
+	set AppleScript's text item delimiters to {textDelimiter}
+	set messageParts to (every text item in sourceText) as list
+	set AppleScript's text item delimiters to ""
+	return messageParts
+end splitText