From a3d86b341d361530127c36fbfbf77d638df2c1de Mon Sep 17 00:00:00 2001 From: Hartmut Goebel Date: Sun, 19 Jun 2022 10:26:30 +0200 Subject: style: Add option '--list-stylings'. * guix/scripts/style.scm (show-stylings): New procedure. (%options, show-help): Add "--list-stylings". * doc/guix.texi (Invoking guix style): Document "-l". --- doc/guix.texi | 4 ++++ guix/scripts/style.scm | 11 +++++++++++ 2 files changed, 15 insertions(+) diff --git a/doc/guix.texi b/doc/guix.texi index b97ee9fa64..92346ab4ba 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -13993,6 +13993,10 @@ The @option{--input-simplification} option described below provides fine-grain control over when inputs should be simplified. @end table +@item --list-stylings +@itemx -l +List and describe the available styling rules and exit. + @item --load-path=@var{directory} @itemx -L @var{directory} Add @var{directory} to the front of the package module search path diff --git a/guix/scripts/style.scm b/guix/scripts/style.scm index ca3853af5e..09937d9e02 100644 --- a/guix/scripts/style.scm +++ b/guix/scripts/style.scm @@ -798,15 +798,26 @@ PACKAGE." (lambda args (show-help) (exit 0))) + (option '(#\l "list-stylings") #f #f + (lambda args + (show-stylings) + (exit 0))) (option '(#\V "version") #f #f (lambda args (show-version-and-exit "guix style"))))) +(define (show-stylings) + (display (G_ "Available styling rules:\n")) + (display (G_ "- format: Format the given package definition(s)\n")) + (display (G_ "- inputs: Rewrite package inputs to the “new style”\n"))) + (define (show-help) (display (G_ "Usage: guix style [OPTION]... [PACKAGE]... Update package definitions to the latest style.\n")) (display (G_ " -S, --styling=RULE apply RULE, a styling rule")) + (display (G_ " + -l, --list-stylings display the list of available style rules")) (newline) (display (G_ " -n, --dry-run display files that would be edited but do nothing")) -- cgit v1.2.3