[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#40130] [PATCH 3/8] ui: Add a notification build handler.
From: |
Ludovic Courtès |
Subject: |
[bug#40130] [PATCH 3/8] ui: Add a notification build handler. |
Date: |
Thu, 19 Mar 2020 12:02:47 +0100 |
* guix/ui.scm (build-notifier): New variable.
---
guix/ui.scm | 38 ++++++++++++++++++++++++++++++++++++++
1 file changed, 38 insertions(+)
diff --git a/guix/ui.scm b/guix/ui.scm
index 6f1ca9c0b2..47ada9dde2 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -93,6 +93,7 @@
string->number*
size->number
show-derivation-outputs
+ build-notifier
show-what-to-build
show-what-to-build*
show-manifest-transaction
@@ -1045,6 +1046,43 @@ check and report what is prerequisites are available for
download."
(define show-what-to-build*
(store-lift show-what-to-build))
+(define* (build-notifier #:key (dry-run? #f) (use-substitutes? #t))
+ "Return a procedure suitable for 'with-build-handler' that, when
+'build-things' is called, invokes 'show-what-to-build' to display the build
+plan. When DRY-RUN? is true, the 'with-build-handler' form returns without
+any build happening."
+ (define not-comma
+ (char-set-complement (char-set #\,)))
+
+ (define (read-derivation-from-file* item)
+ (catch 'system-error
+ (lambda ()
+ (read-derivation-from-file item))
+ (const #f)))
+
+ (lambda (continuation store things mode)
+ (define inputs
+ ;; List of derivation inputs to build. Filter out non-existent '.drv'
+ ;; files because the daemon transparently tries to substitute them.
+ (filter-map (match-lambda
+ (((? derivation-path? drv) . output)
+ (let ((drv (read-derivation-from-file* drv))
+ (outputs (string-tokenize output not-comma)))
+ (and drv (derivation-input drv outputs))))
+ ((? derivation-path? drv)
+ (and=> (read-derivation-from-file* drv)
+ derivation-input))
+ (_
+ #f))
+ things))
+
+ (show-what-to-build store inputs
+ #:dry-run? dry-run?
+ #:use-substitutes? use-substitutes?
+ #:mode mode)
+ (unless dry-run?
+ (continuation #t))))
+
(define (right-arrow port)
"Return either a string containing the 'RIGHT ARROW' character, or an ASCII
replacement if PORT is not Unicode-capable."
--
2.25.1
- [bug#40130] [PATCH 0/8] Add 'with-build-handler' and use it to improve UI feedback, Ludovic Courtès, 2020/03/19
- [bug#40130] [PATCH 1/8] syscalls: 'with-file-lock' re-grabs lock when reentering its dynamic extent., Ludovic Courtès, 2020/03/19
- [bug#40130] [PATCH 3/8] ui: Add a notification build handler.,
Ludovic Courtès <=
- [bug#40130] [PATCH 4/8] guix build: Use 'with-build-handler'., Ludovic Courtès, 2020/03/19
- [bug#40130] [PATCH 2/8] store: Add 'with-build-handler'., Ludovic Courtès, 2020/03/19
- [bug#40130] [PATCH 5/8] deploy: Use 'with-build-handler'., Ludovic Courtès, 2020/03/19
- [bug#40130] [PATCH 8/8] guix system: Use 'with-build-handler'., Ludovic Courtès, 2020/03/19
- [bug#40130] [PATCH 6/8] pack: Use 'with-build-handler'., Ludovic Courtès, 2020/03/19
- [bug#40130] [PATCH 7/8] guix package, pull: Use 'with-build-handler'., Ludovic Courtès, 2020/03/19
- bug#40130: [PATCH 0/8] Add 'with-build-handler' and use it to improve UI feedback, Ludovic Courtès, 2020/03/22