msg-cli/msg/helpers.scm

(define-module (msg helpers)
  #:use-module (ice-9 ftw)
  #:use-module (ice-9 popen)
  #:use-module (ice-9 rdelim)
  #:use-module (system foreign)
  #:export (directory-exists?
	    run-shell-command))

(define (directory-exists? path)
  (catch 'system-error
    (lambda ()
      (stat path))
    (lambda args #f)))

(define (run-shell-command command)
  (let* ((port (open-input-pipe command))
	 (str (read-line port)))
    (close-pipe port)
    str))