diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-04-14 23:44:18 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-04-15 00:32:18 +0200 |
| commit | 9703fef4152622fe241d28c82542a3a5a09dec1b (patch) | |
| tree | 9e305671860cd45cd715887a12f682c817e2d205 | |
| parent | 069d43a7652e5b8bf07d33fd1013bdb8465012ac (diff) | |
| download | guix-9703fef4152622fe241d28c82542a3a5a09dec1b.tar.gz guix-9703fef4152622fe241d28c82542a3a5a09dec1b.zip | |
ui: Use 'terminal-columns'.
* guix/ui.scm (%text-width): Default to (terminal-columns).
| -rw-r--r-- | guix/ui.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 391af9a99f..04ac43723e 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -34,6 +34,7 @@ #:use-module (guix serialization) #:use-module ((guix build utils) #:select (mkdir-p)) #:use-module ((guix licenses) #:select (license? license-name)) + #:use-module ((guix build syscalls) #:select (terminal-columns)) #:use-module (gnu system file-systems) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) @@ -816,8 +817,7 @@ converted to a space; sequences of more than one line break are preserved." ;;; (define %text-width - (make-parameter (or (and=> (getenv "WIDTH") string->number) - 80))) + (make-parameter (terminal-columns))) (set! (@@ (texinfo plain-text) wrap*) ;; XXX: Monkey patch this private procedure to let 'package->recutils' |