Cómo copiar la URL con el título de la página de Safari a Pages

La solución ideal, con la actual de la pestaña de la parte frontal de la ventana de Safari conjunto a la deseada dirección, uno, a continuación, en las Páginas de la prensa un atajo de teclado , en la cursores ubicación actual, crear un enlace al sitio web de la coincidencia de los documentos de estilo (tamaño de fuente, etc,) tener el Título y la URL de Safari objetivo pega en las Páginas del documento.

La parte superior de mi cabeza, si que es incluso factible, sería probablemente requieren el uso de AppleScriptObjC, que por desgracia es algo que no sé cómo hacer, en lugar de utilizar plain vanilla básicos de AppleScript.

Dicho esto, permítanme ofrecer un ejemplo que a mí me funciona en macOS Alta de la Sierra y Páginas 7.1.

El uso de un Automator servicio¹ con Ejecutar AppleScript acción, conjunto de Páginas, y asignar un método abreviado de teclado en Preferencias del Sistema > Teclado > accesos directos > Servicios, el ejemplo de AppleScript de código, se muestra más abajo, se crea un enlace al sitio web en su propia línea directamente después de la línea del cursor cuando el atajo de teclado es presionado.

Con este código, es necesario hacerlo de esta manera; sin embargo, uno puede cortar y pegar donde desee en el documento y quitar la extra de línea agrega el documento. No es la solución ideal, pero no hacer el trabajo con la menor cantidad de molestias mientras usa este método en particular.

• En Automator, crear un nuevo Servicio¹, configuración: Servicio recibe [opiniones] en[Páginas]
  • ¹ En macOS Mojave, una de Automator servicio que ahora se llama una Acción Rápida.
• Añadir un Ejecutar AppleScript acción, reemplazando el código por defecto con el ejemplo de AppleScript de código, se muestra más abajo.
• Guardar el Automator servicio como, por ejemplo,: Añadir Safari Enlace a las Páginas
• En Preferencias del Sistema > Teclado > accesos directos > Servicios > por ejemplo, Agregar Safari Enlace a las Páginas, asignar un atajo de teclado, por ejemplo,: ^⌘L(Control-Comando-L)
  • Nota: yo quería que el menor número de teclas a pulsar y algo cercano a la predeterminada ⌘K, y ^⌘L era. También no paso en cualquier otro claves por defecto de las Páginas.
• En las Páginas, con un documento abierto, presione ^⌘L para crear el sitio web de enlace de la pestaña actual de la primera Safari ventana.

Con un poco de práctica, los siguientes pasos se convertirá en una segunda naturaleza:

• Seleccione el destino de la página web en Safari, dejar la primera Safari ventana.
• En las Páginas, con un documento abierto, presione:
  • ^⌘L, y esperar hasta que Agregar Vínculo de diálogo emergente desaparece.
  • ⌘X
  • eliminar _{(Elimina la línea agregada.)}
  • Establecer el cursor donde desea que el sitio web de enlace insertado.
  • ⌘C
• Esto sólo debe tomar, pero un par de segundos en total.

Ejemplo de AppleScript código:

if not running of application "Safari" then return

tell application "Safari" to set |Title & URL| to {name, URL} of current tab of front window
delay 0.1

set the clipboard to first item of |Title & URL| -- Title of front Safari document.
delay 0.1

tell application "Pages"
    activate
    delay 0.1
    if name of front window is in {"Choose a Template", ""} then return
end tell

tell application "System Events"
    key code 124 using {command down} -- Right Arrow Key - Send cursor to end of line.
    delay 0.1
    key code 36 -- Enter Key - Send cursor to beginning of new line.
    delay 0.1
    keystroke "v" using {option down, shift down, command down} -- Paste and Match Style. (Title of front Safari document.)
    delay 0.1
    key code 123 using {shift down, command down} -- Left Arrow Key - Highlight pasted Title.
    delay 0.1
    tell current application to set the clipboard to second item of |Title & URL| -- URL of front Safari document.
    delay 0.1
    keystroke "k" using {command down} -- Pages > Format > Add Link > Webpage -- (When some text is highlighted.)
    delay 0.1
    keystroke "v" using {command down} -- Paste (URL of front Safari document.)
    delay 0.1
    key code 36 -- Enter Key - Needed to set pasted URL, otherwise it stays as the default URL.
    delay 0.1
    key code 53 -- Escape Key - Dismiss the Add Link pop up dialog box.
end tell

set the clipboard to ""

• Nota: El ejemplo de AppleScript código hace uso del Portapapeles con el fin de utilizar Pegar con el mismo Estilo en las Páginas del documento y, a continuación, borra el Portapapeles. Tenga esto en cuenta a fin de no perder algo que está ahí y en ningún otro lugar, si es aplicable. Además, si la longitud de Título excede la longitud de la línea de pegarse a, sólo la última línea de la pega Título será resaltado cuando el enlace del sitio web que se ha creado. Este es uno de los inconvenientes de utilizar sólo plain vanilla básicos de AppleScript versos AppleScriptObjC.

Nota: El ejemplo de AppleScript código es sólo eso y sans, if not running of application "Safari" then return y if name of front window is in {"Choose a Template", ""} then return, no contiene ningún tipo de adicional de control de error como puede ser apropiado. La responsabilidad recae sobre el usuario para agregar cualquier error de manipulación como puede ser apropiado, necesitaba o quería. Echa un vistazo al tratar de instrucción y de error de instrucción en la Guía de Lenguaje de AppleScript. Véase también el Trabajo con los Errores.

Usted también puede encontrar que el valor de la demora de comandos, en algunos casos, puede ser necesario ajustar para el uso en su sistema, ajuste de la/si es necesario.