bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 12:05:19 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: network: Add step for substitute availability.

Browse source 
Notifies the user if substitutes are not available to
let them know they might have to build a lot of software.

* gnu/installer/newt/network.scm
(check-substitute-availability): Step for checking if substitutes are available.
(run-network-page): Add the step.

Change-Id: Ia7f54b7a5b70b371240b9e732c7eff078d2c2184
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Rutherther 2025-10-14 22:23:04 +02:00 • committed by Ludovic Courtès
parent 0b35df4c8b
commit 9ea2174ba8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 35 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
gnu/installer/newt/network.scm
View file

@ -165,6 +165,36 @@ Internet. The install process requires Internet access. \
Do you want to continue anyway?"))
((2) (abort-to-prompt 'installer-step 'abort))))))
(define (check-substitute-availability)
"Check that at least one of the Guix substitute servers is available."
(define (substitutes-available?)
(common-urls-alive?
(list
"https://bordeaux.guix.gnu.org/nix-cache-info"
"https://ci.guix.gnu.org/nix-cache-info")))
(let* ((full-value 5))
(run-scale-page
#:title (G_ "Checking substitutes")
#:info-text (G_ "Checking if Guix substitutes are available...")
#:scale-full-value full-value
#:scale-update-proc
(lambda (value)
(sleep 1)
(if (substitutes-available?)
full-value
(+ value 1))))
(unless (substitutes-available?)
(case (choice-window
(G_ "Substitute availability")
(G_ "Continue")
(G_ "Try again?")
(G_ "
None of the Guix substitute servers are available.
You can proceed with the install, but you will
have to build most of the packages you install locally."))
((2) (abort-to-prompt 'installer-step 'abort))))))
(define (run-network-page)
"Run a page to allow the user to configure connman so that it can access the
Internet."
@ -202,7 +232,11 @@ Internet."
(installer-step
(id 'wait-online)
(compute (lambda _
(wait-service-online))))))
(wait-service-online))))
(installer-step
(id 'check-substitutes)
(compute (lambda _
(check-substitute-availability))))))
(run-installer-steps
#:steps network-steps
#:rewind-strategy 'start))