module/vulgar/info.scm


1
2
3
4
5
6
7
8
9

(define-module (vulgar info)
  :use-module (hnh util))

(define-public (get-terminal-size)
 (let* (((rpipe . wpipe) (pipe)))
   (system (format #f "stty size > /proc/~s/fd/~s"
                   (getpid) (port->fdes wpipe)))
   (values (read rpipe)
           (read rpipe))))