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