[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/10: ui: Use 'terminal-columns'.
From: |
Ludovic Courtès |
Subject: |
08/10: ui: Use 'terminal-columns'. |
Date: |
Thu, 14 Apr 2016 22:32:45 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 9703fef4152622fe241d28c82542a3a5a09dec1b
Author: Ludovic Courtès <address@hidden>
Date: Thu Apr 14 23:44:18 2016 +0200
ui: Use 'terminal-columns'.
* guix/ui.scm (%text-width): Default to (terminal-columns).
---
guix/ui.scm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index 391af9a..04ac437 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'
- branch master updated (85c7e8e -> b0a6a97), Ludovic Courtès, 2016/04/14
- 04/10: download: Send an ANSI erase-in-line sequence in addition to CR., Ludovic Courtès, 2016/04/14
- 02/10: gnu-maintenance: Recognize source tarball with "-src" in their name., Ludovic Courtès, 2016/04/14
- 09/10: guix download: Honor the number of columns of the terminal., Ludovic Courtès, 2016/04/14
- 08/10: ui: Use 'terminal-columns'.,
Ludovic Courtès <=
- 05/10: download: Add 'current-terminal-columns' parameter., Ludovic Courtès, 2016/04/14
- 10/10: substitute: Honor the number of columns of the client terminal., Ludovic Courtès, 2016/04/14
- 07/10: ui: 'package->recutils' accurately honors the number of columns., Ludovic Courtès, 2016/04/14
- 03/10: gnu-maintenance: Move FTP directory info to 'properties' fields., Ludovic Courtès, 2016/04/14
- 06/10: syscalls: Add TIOCGWINSZ bindings., Ludovic Courtès, 2016/04/14
- 01/10: upstream: Pass a package object to updaters., Ludovic Courtès, 2016/04/14