Just a thought: If this can be a property in the dictionary, perhaps many interesting things can be done.
tell application id "DNtp"
set sel to item 1 of (selection as list)
set src to source of sel
get links of src
end tell
1 Like