diff options
Diffstat (limited to '')
-rw-r--r-- | module/vulgar/info.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/module/vulgar/info.scm b/module/vulgar/info.scm new file mode 100644 index 00000000..86abf0a0 --- /dev/null +++ b/module/vulgar/info.scm @@ -0,0 +1,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)))) |