thanhtl/Devonthink
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add Add-selected-file-to-Calend.scpt

Browse Source
This commit is contained in:
thanhtl 2025-04-10 17:51:05 +07:00
commit 08a54cc087
1 changed files with 76 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
Add-selected-file-to-Calend.scpt Normal file
View File

@ -0,0 +1,76 @@
-- Prompt for date and time
set inputDate to text returned of (display dialog "Enter date (D/M):" default answer "")
set inputTime to text returned of (display dialog "Enter time (H-M):" default answer "")
-- Prompt for location
set locationOptions to {"18 Tran Huu Duc
My Dinh 2, Nam Tu Liem, Ha Noi, Vietnam", "2 Lang Ha
Thanh Cong, Ba Dinh, Ha Noi, Vietnam", "27 Dai Co Viet
Le Dai Hanh, Hai Ba Trung, Ha Noi, Vietnam"}
set chosenLocation to choose from list locationOptions with prompt "Select a location:" default items {"18 Tran Huu Duc
My Dinh 2, Nam Tu Liem, Ha Noi, Vietnam"}
-- Prompt for note
set noteOptions to {"TB", "PB. Thư", "PB. Hoa", "PB. Quý", "PB. Thuỷ", "PB. Dân", "PB. Hải"}
set chosenNote to choose from list noteOptions with prompt "Select a note:" default items {"TB"}
-- Parse the input date and time
set {dayStr, monthStr} to my parseDate(inputDate)
set {hourStr, minuteStr} to my parseTime(inputTime)
-- Set the year to 2025
set yearInt to 2025
-- Create the start and end date-time objects
set startDateTime to my createDate(yearInt, monthStr, dayStr, hourStr, minuteStr)
set endDateTime to my createDate(yearInt, monthStr, dayStr, (hourStr + 2), minuteStr)
-- Get the selected DEVONthink record
tell application id "DNtp"
set theRecord to content record
set theName to name of theRecord
set theURL to reference URL of theRecord
end tell
-- Extract the event name from the file name
set eventName to my extractEventName(theName)
-- Create the event in Apple Calendar
tell application "Calendar"
tell calendar "Agribank" -- Calendar name set to "Agribank"
set newEvent to make new event with properties {summary:eventName, start date:startDateTime, end date:endDateTime, location:item 1 of chosenLocation, url:theURL, description:item 1 of chosenNote}
make new display alarm at newEvent with properties {trigger interval:-1 * (24 * 60) + (20 * 60)} -- Alert 1 day before at 8 PM
end tell
end tell
-- Handlers
on parseDate(inputDate)
set {TID, text item delimiters} to {text item delimiters, "/"}
set {dayStr, monthStr} to text items of inputDate
set text item delimiters to TID
return {dayStr, monthStr}
end parseDate
on parseTime(inputTime)
set {TID, text item delimiters} to {text item delimiters, "-"}
set {hourStr, minuteStr} to text items of inputTime
set text item delimiters to TID
return {hourStr, minuteStr}
end parseTime
on createDate(yearInt, monthStr, dayStr, hourStr, minuteStr)
set theDate to current date
set year of theDate to yearInt
set month of theDate to monthStr as integer
set day of theDate to dayStr as integer
set time of theDate to (hourStr as integer) * hours + (minuteStr as integer) * minutes
return theDate
end createDate
on extractEventName(fileName)
set {TID, text item delimiters} to {text item delimiters, "_"}
set eventName to text item 3 of fileName
set text item delimiters to TID
return eventName
end extractEventName