document.open();document.writeln('
');document.writeln('
tell application "Safari"');document.writeln('	set itemTitle to do JavaScript "document.title" in front document');document.writeln('	set theURL to URL of front document');document.writeln('end tell');document.writeln('');document.writeln('-- show a prompt for a link title');document.writeln('display dialog "Enter a title:" default answer theURL');document.writeln('set dialogInfo to result');document.writeln('set selectedButton to button returned of dialogInfo');document.writeln('get selectedButton');document.writeln('set theText to text returned of dialogInfo');document.writeln('');document.writeln('-- setup the link text for org mode');document.writeln('set dat to (current date) as text');document.writeln('set crlf to (ASCII character 13) & (ASCII character 10)');document.writeln('set theAppend to crlf & "*** [[" & theURL & "][" & theText & "]] " & dat');document.writeln('');document.writeln('-- setup the path and save the string to the end of the file');document.writeln('set theFilePath to "Macintosh HD:Users:greg:gtd:" & "greg.org" as string');document.writeln('set open_file to open for access theFilePath with write permission');document.writeln('write theAppend to open_file starting at eof');document.writeln('close access open_file');document.writeln('');document.writeln('-- have growl tell you that it worked');document.writeln('tell application "GrowlHelperApp"');document.writeln('	set the allNotificationsList to {"Success Notification"}');document.writeln('	set the enabledNotificationsList to {"Success Notification"}');document.writeln('	');document.writeln('	register as application ¬');document.writeln('		"Safari to Emacs Org Mode Script" all notifications allNotificationsList ¬');document.writeln('		default notifications enabledNotificationsList ¬');document.writeln('		icon of application "Safari"');document.writeln('	');document.writeln('	notify with name ¬');document.writeln('		"Success Notification" title ¬');document.writeln('		"Import Success" description "Successfully imported \\"" & itemTitle & ¬');document.writeln('		"\\" to Emacs" application name "Safari to Emacs Org Mode Script"');document.writeln('end tell');document.writeln('
');document.writeln('');document.writeln('');document.writeln('
');document.close();