Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Save jeredb/4311657 to your computer and use it in GitHub Desktop.
Save jeredb/4311657 to your computer and use it in GitHub Desktop.
tell application "Safari" to set recipeurl to URL of front document
tell application "Safari" to set recipetitle to name of front document
set ingredients to (do shell script "curl http://recipedistiller.com/recipe/classify/?recipeurl=" & recipeurl & " | textutil -convert txt -stdin -stdout | grep '.' | sed 's/ • DELETE//g'")
set my text item delimiters to "VIEW RECIPE"
set ingredients to text item 2 of ingredients
set my text item delimiters to "©"
set ingredients to text item 1 of ingredients
-- http://www.macosxautomation.com/applescript/sbrt/sbrt-06.html
set trim_text to tab & "•" & tab & "DELETE "
set new_ingredients to replace_chars(ingredients, trim_text, "")
set l to paragraphs of new_ingredients
tell application "OmniFocus" to tell document 1
set theproject to (first flattened folder where its name = "Recipes")
tell theproject to make new project with properties {name:recipetitle, note:recipeurl}
repeat with v in l
set theproject to (first flattened project where its name = recipetitle)
tell theproject to make new task with properties {name:v}
end repeat
end tell
on replace_chars(this_text, search_string, replacement_string)
set AppleScript's text item delimiters to the search_string
set the item_list to every text item of this_text
set AppleScript's text item delimiters to the replacement_string
set this_text to the item_list as string
set AppleScript's text item delimiters to ""
return this_text
end replace_chars
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment