Changeset 15258 in project

Timestamp:

07/25/09 20:12:30 (12 years ago)

Author:

sjamaan

Message:

Make the script warn only once when the battery drops below the threshold.
Only start warning again if the battery has been charged up again.

File:

• wiki/wmiirc snippets (modified) (1 diff)

wiki/wmiirc snippets

@@ -54 +54 @@
 
 <enscript highlight=scheme>
-(let loop ()
-   (let ((charge (get-charge)))
-     (wmii:write-tab
+(let ((warned? #f))
+  (let loop ()
+    (let ((charge (get-charge)))
+      (wmii:write-tab
        "rbar" "status"
        (conc charge "% | " (seconds->string (current-seconds))))
-     (when (<= charge 5)
-       (process-run "xmessage -center 'Low battery power!'")))
-     (thread-sleep! 1)
-     (loop))
+      (when (and (<= charge 5) (not warned?))
+        (set! warned? #t)
+        (process-run "xmessage -center 'Low battery power!'"))
+      (when (and warned? (> charge 5))
+        (set! warned #f)))
+    (thread-sleep! 1)
+    (loop)))
 </enscript>