diff options
| author | Janneke Nieuwenhuizen <janneke@gnu.org> | 2024-11-25 16:17:33 +0100 |
|---|---|---|
| committer | Janneke Nieuwenhuizen <janneke@gnu.org> | 2024-12-03 08:26:03 +0100 |
| commit | 5cb84f2013c5b1e48a7d0e617032266f1e6059e2 (patch) | |
| tree | 86c752e8ca1ee8144c82afb7894cb5d90916cf98 /guix/scripts/system.scm | |
| parent | 2c700af42cbb17859a7d80807fef2000cab7f8ad (diff) | |
system: Add "installer" sub-command.
* guix/scripts/system/installer.scm: New file.
* Makefile.am (MODULES)[ENABLE_INSTALLER]: Register it.
(MODULES_NOT_COMPILED)[!ENABLE_INSTALLER]: Likewise.
* guix/scripts/system.scm (show-help): Add help for "installer" sub-command.
(actions): Register "installer".
(guix-system): Invoke `guix-system-installer' sub-command.
* doc/guix.texi (Invoking guix system): Document it.
* gnu/installer.scm (run-installer): Remove "./pre-inst env".
Change-Id: I5a05b941c060682c17d45d871df3cf34e3f8643a
Diffstat (limited to 'guix/scripts/system.scm')
| -rw-r--r-- | guix/scripts/system.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 7989b183ad..dd34f6cd15 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -56,6 +56,7 @@ delete-matching-generations list-installed) #:autoload (guix scripts pull) (channel-commit-hyperlink) + #:autoload (guix scripts system installer) (guix-system-installer) #:autoload (guix graph) (export-graph node-type graph-backend-name lookup-backend) #:use-module (guix scripts system reconfigure) @@ -997,6 +998,8 @@ Some ACTIONS support additional ARGS.\n")) (display (G_ "\ init initialize a root file system to run GNU\n")) (display (G_ "\ + installer run the graphical installer\n")) + (display (G_ "\ extension-graph emit the service extension graph in Dot format\n")) (display (G_ "\ shepherd-graph emit the graph of shepherd services in Dot format\n")) @@ -1229,7 +1232,7 @@ Some ACTIONS support additional ARGS.\n")) "list-generations" "describe" "delete-generations" "roll-back" "switch-generation" "search" "edit" - "docker-image")) + "docker-image" "installer")) (define (process-action action args opts) "Process ACTION, a sub-command, with the arguments are listed in ARGS. @@ -1441,6 +1444,8 @@ argument list and OPTS is the option alist." ;; Parse sub-command ARG and augment RESULT accordingly. (cond ((assoc-ref result 'action) (alist-cons 'argument arg result)) + ((equal? arg "installer") + (apply guix-system-installer args)) ((member arg actions) (let ((action (string->symbol arg))) (alist-cons 'action action result))) |