Minimizar el resto de las ventanas de una aplicación

Esto no funciona con vista previa o en otras aplicaciones que no soporte de 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 conseguir el centrado de la ventana o de las ventanas ocultas con los Eventos del Sistema. El centrado de la ventana no es la ventana 1 o AXMain o AXFocused. Configuración de AXMinimized a cierto no trabajo 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 maneras de asignar accesos directos a los programas, pero los accesos directos de Automator servicios no funcionan de forma fiable en 10.7 o 10.8.