- (use-modules (ice-9 rdelim)
- (ice-9 regex)
- (ice-9 popen)
- (srfi srfi-1))
- (define (pwr-connected?)
- (let* ((pipe-pwr
- (open-input-pipe
- (string-append "upower -i"
- "/org/freedesktop/UPower/devices/line_power_ADP1")))
- (str-pwr (read-line pipe-pwr)))
- (while (not (eof-object? str-pwr))
- (display "body!\t")
- (display str-pwr)
- (newline)
- (set! str-pwr (read-line pipe-pwr)))
- (close-pipe pipe-pwr)))
- (pwr-connected?)