GPopZach

#!/usr/bin/perl

# Emacs starter for Emacs mac port

# Thanks to Aquamacs Project and David Reitter

my $args = "";
my $tmpfiles = "";

for my $f (@ARGV) {

GPopZach

-- Export to Devonthink without extra OCR within Devonthink (Script written by Benjamin Zeiss)
on run argv
    if (count of argv) is greater than 0 then
		repeat with theItem in argv
			tell application id "com.devon-technologies.thinkpro2" to launch
			try
				set thePath to theItem as text
				tell application id "com.devon-technologies.thinkpro2"
					set theRecord to import thePath to incoming group
				end tell

GPopZach

on write_to_file(this_data, target_file, append_data)
	try
		set the target_file to the target_file as string
		set the open_target_file to open for access file target_file with write permission
		if append_data is false then set eof of the open_target_file to 0
		write this_data to the open_target_file starting at eof
		close access the open_target_file
		return true
	on error
		try