[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#70132] [PATCH 09/11] ui: Delay use of (guix build syscalls).
From: |
Ludovic Courtès |
Subject: |
[bug#70132] [PATCH 09/11] ui: Delay use of (guix build syscalls). |
Date: |
Mon, 1 Apr 2024 22:25:21 +0200 |
This ensures (guix build syscalls) is loaded only when needed.
* guix/ui.scm (%text-width): Unconditionally alias ‘*line-width*’.
Remove initialization.
<top level>: Remove code for Guile < 2.2.7.
(package->recutils): Change default #:width to (terminal-columns).
Change-Id: I990a1b5b0f20a6243e47e314d1d3d4f8298b7151
---
guix/ui.scm | 22 ++++------------------
1 file changed, 4 insertions(+), 18 deletions(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index 34ff210930..d82fa533cc 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -1473,23 +1473,9 @@ (define* (fill-paragraph str width #:optional (column 0))
;;;
(define %text-width
- ;; '*line-width*' was introduced in Guile 2.2.7/3.0.1. On older versions of
- ;; Guile, monkey-patch 'wrap*' below.
- (if (defined? '*line-width*)
- (let ((parameter (fluid->parameter *line-width*)))
- (parameter (terminal-columns))
- parameter)
- (make-parameter (terminal-columns))))
-
-(unless (defined? '*line-width*) ;Guile < 2.2.7
- (set! (@@ (texinfo plain-text) wrap*)
- ;; XXX: Monkey patch this private procedure to let 'package->recutils'
- ;; parameterize the fill of description field correctly.
- (lambda strings
- (let ((indent (fluid-ref (@@ (texinfo plain-text) *indent*))))
- (fill-string (string-concatenate strings)
- #:line-width (%text-width) #:initial-indent indent
- #:subsequent-indent indent)))))
+ ;; '*line-width*' was introduced in Guile 2.2.7/3.0.1. Keep this alias for
+ ;; backward-compatibility and for convenience.
+ (fluid->parameter *line-width*))
(define (texi->plain-text str)
"Return a plain-text representation of texinfo fragment STR."
@@ -1535,7 +1521,7 @@ (define (string->recutils str)
'()
str)))
-(define* (package->recutils p port #:optional (width (%text-width))
+(define* (package->recutils p port #:optional (width (terminal-columns))
#:key
(hyperlinks? (supports-hyperlinks? port))
(extra-fields '())
--
2.41.0
- [bug#70132] [PATCH 01/11] channels: Use SRFI-71 instead of SRFI-11., (continued)
- [bug#70132] [PATCH 01/11] channels: Use SRFI-71 instead of SRFI-11., Ludovic Courtès, 2024/04/01
- [bug#70132] [PATCH 04/11] git: Add ‘tag->commit’ and use it in (guix channels)., Ludovic Courtès, 2024/04/01
- [bug#70132] [PATCH 05/11] channels: Autoload (git …) modules., Ludovic Courtès, 2024/04/01
- [bug#70132] [PATCH 02/11] git: Add ‘repository-info’ and use it in (guix channels)., Ludovic Courtès, 2024/04/01
- [bug#70132] [PATCH 06/11] guix system: Autoload some more., Ludovic Courtès, 2024/04/01
- [bug#70132] [PATCH 10/11] Autoload (guix build syscalls)., Ludovic Courtès, 2024/04/01
- [bug#70132] [PATCH 11/11] Autoload (gcrypt hash)., Ludovic Courtès, 2024/04/01
- [bug#70132] [PATCH 08/11] guix: Delay loading of (gnutls)., Ludovic Courtès, 2024/04/01
- [bug#70132] [PATCH 09/11] ui: Delay use of (guix build syscalls).,
Ludovic Courtès <=
- [bug#70132] [PATCH 07/11] utils: Don’t re-export ‘call-with-temporary-output-file’., Ludovic Courtès, 2024/04/01
- bug#70132: [PATCH 00/11] Improve startup time and memory footprint for short-lived commands, Ludovic Courtès, 2024/04/15
- Message not available