all updated.

aarblaster · aarblaster · commit 239a0ad63d98 · 2023-11-13T00:13:05.000Z
diff --git a/.DS_Store b/.DS_Store
diff --git a/Bartender/.DS_Store b/Bartender/.DS_Store
diff --git a/Bartender/DisplaysLaptopOnly.scpt b/Bartender/DisplaysLaptopOnly.scpt
@@ -0,0 +1,27 @@
+-- DisplaysLaptopOnly.scpt
+--
+-- A simple script to return `TRUE` when laptop screen is the only one.
+-- Useful with Bartender Profiles
+--
+-- Copyright Anthony Arblaster 2023
+-- 		MIT Licence
+-- 		Web: https://github.com/aarblaster/UsefulAppleScripts
+--
+-- Version 1.0
+--
+
+tell application "System Events"
+	set monitorCount to count of desktops
+	if monitorCount > 1 then
+		return false
+	else
+		tell application "Finder"
+			set monitorSize to bounds of window of desktop
+		end tell
+		if monitorSize = {0, 0, 1512, 982} then
+			return true
+		else
+			return false
+		end if
+	end if
+end tell
diff --git a/Bartender/DisplaysNotLaptop.scpt b/Bartender/DisplaysNotLaptop.scpt
@@ -0,0 +1,27 @@
+-- DisplaysNotLaptop.scpt
+--
+-- A simple script to return `TRUE` when laptop screen is **NOT** the only one.
+-- Useful with Bartender Profiles
+--
+-- Copyright Anthony Arblaster 2023
+-- 		MIT Licence
+-- 		Web: https://github.com/aarblaster/UsefulAppleScripts
+--
+-- Version 1.0
+--
+
+tell application "System Events"
+	set monitorCount to count of desktops
+	if monitorCount > 1 then
+		return true
+	else
+		tell application "Finder"
+			set monitorSize to bounds of window of desktop
+		end tell
+		if monitorSize = {0, 0, 1512, 982} then
+			return false
+		else
+			return true
+		end if
+	end if
+end tell
diff --git a/Bunch/.DS_Store b/Bunch/.DS_Store
diff --git a/Bunch/GetKMVar.scpt b/Bunch/GetKMVar.scpt
@@ -0,0 +1,22 @@
+-- GetKMVAR.scpt
+--
+-- A simple script get the variable from KM. 
+-- A building block really.
+--
+-- Copyright Anthony Arblaster 2023
+-- 		MIT Licence
+-- 		Web: https://github.com/aarblaster/UsefulAppleScripts
+--
+-- Version 1.0
+--
+
+-- Get the value of a KeyboardMaestro variable.
+-- Make it available to the AppleScript.
+
+-- set the name of the KM variable to get.
+set myKMVar to "ScriptVar"
+
+-- Get the value from KM.
+tell application "Keyboard Maestro Engine"
+	set myASVar to getvariable myKMVar
+end tell
diff --git a/Bunch/QuitXcodeBunch.scpt b/Bunch/QuitXcodeBunch.scpt
@@ -0,0 +1,18 @@
+-- QuitXcodeBunch.scpt
+--
+-- Quit Xcode, stopping running tasks.
+--
+-- Copyright Anthony Arblaster 2023
+-- 		MIT Licence
+-- 		Web: https://github.com/aarblaster/UsefulAppleScripts
+--
+-- Version 1.0
+--
+
+tell application "Xcode"
+	stop workspace document 1
+end tell
+delay 3
+tell application "Xcode"
+	quit
+end tell
diff --git a/Email/.DS_Store b/Email/.DS_Store
diff --git a/Email/EmailHi.scpt b/Email/EmailHi.scpt
@@ -0,0 +1,52 @@
+--
+-- EmailHi.scpt
+--
+-- Get the fist name of people in the email ‘To’ field. 
+-- With variants for Mail.app and MS Outlook.
+-- 
+-- Copyright Anthony Arblaster 2023
+-- 		MIT Licence
+-- 		Web: https://github.com/aarblaster/UsefulAppleScripts
+--
+-- Version 3.0
+--
+
+-- The Outlook variation
+-- Note this only works if using a seperate window.
+-- It will not work if you're replying in the main app.
+if application "Microsoft Outlook" is the frontmost application then
+	tell application "System Events"
+		tell process "Microsoft Outlook"
+			tell text field 1 of scroll area 1 of splitter group 1 of front window
+				get count of static text
+				if result is 1 then
+					set theToRecipient to (value of static text 1)
+					return word 1 of theToRecipient
+				else if result is 2 then
+					set the1stToRecipient to (value of static text 1)
+					set the2ndToRecipient to (value of static text 2)
+					return word 1 of the1stToRecipient & " and " & word 1 of the2ndToRecipient
+				else if result is greater than 2 then
+					return "all"
+				end if
+			end tell
+		end tell
+	end tell
+
+else
+	-- the Mail.app variation
+	tell application "System Events"
+		tell process "Mail"
+			tell text field "To:" of window 1
+				if UI element 1 exists then
+					set theToRecipient to (value of UI element 1)
+					if ((count words of theToRecipient) is greater than 0) and (theToRecipient does not contain ",") then
+						return word 1 of theToRecipient
+					else if ((count words of theToRecipient) is greater than 0) and (theToRecipient contains ",") then
+						return word 2 of theToRecipient
+					end if
+				end if
+			end tell
+		end tell
+	end tell
+end if
diff --git a/README.md b/README.md
@@ -1,2 +1,28 @@
 # UsefulAppleScripts
- A collection of Useful Applescripts
+ A collection of Useful Applescripts to make MacOS life better.
+ 
+ ## About
+ Some of these specifically integrate with other software and others manipulate the OS.  
+ These are mostly created by cobbling together bits and pieces from other scripts and finding the thing that works best for my use case.
+ 
+ ## Directory
+ ### BarTender
+ * `DisplaysLaptopOnly.scpt` determines if the monitor connected is a laptop display. This allows [Bartender](https://www.macbartender.com) to know if a smaller display is detected. This interacts with Bartender's new profile feature.
+ *	`DisplaysNotLaptop.scpt` very similar to `DisplaysLaptopOnly.scpt` but it determines if a monitor that is **not** the laptop is conected. Similarly, works with Bartender Profiles.
+ 
+ ### Bunch
+ * I use `QuitXcodeBunch` with [Bunch.app](https://bunchapp.co), from the excellent [@ttscoff](https://github.com/ttscoff), to close Xcode when leaving my Code bunch. It makes sure to stop any running tasks so that Xcode quits properly.
+ * `GetKMVar` is a simple script to get the variable from inside [Keyboard Maestro](https://keyboardmaestro.com) and make it available to an applescript. It works in conjunction with other scripts as more of a building block.
+   
+ ### Email
+ * `EmailHi.scpt` is heavily inspired by [David Sparks' blog](https://www.macsparky.com/blog/2020/09/updates-and-improvements-to-the-salutation-applescript-for-apple-mail/) and was influenced heavily by various posts I read on the [Automators forums](https://www.macsparky.com/blog/2020/09/updates-and-improvements-to-the-salutation-applescript-for-apple-mail/) and the [Mac Power Users Forums](https://talk.macpowerusers.com).   
+ My version of the script includes both MS Outlook and Mail.app variations as I work in both pieces of software and wanted the ability to get first names in both applications. I trigger it with Keyboard Maestro text entry because I try to keep all the applescript triggers there. But you could also use text expander...
+ 
+ 
+ ### URLs
+ * `SafariToFirefox.scpt` opens the frontmost safari tab in firefox. Personally I trigger this with [Keyboard Maestro](https://keyboardmaestro.com)   
+ 
+ ## Thanks
+ I'm not really amazing at any of this coding business, and I have only been able to work out these automations because of the excellent communities and software that others have made. I hope you find these useful.   
+ 
+ If you do find them useful – give me a shout. I'd love to hear about that.
diff --git a/URLs/SafariToFirefox.scpt b/URLs/SafariToFirefox.scpt
@@ -0,0 +1,44 @@
+-- SafriToFirefox.scpt
+--
+-- A script to open the front Safari URL in Firefox.
+--
+-- Copyright Anthony Arblaster 2023
+-- 		MIT Licence
+-- 		Web: https://github.com/aarblaster/UsefulAppleScripts
+--
+-- Version 1.0
+--
+
+-- Get the frontmost tab URL in Safari
+tell application "Safari"
+	set safariURL to URL of front document
+end tell
+
+-- Check if Firefox is already running
+if application "Firefox" is running then
+	set firefoxWasRunning to true
+else
+	set firefoxWasRunning to false
+end if
+
+-- Activate Firefox
+tell application "Firefox" to activate
+
+-- Check if Firefox was not running initially and there are open windows
+if not firefoxWasRunning then
+	tell application "System Events"
+		tell process "Firefox"
+			if (count windows) is greater than 0 then
+				-- Close the front tab in Firefox
+				keystroke "w" using {command down}
+				delay 1 -- Add a delay to allow the tab to close
+			end if
+		end tell
+	end tell
+end if
+
+-- Open the URL in Firefox
+tell application "Firefox"
+	open location safariURL
+end tell
+
diff --git a/URLs/URLsToProfile.scpt b/URLs/URLsToProfile.scpt
@@ -0,0 +1 @@
+-- URLsToProfile.scpt---- A script to open some urls in a specific profile in Safari.---- Copyright Anthony Arblaster 2023-- 		MIT Licence-- 		Web: https://github.com/aarblaster/UsefulAppleScripts---- Version 2.0---- Open the new tab group-- Currently using Keyboard Maestro as the is no-- AppleScript, Shell or shortcuts was to do this.tell application "Keyboard Maestro Engine" to do script "KM_to_open_the_profile_you_want_to_use"-- Get URLS from a string-- The string containing URLs---- CHANGE THESE TO THE URLS YOU WANTset inputString to "https://github.com https://apple.com"-- Regular expression pattern to match URLsset urlPattern to "https?://\\S+"-- Create a list to store the extracted URLsset extractedURLs to {}-- Use the "do shell script" command with "grep" and regular expression to extract URLstry	set extractedURLs to paragraphs of (do shell script "echo " & quoted form of inputString & " | grep -E -o " & quoted form of urlPattern)on error errMsg	display dialog "An error occurred: " & errMsgend try-- Iterate through the extracted urls and open in tabs.tell application "Safari"	-- Get a reference to the front window	set frontWindow to the front window		repeat with aURL in extractedURLs		-- Create a new tab with the URL		make new tab at frontWindow with properties {URL:aURL}	end repeatend tell
