Está bien, a partir de una publicación en SuperUser , aquí va:
Puede crear AppleScripts para cambiar a los diferentes idiomas. Si crea Servicios que no aceptan ninguna entrada y solo llama a este script, todos vivirán felices en el menú Servicios cuando los desee. De lo contrario, utilice el método de activación de AppleScript que elija.
Para cambiar a, diga, Griego, y abrir el visor de teclado cuando lo hagas, ejecuta este script:
tell application "System Events"
if exists process "Keyboard Viewer" then
display alert "running"
try
tell application "KeyboardViewer" to quit
end try
end if
end tell
tell application "Finder"
open item "System:Library:Input Methods:KeyboardViewer.app" of the startup disk
end tell
changeKeyboardLayout("Greek")
on changeKeyboardLayout(layoutName)
tell application "System Events" to tell process "SystemUIServer"
tell (1st menu bar item of menu bar 1 whose description is "text input") to {click, click (menu 1's menu item layoutName)}
end tell
end changeKeyboardLayout
Para volver al diseño de los EE. UU., matando al espectador cuando lo hagas, usa esto:
tell application "System Events"
if exists process "Keyboard Viewer" then
display alert "running"
try
tell application "KeyboardViewer" to quit
end try
end if
end tell
changeKeyboardLayout("U.S.")
on changeKeyboardLayout(layoutName)
tell application "System Events" to tell process "SystemUIServer"
tell (1st menu bar item of menu bar 1 whose description is "text input") to {click, click (menu 1's menu item layoutName)}
end tell
end changeKeyboardLayout
Sustituya los nombres de los diseños de teclado que desee en el comando changeKeyboardLayout("layout name")
.