Hi Community.
I came to an Idea of a “WayBack Machine” inside of devonthink.
You can get use out of it if you wanna see a Daterange from a specific Document.
Mostly i wanna review Ideas from specific Dates.
The idea behind is, if you go deep into a Thread, you will mostly import Files that a similar, but not always shown in the devonthink review Window.
If you select a File inside devonthink you can start to review the Daterange from that selected document.
e.g. 5 Days in the Future and 5 Days in the Past.
You can select between creation date, addition date and modification date .
Mostly you can fall with this into the details you imported or changed at that time.
That maybe helps you to Remind something.
Hopefully that pictures gets uploaded…
This Example shows only the additionDate from a previous selected E-Mail.
The AppleScript for that is here:
try
tell application “DEVONthink 3”choose from list {"creation date", "addition date", "modification date"} with title "Type Of shift" OK button name "Type" cancel button name "cancel" default items {"addition date"} set specifiedDateRange to item 1 of the result as string set specifiedStringSearch to "" choose from list {"0", "1", "2", "3", "4", "5"} with title "Days Shift" OK button name "Shift now" cancel button name "cancel" default items {"1"} set daysToCalc to item 1 of the result as integer activate set this_selection to the selection if this_selection is {} then error "Please select some contents." set theDate to 0 if specifiedDateRange = "creation date" then set theDate to (creation date of item 1 of this_selection) set specifiedStringSearch to "creationDate" end if if specifiedDateRange = "addition date" then set theDate to (addition date of item 1 of this_selection) set specifiedStringSearch to "additionDate" end if if specifiedDateRange is "modification date" then set theDate to (modification date of item 1 of this_selection) set specifiedStringSearch to "modificationDate" end if set myNewDateStart to theDate - (daysToCalc * days) set myNewDateEnd to theDate + (daysToCalc * days) set theMonthStart to ((month in myNewDateStart) as integer) as string set theDayStart to the day in myNewDateStart as string set theYearStart to the year in myNewDateStart as string set theMonthEnd to ((month in myNewDateEnd) as integer) as string set theDayEnd to the day in myNewDateEnd as string set theYearEnd to the year in myNewDateEnd as string --log theDate & theDayStart & theMonthStart & theYearStart set search query of viewer window 1 to (specifiedStringSearch & ">=" & theYearStart & "-" & theMonthStart & "-" & theDayStart & " 00:00:00 +0200 " & specifiedStringSearch & "<=" & theYearEnd & "-" & theMonthEnd & "-" & theDayEnd & " 23:59:59 +0200")
end tell
end try