diff options
-rw-r--r-- | scripts/guix-build-coordinator-agent.in | 7 | ||||
-rw-r--r-- | scripts/guix-build-coordinator.in | 7 |
2 files changed, 14 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index f75aaca..c863e9e 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -133,6 +133,13 @@ (setvbuf (current-output-port) 'line) (setvbuf (current-error-port) 'line) +(let ((columns (string->number (or (getenv "COLUMNS") "")))) + (setenv "COLUMNS" + (number->string + (if columns + (max 256 columns) + 256)))) + (let ((opts (parse-options %options %option-defaults (cdr (program-arguments))))) diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index c5c97fd..9760968 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -25,6 +25,13 @@ (setvbuf (current-output-port) 'line) (setvbuf (current-error-port) 'line) +(let ((columns (string->number (or (getenv "COLUMNS") "")))) + (setenv "COLUMNS" + (number->string + (if columns + (max 256 columns) + 256)))) + (use-modules (srfi srfi-1) (srfi srfi-19) (srfi srfi-37) |