diff options
author | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2022-06-19 10:26:30 +0200 |
---|---|---|
committer | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2022-07-04 16:13:13 +0200 |
commit | a3d86b341d361530127c36fbfbf77d638df2c1de (patch) | |
tree | 70ca3f1870ed3a390dd98714b731b0177c0d0ec6 /guix | |
parent | fdcd0133b2e452ce6e8bfbfc185cf3123c06cbfa (diff) |
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".
Diffstat (limited to 'guix')
-rw-r--r-- | guix/scripts/style.scm | 11 |
1 files changed, 11 insertions, 0 deletions
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")) |