diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-01-03 09:05:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-01-10 14:25:59 +0100 |
| commit | 208a7aa17b101083bd9969fec9ca4e2dca37b3af (patch) | |
| tree | c90838ec92ba5b0a5726055f065877d5394b9958 /tests | |
| parent | 97d0055edb9a8b9b59ede254ce8ef1f255558802 (diff) | |
| download | guix-208a7aa17b101083bd9969fec9ca4e2dca37b3af.tar guix-208a7aa17b101083bd9969fec9ca4e2dca37b3af.tar.gz | |
style: Allow special forms to be scoped.
* guix/scripts/style.scm (vhashq): Add clause for 'lst, and change
default clause.
(%special-forms): Add context for 'add-after and 'add-before. Add
'replace.
(prefix?, special-form-lead): New procedures.
(special-form?): Remove.
(pretty-print-with-comments): Add 'context' to the threaded state.
Adjust 'print-sequence' and adjust 'loop' calls accordingly.
* tests/style.scm: Add tests for 'replace.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/style.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/style.scm b/tests/style.scm index d9e8d803f4..6c449cb72e 100644 --- a/tests/style.scm +++ b/tests/style.scm @@ -453,6 +453,18 @@ mnopqrstuvwxyz.\")" \"abcdefghijklmnopqrstuvwxyz\")" #:max-width 33) +(test-pretty-print "\ +(modify-phases %standard-phases + (replace 'build + ;; Nicely indented in 'modify-phases' context. + (lambda _ + #t)))") + +(test-pretty-print "\ +(modify-inputs inputs + ;; Regular indentation for 'replace' here. + (replace \"gmp\" gmp))") + (test-end) ;; Local Variables: |