Minimizar otras ventanas de una aplicación

¿Es posible hacer el equivalente a "Ocultar otras aplicaciones" para Windows de la misma aplicación?

Digamos que tengo alrededor de 4 ventanas principales abiertas para Chrome y cada una tiene 10 pestañas. Me gustaría cambiar a la Ventana 3 de Chrome y ocultar las otras ventanas de Chrome (Ventana 1, 2 y 4). Básicamente, quiero presionar CMD + M en las otras "ventanas".

( esto es diferente de Minimizar/Ocultar otras aplicaciones que me permitiría cambiar a Safari y ocultar otras aplicaciones como Chrome ).

Un atajo de teclado sería increíble, pero una búsqueda rápida en Google me dice que tendré que conformarme con un applescript.

Salud.

Respuestas (1)

Esto no funciona con Preview u otras aplicaciones que no admitan AppleScript.

tell application (path to frontmost application as text)
    try
        set miniaturized of windows where visible is true and index is not 1 and miniaturizable is true to true
    end try
    try -- at least Finder
        set collapsed of windows where visible is true and index is not 1 and closeable is true to true
    end try
end tell

No sé cómo obtener la ventana enfocada o las ventanas ocultas con Eventos del sistema. La ventana enfocada no es la ventana 1 o AXMain o AXFocused. Establecer AXMinimized en verdadero tampoco funcionó con Tweetbot.

tell application "System Events" to tell (process 1 where frontmost is true)
    windows where value of attribute "AXMinimized" is false
    --repeat with w in result
    --try
    --set value of attribute "AXMinimized" of w to true
    --end try
    --end repeat
end tell

Hay muchas formas de asignar accesos directos a las secuencias de comandos , pero los accesos directos para los servicios de Automator no funcionan de manera confiable en 10.7 o 10.8.