Il seguente codice AppleScript di AppleScript può essere utilizzato in un'azione Esegui AppleScript come servizio di automazione e assegnato una scorciatoia da tastiera per agire su una parola selezionata per aprirla nel dizionario e registrarla, se non è già nel file di registro.
on run {input, parameters}
try
considering diacriticals
if first character of (input as text) is not in "abcdefghijklmnopqrstuvwxyz" then
tell current application
activate
display dialog "The selected text starts with a non-valid character." & return & return & ¬
"Make a different selection and try again." buttons {"OK"} default button 1 ¬
with title "Dictionary Look Up Logging Service"
end tell
return
end if
end considering
open location "dict://" & input
set theDictionaryHistoryFilename to "Dictionary Look Up Service History Log File.txt"
set theTargetFilename to quoted form of (POSIX path of (path to documents folder as string) & theDictionaryHistoryFilename)
set foundSelectedWord to (do shell script "grep '^" & input & "$' " & theTargetFilename & " > /dev/null; echo $?") as integer
if foundSelectedWord is greater than 0 then
do shell script "echo \"" & input & "\" >> " & theTargetFilename
end if
end try
end run
Si noti che se il file di registro è aperto quando viene eseguito il servizio, la parola aggiunta potrebbe non essere visualizzata finché non si chiude e riapre il file di registro, a seconda dell'app in cui è aperto il file di registro.