Moving items bei shortcut?


Is there a way to move items without mouse/trackpad, but only by entering a shortcat which opens a window with a field, where I can enter the name of the group whereto the item should be moved?

Thanks in advance! Kind regards, Friedrich

Here is a script that I use-I believe korm created it, but my apologies to the author if someone else did. Name the script Move___Cmd-Ctrl-m and place it in your DEVONthink scripts menu (I uses the ‘Data’ folder) and call it with the command-control-m shortcut. The macro calls a HUD window where you can mouse or begin to type the desired group name to navigate.

Move the selected record(s) to a destination
that was selectected from the Group Selector panel

	tell application id "com.devon-technologies.thinkpro2"
		set theDatabase to current database
		set theSelection to selection
		if theSelection is {} then error "Please select something"
		set fromPath to (the location of item 1 of theSelection) & (the name of item 1 of theSelection)
		set fromDatabase to the name of theDatabase
		set theDestination to (display group selector "Select a Destination")
		if theDestination is {} then error "We had a problem choosing the destination"
		set toPath to the location of theDestination
		set toDatabase to the name of the database of theDestination
		repeat with thisItem in theSelection
			move record thisItem to theDestination
		end repeat
		-- Post the result to the Log
		set movedFrom to "Moved from: " & fromPath & " in " & fromDatabase
		set movedTo to " -- Moved to: " & toPath & " in " & toDatabase
		set theLogEvent to log message (movedFrom & movedTo) info "Mover Script"
	end tell
on error error_message number error_number
	if the error_number is not -128 then display alert "DEVONthink Pro" message error_message as warning
end try

Yes, I did write this, and Eric kindly added it to the Support Assistant where it can be installed from Scripts > More Scripts… > Move with Keyboard.