me
/
guix
Archived
1
0
Fork 0
Code

ui: Use 'terminal-columns'. 

* guix/ui.scm (%text-width): Default to (terminal-columns).
master
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 serialization)
#:use-module ((guix build utils) #:select (mkdir-p)) #:use-module ((guix build utils) #:select (mkdir-p))
#:use-module ((guix licenses) #:select (license? license-name)) #:use-module ((guix licenses) #:select (license? license-name))
#:use-module ((guix build syscalls) #:select (terminal-columns))
#:use-module (gnu system file-systems) #:use-module (gnu system file-systems)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-11) #: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 (define %text-width
(make-parameter (or (and=> (getenv "WIDTH") string->number) (make-parameter (terminal-columns)))
80)))
(set! (@@ (texinfo plain-text) wrap*) (set! (@@ (texinfo plain-text) wrap*)
;; XXX: Monkey patch this private procedure to let 'package->recutils' ;; XXX: Monkey patch this private procedure to let 'package->recutils'