This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* | |
=============================================================================== | |
Insert Dynamic Handler Description | |
=============================================================================== | |
Version: 1.0 Updated: 05/16/19 19:31:26 CST | |
By: Kevin Funderburg | |
PURPOSE: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* | |
=============================================================================== | |
Monthly Cleanup | |
=============================================================================== | |
Version: 1.10 Updated: 05/15/19 21:48:10 CST | |
By: Kevin Funderburg | |
PURPOSE: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
on run | |
set strLinkHTML to "" | |
tell application "Safari" | |
tell front window | |
tell current tab | |
set strNameTabUrl to URL | |
set lstNameTab to name | |
end tell | |
end tell |
NewerOlder