¿Puedo utilizar AppleScript para pegar un clip de texto web anexado con atribución de fuente y un timestamp, manteniendo vínculos incrustados?

Novato aquí, así que por favor, hágamelo saber si debo de aclarar o de otra manera mejorar mi pregunta. He buscado varias veces con diferentes palabras clave y no han sido capaces de encontrar una solución a mi problema, o hacer que los que yo esperaba que fuera una solución de trabajo para mí.

Quiero crear una secuencia de comandos de AppleScript que cuando se activa me va a permitir pegar un texto web clip anexa con la atribución de fuentes y una marca de tiempo, sin perder los enlaces dentro del texto seleccionado.

Aquí está una captura de pantalla de lo que quiero lograr:

No saber mucho de nada de programación, yo era capaz de improvisar la siguiente secuencia de comandos de AppleScript después de unos días de búsqueda en internet.

-- clear the clipboard
tell application "Finder"
    set the clipboard to " "
    delay 0.1
end tell

-- copy selected text
tell application "Safari"
    activate
    tell application "System Events"
        tell process "Safari"
            keystroke "c" using {command down}
            delay 0.1
        end tell
    end tell
end tell

-- open and paste web clip into specified TextEdit file 
tell application "TextEdit"
    activate
    open "Macintosh HD:Users:Web:Documents:Web Text Clips:Web_Text_Clips.rtf"
    delay 0.2
    tell application "System Events"
        tell process "TextEdit"
            keystroke "v" using {command down}
            delay 0.1
        end tell
    end tell
end tell

-- get, format and copy source info and timestamp 
tell application "Safari"
    activate
    set theLongDate to current date
    set theWindowName to the name of the front window
    set theURL to the URL of the front document
    set writeString to "- - - - - " & return & "From: " & theURL & return & "Page Title: " & theWindowName & return & "Date: " & theLongDate
    set the clipboard to writeString
end tell

-- paste source info and timestamp into predefined position of the specified TextEdit file 
tell application "TextEdit"
    activate
    tell application "System Events"
        tell process "TextEdit"
            keystroke (ASCII character 31) using command down
            keystroke return
            keystroke return
            keystroke "v" using {command down}
            delay 0.1
        end tell
    end tell
end tell

-- copy content of specified TextEdit file 
tell application "TextEdit"
    activate
    tell application "System Events"
        tell process "TextEdit"
            keystroke "a" using {command down}
            keystroke "c" using {command down}
            delay 0.1
        end tell
    end tell
end tell

-- delete content of specified TextEdit file 
tell application "TextEdit"
    activate
    tell application "System Events"
        tell process "TextEdit"
            keystroke "a" using {command down}
            keystroke "x" using {command down}
            delay 0.1
        end tell
    end tell
end tell

-- save specified TextEdit file and quit TextEdit
tell application "TextEdit"
    save "Macintosh HD:Users:Web:Documents:Web Text Clips:Web_Text_Clips.rtf"
    quit
end tell

Me vi obligada a esta solución, ya que cuando he utilizado el set comando de los enlaces integrados obtuvo de los archivos de la web seleccionada texto.

Mientras que este script no funciona, es bastante engorroso y lento. He intentado todo tipo de cosas diferentes, incluyendo algunos script de shell de comandos, pero hasta ahora nada ha funcionado.

Alguien me puede ayudar en la creación de una forma más elegante y más rápido secuencia de comandos que todavía mantiene los enlaces integrados en la web seleccionada texto?

Estoy corriendo macOS Sierra 10.12.6.