benwaldie

-- Find and replace a single word in an opened TextEdit document
tell application "TextEdit"
  make new document
	
	-- Add some text to the document
	set text of front document to "The quick fox jumped over the lazy dog."
	
	-- Find and replace
	set every word of front document where it = "fox" to "elephant"
end tell

benwaldie

-- Make sure a presentation is opened in Keynote. If not, notify the user and stop.
tell application "Keynote"
	if (front slideshow exists) = false then
		display alert "Unable to proceed." message "Please open a presentation in Keynote."
		return
	end if
	
	set extractBody to button returned of (display alert "Would you like to extract slide content too?" buttons {"Yes", "No"}) = "Yes"
	
	-- Target the front presentation.

benwaldie

-- Ask the user to select an app
set theApp to choose file of type "app" default location (path to applications folder)

-- Get the app name
tell application "System Events"
  set theAppName to name of theApp
	if theAppName ends with ".app" then set theAppName to text 1 thru -5 of theAppName
	
	-- Determine whether the app is a package, and notify the user if it's not
	set isPackage to (package folder of theApp)

benwaldie

-- Ask the user to enter a date.  Note, if no time is specified, then the date will default to 12:00 AM.
set theDate to text returned of (display dialog "Please enter a starting date:" default answer "8/9/1997 12:00PM" with icon note with title "Elapsed Time Calculator")

-- Coerce the entered date to an AppleScript date
set theDate to date theDate

-- Get the current date
set theCurrentDate to current date

-- Determine the number of months, years, seconds, minutes, hours, days, and weeks

benwaldie

--==============================
-- Send Keynote Presenter Notes to Evernote
-- Version 1.0.1
-- Written By: Ben Waldie <ben@automatedworkflows.com>
-- http://www.automatedworkflows.com

-- Version 1.0.0 - Initial release
-- Version 1.0.1 - Updated for Keynote 6.2 compatibility
--==============================

benwaldie

-- This property controls whether full project paths (including parent folders) are displayed
property includeFullProjectPaths : true

-- These properties control whether additional task content is displayed
property includeTaskContext : true
property includeTaskEstimatedTime : true
property includeTaskStartDate : true
property includeTaskModificationDate : true
property includeTaskCompletionDate : true
property includeTaskNotes : true

benwaldie

set theSavePath to path to desktop folder as string
tell application "Mail"
	selection
	set theMessage to item 1 of result
	set theAttachments to every mail attachment of theMessage
	repeat with anAttachment in theAttachments
		set theName to name of anAttachment
		save anAttachment in file (theSavePath & theName)
	end repeat
end tell

benwaldie

tell application "Contacts"
	set theSelection to selection
	set thePerson to item 1 of theSelection
	set theAddress to address 1 of thePerson
	set theAddressText to formatted address of theAddress
end tell

set theDate to short date string of (current date)

tell application "Pages"

benwaldie

do shell script "defaults -currentHost write ~/Library/Preferences/ByHost/com.apple.notificationcenterui doNotDisturb -boolean true"
set theDate to quoted form of (do shell script "date -u +\"%Y-%m-%d %H:%M:%S +0000\"")
do shell script "defaults -currentHost write ~/Library/Preferences/ByHost/com.apple.notificationcenterui doNotDisturbDate -date " & theDate
do shell script "killall NotificationCenter"

benwaldie

do shell script "defaults -currentHost write ~/Library/Preferences/ByHost/com.apple.notificationcenterui doNotDisturb -boolean false"
try
  do shell script "defaults -currentHost delete ~/Library/Preferences/ByHost/com.apple.notificationcenterui doNotDisturbDate"
end try
do shell script "killall NotificationCenter"