Automator – Workflow or AppleScript to Close Safari After a Period of Time

applescriptautomator

I would like to create an Automator workflow (or some similar function) that will close down Safari after a specified period of time.

For instance, I simply want to run Pandora in Safari during the night, but have it close out after 30 minutes to 1 hour, as sort of a sleep timer. I am a very new Mac user so detailed instructions would be great. I have familiarized myself with creating some simple Automator workflows, but I have no experience using AppleScript.

Best Answer

Here is the AppleScript code, which you can put in your workflow, by implementing an AppleScript item, and copy-paste the code in. The time is configurable, but you need an exact sleep time, which I can add if you could elaborate some more on the time. Here is the code via CulturedCode.

global quit_after, check_every

set quit_after to 2700
set check_every to 10
set minute to quit_after / 60

display dialog "Check is performed every " & check_every & " seconds. Things will be quit after " & minute & " minutesof system inactivity."

on reopen
    display dialog "Check is performed every " & check_every & " seconds. Things will be quit after " & minute & " minutes of system inactivity."
end reopen

on idle
    set idletime to do shell script "echo $((`ioreg -c IOHIDSystem | sed -e '/HIDIdleTime/ !{ d' -e 't' -e '}' -e 's/.* = //g' -e 'q'` / 1000000000))"
    if (idletime as integer) > quit_after then
        tell application "System Events"
            if ((name of processes) contains "Safari") then
                tell application "Safari" to quit
            end if
        end tell
    end if
    return check_every
end idle

Related Solutions

AppleScript or Automator Workflow for Bulk-Converting Powerpoint Presentations to Keynote

I couldn't figure out how to get Automator to do it, but I was able to beat AppleScript into submission. Just save the following as an Application in the AppleScript Editor, then drag the files you want to convert onto the icon. It will prompt you to choose a folder where the converted files will be placed.

on open droppedFiles
    set theDestinationFolder to (choose folder with prompt "Choose destination folder") as Unicode text
    repeat with theFile in droppedFiles
        tell application "Keynote"
            open theFile
            set theSlideshow to slideshow 1
            set theDestinationPath to theDestinationFolder & (name of theSlideshow)
            save theSlideshow in theDestinationPath
            close theSlideshow
        end tell
    end repeat
end open

(I don't really know what I'm doing with AppleScript. If there are improvements that can be made here, I'd like to know about them.)

MacOS – Automator or AppleScript Rename Workflow

Here's a script:

set thefolder to "path:to:folder" as alias
tell application "Finder"
    set filename to name of first item of folder thefolder
    set oldDels to AppleScript's text item delimiters as string
    set AppleScript's text item delimiters to "." as string
    set itemname to first text item of filename
    set AppleScript's text item delimiters to oldDels as string
    set name of thefolder to itemname
end tell

It gets the name of the first item in the folder, clips off the extension, and renames the folder.

Note that it doesn't convert to uppercase as in your example. This is less than trivial with AppleScript, but let me know if it's real important and I can give you the code.

Best Answer

Related Solutions

AppleScript or Automator Workflow for Bulk-Converting Powerpoint Presentations to Keynote

MacOS – Automator or AppleScript Rename Workflow

Related Question