¿Cómo abrir una URL fija + lo que hay en el portapapeles a través de un script y vincularlo a un acceso directo?

El siguiente ejemplo de AppleScript código hará lo que solicitaste:

set the clipboard to "questions/392514/i-want-to-write-a-script-to-open-a-fixed-url-whats-in-the-clipboard-ex-open"

set myURL to "https://apple.stackexchange.com/" & (the clipboard)

tell application "Safari" to ¬
    tell its first window to ¬
        set its current tab to ¬
            (make new tab with properties {URL:myURL})

Si ejecutas el ejemplo de AppleScript código, tal como está, se abrirá en tu pregunta.

La primera línea de código es solo para propósitos de prueba al igual que la parte "https://apple.stackexchange.com/" de myURL. Cámbialo por lo que desees y comenta o elimina la primera línea para usarlo normalmente.

Para incorporar algo más robusto que tenga en cuenta el estado actual de Safari, el siguiente ejemplo de AppleScript código maneja los diferentes escenarios típicos:

set the clipboard to "questions/392514/i-want-to-write-a-script-to-open-a-fixed-url-whats-in-the-clipboard-ex-open"

set myURL to "https://apple.stackexchange.com/" & (the clipboard)

tell application "Safari"
    activate
    if (count documents) is equal to 0 then
        make new document
        repeat until exists its first window
            delay 0.01
        end repeat
        set URL of its current tab of its first window to myURL
    else
        set firstTabURL to URL of its first tab of its first window
        if {"favorites://", "topsites://", missing value} contains firstTabURL then
            set URL of its current tab of its first window to myURL
        else
            tell its first window to ¬
                set its current tab to ¬
                    (make new tab with properties {URL:myURL})
        end if
    end if

Nuevamente, la primera línea de código es solo para propósitos de prueba al igual que la parte "https://apple.stackexchange.com/" de myURL. Cámbialo por lo que desees y comenta o elimina la primera línea para usarlo normalmente.

Nota: El ejemplo de AppleScript código fue probado en macOS High Sierra.

_{Nota: El <em>ejemplo</em> de <strong>AppleScript</strong> <em>código</em> es solo eso y no contiene ningún manejo de <em>errores</em> como podría ser apropiado. La responsabilidad recae en el usuario de agregar cualquier manejo de <em>errores</em> que sea apropiado, necesario o deseado. Echa un vistazo a la <a href="https://developer.apple.com/library/archive/documentation/AppleScript/Conceptual/AppleScriptLangGuide/reference/ASLR_control_statements.html#//apple_ref/doc/uid/TP40000983-CH6g-129232" rel="nofollow noreferrer"><strong>sentencia</strong></a> <em>try</em> y la <a href="https://developer.apple.com/library/archive/documentation/AppleScript/Conceptual/AppleScriptLangGuide/reference/ASLR_control_statements.html#//apple_ref/doc/uid/TP40000983-CH6g-129657" rel="nofollow noreferrer"><strong>sentencia</strong></a> de <em>error</em> en la <a href="https://developer.apple.com/library/archive/documentation/AppleScript/Conceptual/AppleScriptLangGuide/introduction/ASLR_intro.html" rel="nofollow noreferrer"><strong>Guía de lenguaje AppleScript</strong></a>. Consulta también, <a href="https://developer.apple.com/library/archive/documentation/AppleScript/Conceptual/AppleScriptLangGuide/reference/ASLR_error_xmpls.html#//apple_ref/doc/uid/TP40000983-CH221-SW1" rel="nofollow noreferrer"><strong>Trabajar con Errores</strong></a>. Además, el uso del comando <a href="https://developer.apple.com/library/archive/documentation/AppleScript/Conceptual/AppleScriptLangGuide/reference/ASLR_cmds.html#//apple_ref/doc/uid/TP40000983-CH216-SW10" rel="nofollow noreferrer"><strong>delay</strong></a> puede ser necesario entre eventos cuando sea apropiado, por ejemplo, <code>delay 0.5</code>, con el <em>valor</em> del <em>delay</em> ajustado apropiadamente.}

Este truco también funciona.

Vincúlalo a un atajo de teclado usando una de estas respuestas:

• ¿Cómo asigno un atajo de teclado a un AppleScript que escribí?

  tell application "Safari" tell window 1 to make new tab open location "site.com" end tell

  delay 0.5

  tell application "System Events" delay 0.5 keystroke "l" using command down key code 124 -- tecla derecha, ya que la URL ya está seleccionada keystroke "v" using command down delay 1 key code 36 -- enter. Pero ten cuidado, también puede "entrar" en cualquier ventana emergente que aparezca. end tell

Terminé yendo con esto.

set this_text to the clipboard   
set theURL to "[url]http://www.site.com/[/url]" & this_text

tell application "Safari"    
   activate    
   if (count documents) is 0 then make new document    
   tell window 1
       set tabTest to URL of tab 1    
       try
           tabTest -- arroja un error si la ventana no tiene pestañas   
           set current tab to (make new tab with properties{URL:theURL})    
       on error    
           set URL of tab 1 to theURL    
       end try    
   end tell

end tell