futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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 @@
#: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'