Licht für EyeTV

Nicht nur ich, sondern auch viele andere ärgern sich darüber, dass der Monitor abdunkelt, während man EyeTV nicht im Vollbild-Modus schaut.

Hier eine kleine Applescript-Lösung dafür:
Dieses Skript prüft im 30-Sekunden-Takt, ob EyeTV etwas abspielt. Wenn ja, setzt es Ruhezustand des Monitors auf 180 Minuten. Wenn EyeTV nichts (mehr) abspielt, setzt es den Ruhezustand des Monitors auf 30 Minuten und beendet sich selbst.

Das Skript muss so abgespeichert werden, dass es nicht nach Ausführung beendet (StayOpen). Sonst funzt nix…

Wer etwas verändern will:

  • property idle_time : 30 < -- Nach dieser Anzahl von Sekunden prüft das Skript, ob EyeTV noch abspielt
  • set thetime to 30 < -- Monitor-Ruhezustand in Minuten, wenn EyeTV nicht abspielt
  • set thetime to 180 < -- Monitor-Ruhezustand in Minuten, wenn EyeTV abspielt

Viel Spaß damit und störungsfreies Glotzen!

Direkt im Skripteditor aufmachen


property idle_time : 30
global Abspulen

on run
    my DimEinstellen()
end run

on DimEinstellen()
    tell application „EyeTV“
        if application „EyeTV“ is not playing then
            set Abspulen to 0
        else
            set Abspulen to 1
        end if
    end tell
    if Abspulen = 0 then
        set thetime to 30
        do shell script („pmset dim “ & thetime) password ¬
            „passwort“ with administrator privileges
        tell me to quit
    else
        set thetime to 180
        do shell script („pmset dim “ & thetime) password ¬
            „passwort“ with administrator privileges
    end if
    
end DimEinstellen

on idle
    my DimEinstellen()
    return idle_time
end idle