Seeking suggestions as to how to make OF Clippings shortcut work from DEVONthink

I must be doing something wrong, but have not been able to figure it out.

Would like to be able to clip from within DEVONthink using the ubiquitous OF3 clipping shortcut. DEVONthink has a script to create an OF task with a link (in the notes) to DT selected item, but I would rather use the universal Clippings shortcut and the quick entry interface that it pulls up.

The OF3 clippings shortcut is setup already in Keyboard preferences and works in most of the applications (Safari, mail, text selections and others). However, it does not work in DEVONthink… My current keyboard shortcut is cmd-opt-O. In DEVONthink this keyboard acts as if I just pressed cmd-O. I changed the clipping shortcut (reluctantly) but even it just does not work in DEVOnthink. May be it is not designed to.

If you have any ideas to address this that would be great. Thank you!

It appears that the OF clipper may not work.

So went looking for scripts and found two that I combined and created this here. Sharing in case this is useful to anybody else.

I plan to use this script via a Keyboard Maestro trigger.

Improvements and criticism welcome. :)


# Main script sourced from https://discourse.devontechnologies.com/t/omnifocus-quick-entry-task-with-link-to-record/16985

try
	tell application "DEVONthink 3"
		
		set theDatabase to current database
		set theSelection to selection
		if theSelection is {} then error "Please select something"
		
		set theURL to the reference URL of item 1 of theSelection
		set theName to the name of item 1 of theSelection
		
	end tell
	
	tell application "OmniFocus"
		tell quick entry
			open
			
			set NewTask to make new inbox task
			set the note of NewTask to theURL
			set the name of NewTask to theName
			
			# activate
			open
			
		end tell
	end tell
end try

# this portion to display the link in notes and to select the task name in the interface
# this inspired from https://discourse-test.omnigroup.com/t/how-to-get-focus-on-quick-entry-when-using-applescript-quick-entry/30330/4

delay 1

tell application "System Events"
	# https://eastmanreference.com/complete-list-of-applescript-key-codes
	key code 125 # down arrow
	key code 39 using {command down} # 39 is apostrophe
	delay 0.2
	key code 126 # up arrow
	delay 0.2
	keystroke "a" using {command down}
	# key code 48 using {shift down} # tab
	# key code 48 using {shift down} # tab
end tell


Very nice script my friend. Saved me a lot of work! It would be nice if this will be implemented natively like it is with the Things 3 clipper

1 Like