The move with hotkey now works again in DT3.5 and bound to Command-Alt-Shift-M.
By placing the script with this file name, it binds automatically to the hotkey within DT3.5.
Then it pops up a selection much nice than the ‘right click move to’ which is keyboard driven and lets you pick the destination directory for the move
The script file was name:
MoveItems___Cmd-Alt-Shift-M.scpt
And the content is:
use AppleScript version “2.4” – Yosemite (10.10) or later
use scripting additions
property NoTop : false – set to true (no quotes) to guard against moving to root
try
tell application id “DNtp”
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”
if the location of theDestination is “/” then – new conditional added in 20170207.3
if NoTop then error “Cannot move to the database root”
end if
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