From f1c2681542693caf9846c3ecbeaf73d7ec243f64 Mon Sep 17 00:00:00 2001 From: Richard Sent Date: Thu, 19 Dec 2024 00:37:52 -0500 Subject: [PATCH] =?UTF-8?q?deploy:=20Add=20=E2=80=98--expression=E2=80=99.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/scripts/deploy.scm (show-help): Add help. (%options): Add -e and --expression. (guix-deploy): Use expression and check for invalid flag combinations. Change-Id: I200c9ff0c9a8c686efff4a21cd33c10429f3c73e Signed-off-by: Ludovic Courtès --- guix/scripts/deploy.scm | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm index 4b1a603049789a0dae08ea331113c44e757f2b6a..941ee199f012ed80b2fa4b04e371ccbfcf11ba6f 100644 --- a/guix/scripts/deploy.scm +++ b/guix/scripts/deploy.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2019 David Thompson ;;; Copyright © 2019 Jakob L. Kreuze ;;; Copyright © 2020-2022 Ludovic Courtès +;;; Copyright © 2024 Richard Sent ;;; ;;; This file is part of GNU Guix. ;;; @@ -59,6 +60,9 @@ Perform the deployment specified by FILE.\n")) -V, --version display version information and exit")) (newline) (display (G_ " + -e, --expression=EXPR deploy the list of machines EXPR evaluates to")) + (newline) + (display (G_ " -x, --execute execute the following command on all the machines")) (newline) (display (G_ " @@ -74,6 +78,9 @@ Perform the deployment specified by FILE.\n")) (lambda args (show-version-and-exit "guix deploy"))) + (option '(#\e "expression") #t #f + (lambda (opt name arg result) + (alist-cons 'expression arg result))) (option '(#\n "dry-run") #f #f (lambda (opt name arg result) (alist-cons 'dry-run? #t result))) @@ -247,10 +254,16 @@ otherwise." (opts (parse-command-line args %options (list %default-options) #:argument-handler handle-argument)) (file (assq-ref opts 'file)) - (machines (and file (load-source-file file))) + (expression (assoc-ref opts 'expression)) + (machines (or (and file (load-source-file file)) + (and expression (read/eval expression)))) (dry-run? (assoc-ref opts 'dry-run?)) (execute-command? (assoc-ref opts 'execute-command?))) - (unless file + (when (and file expression) + (leave (G_ "both '--expression' and a deployment file were provided~%"))) + + (unless (or file + expression) (leave (G_ "missing deployment file argument~%"))) (when (and (pair? command) (not execute-command?))