Réduire les autres fenêtres d'une application

Cela ne fonctionne pas avec Aperçu ou d'autres applications qui ne prennent pas en charge 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

Je ne sais pas comment obtenir la fenêtre focalisée ou les fenêtres cachées avec les événements système. La fenêtre focalisée n'est pas la fenêtre 1 ou AXMain ou AXFocused. Mettre AXMinimized à true n'a pas fonctionné avec Tweetbot non plus.

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

Il existe de nombreuses façons de attribuer des raccourcis aux scripts mais les raccourcis pour les services Automator ne fonctionnent pas de manière fiable dans 10.7 ou 10.8.