From 640af5af1968f29b7beb56110ffae14c7a995f2f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 27 Mar 2023 17:45:36 +0200 Subject: [PATCH] Improve how missing keys are shown. --- member-print.scm | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/member-print.scm b/member-print.scm index e674667..0b47574 100644 --- a/member-print.scm +++ b/member-print.scm @@ -117,17 +117,13 @@ v)) #:col-border #t))) (else - (list k v))))) + (if v + (list k v) + (list (ansi-string #:red #:bold (symbol->string k)) + (ansi-string #:red #:bold "---"))))))) sikeys)) - (misskeys (member-missing-keys mr)) - (miss (if (null? misskeys) - '() - (list (list "Missing keys:" - (string-intersperse - (map symbol->string misskeys) - ", "))))) - (result (filter identity (append head body miss)))) - (print (table->string result #:table-border #t #:row-border #t #:col-border #t)))) + (result (filter identity (append head body)))) + (print (table->string result #:table-border #t #:row-border #t #:col-border #t #:ansi #t)))) ;; Nicely prints the member source with any errors recorded. (define (print-member-source mr)