Kevin Funderburg kevin-funderburg

## init.coffee
# initialization file (not found)

## insert-dynamic-handler-description.applescript
(*
===============================================================================
                    Insert Dynamic Handler Description
===============================================================================

Version: 1.0                                     Updated: 05/16/19 19:31:26 CST
By: Kevin Funderburg

PURPOSE:

## monthly-cleanups.applescript
(*
===============================================================================
                                Monthly Cleanup
===============================================================================

Version: 1.10                                    Updated: 05/15/19 21:48:10 CST
By: Kevin Funderburg

PURPOSE:

## safari-duplicate-tab.applescript
tell application "Safari"
	tell front window
		set theURL to URL of current tab
		set current tab to make new tab with properties {URL:theURL}
	end tell
end tell

## mail-make-message-url.applescript
use scripting additions
tell application "Mail"
	set selectedMessages to selection
	set theMessage to item 1 of selectedMessages
	set messageid to message id of theMessage
	set urlText to "message://" & "%3c" & messageid & "%3e"
	set the clipboard to urlText
end tell

## close-document-without-saving.applescript
tell application "System Events" to set frontapp to name of first process whose frontmost is true

tell application frontapp
	tell front document
		close saving no
	end tell
end tell

## close-document-with-saving.applescript
tell application "System Events" to set frontapp to name of first process whose frontmost is true

tell application frontapp
	tell front document
		close saving yes
	end tell
end tell

## close-all-documents-without-saving.applescript
tell application "System Events" to set frontapp to name of first process whose frontmost is true

tell application frontapp to close every document without saving

## close-all-documents-with-saving.applescript
tell application "System Events" to set frontapp to name of first process whose frontmost is true

tell application frontapp to close every document with saving

## close-unsaved-documents-of-front-app.applescript
-- Note: This works in all the apps I’ve tried it in, so there may be others it doesn't

tell application "System Events" to set frontapp to name of first process whose frontmost is true

tell application frontapp
	activate
	repeat with i from (count of documents) to 1 by -1
		set thisDocument to document i
		try
			if path of (get properties of thisDocument) = missing value or name of thisDocument contains "Untitled" then
	(*
	===============================================================================
	Monthly Cleanup
	===============================================================================

	Version: 1.10 Updated: 05/15/19 21:48:10 CST
	By: Kevin Funderburg

	PURPOSE:
	tell application "Safari"
	tell front window
	set theURL to URL of current tab
	set current tab to make new tab with properties {URL:theURL}
	end tell
	end tell
	use scripting additions
	tell application "Mail"
	set selectedMessages to selection
	set theMessage to item 1 of selectedMessages
	set messageid to message id of theMessage
	set urlText to "message://" & "%3c" & messageid & "%3e"
	set the clipboard to urlText
	end tell
	tell application "System Events" to set frontapp to name of first process whose frontmost is true

	tell application frontapp
	tell front document
	close saving no
	end tell
	end tell
	tell application "System Events" to set frontapp to name of first process whose frontmost is true

	tell application frontapp to close every document without saving
	-- Note: This works in all the apps I’ve tried it in, so there may be others it doesn't

	tell application "System Events" to set frontapp to name of first process whose frontmost is true

	tell application frontapp
	activate
	repeat with i from (count of documents) to 1 by -1
	set thisDocument to document i
	try
	if path of (get properties of thisDocument) = missing value or name of thisDocument contains "Untitled" then