blob: 66901ff8f568ecfbe11184a09c2362d07fe9eb23 (
plain)
1
2
3
4
5
6
7
8
9
|
(define-module (vulgar info)
:use-module (calp 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))))
|