From 20bc9ecc204a610a0d5fa8b88c74421f57dbaf3b Mon Sep 17 00:00:00 2001 From: Pierre Langlois Date: Tue, 28 Sep 2021 22:50:39 +0100 Subject: scripts: home: Wire and document --expression flag. * guix/scripts/home.scm (show-help): Add --expression option. (%options): Likewise. * doc/guix.texi (Invoking guix home): Document it. --- guix/scripts/home.scm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'guix/scripts') diff --git a/guix/scripts/home.scm b/guix/scripts/home.scm index 75df6d707d..a466f3deb1 100644 --- a/guix/scripts/home.scm +++ b/guix/scripts/home.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2021 Andrew Tropin ;;; Copyright © 2021 Xinglu Chen +;;; Copyright © 2021 Pierre Langlois ;;; ;;; This file is part of GNU Guix. ;;; @@ -86,6 +87,9 @@ Some ACTIONS support additional ARGS.\n")) (show-build-options-help) (display (G_ " + -e, --expression=EXPR consider the home-environment EXPR evaluates to + instead of reading FILE, when applicable")) + (display (G_ " -v, --verbosity=LEVEL use the given verbosity LEVEL")) (newline) (display (G_ " @@ -115,6 +119,9 @@ Some ACTIONS support additional ARGS.\n")) (let ((level (string->number* arg))) (alist-cons 'verbosity level (alist-delete 'verbosity result))))) + (option '(#\e "expression") #t #f + (lambda (opt name arg result) + (alist-cons 'expression arg result))) %standard-build-options)) (define %default-options -- cgit v1.2.3