guix system: Autoload some more.

* guix/scripts/system.scm: Autoload more modules.

Change-Id: I665857109bbfd1e3755135daacc01affcb3eb2eb
This commit is contained in:
Ludovic Courtès 2024-04-01 00:02:51 +02:00
parent 276e658943
commit 6dc238f261
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014-2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014-2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017, 2018 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2016, 2017, 2018 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
@ -37,7 +37,7 @@ (define-module (guix scripts system)
#:autoload (guix store database) #:autoload (guix store database)
(register-valid-path store-database-file call-with-database) (register-valid-path store-database-file call-with-database)
#:autoload (guix build store-copy) (copy-store-item) #:autoload (guix build store-copy) (copy-store-item)
#:use-module (guix describe) #:autoload (guix describe) (current-profile)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix derivations) #:use-module (guix derivations)
#:use-module (guix diagnostics) #:use-module (guix diagnostics)
@ -47,7 +47,10 @@ (define-module (guix scripts system)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix profiles) #:use-module (guix profiles)
#:use-module (guix scripts) #:use-module (guix scripts)
#:use-module (guix channels) #:autoload (guix channels) (channel-name
channel-url
channel-branch
channel-commit)
#:use-module (guix scripts build) #:use-module (guix scripts build)
#:autoload (guix scripts package) (delete-generations #:autoload (guix scripts package) (delete-generations
delete-matching-generations delete-matching-generations
@ -57,7 +60,8 @@ (define-module (guix scripts system)
graph-backend-name lookup-backend) graph-backend-name lookup-backend)
#:use-module (guix scripts system reconfigure) #:use-module (guix scripts system reconfigure)
#:use-module (guix build utils) #:use-module (guix build utils)
#:use-module (guix progress) #:autoload (guix progress) (progress-reporter/bar
call-with-progress-reporter)
#:use-module ((guix docker) #:select (%docker-image-max-layers)) #:use-module ((guix docker) #:select (%docker-image-max-layers))
#:use-module (gnu build image) #:use-module (gnu build image)
#:use-module (gnu build install) #:use-module (gnu build install)