ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ui: Use 'terminal-columns'.

Browse source 
* guix/ui.scm (%text-width): Default to (terminal-columns).
This commit is contained in:
Ludovic Courtès 2016-04-14 23:44:18 +02:00
parent 069d43a765
commit 9703fef415
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/ui.scm
View file

@ -34,6 +34,7 @@ (define-module (guix ui)
#: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 @@ (define (maybe-break chr result)
;;;
(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'