(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?)