diff options
| author | Arun Isaac | 2025-03-28 02:23:16 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-03-28 02:26:04 +0000 |
| commit | 32a69b4312621f5119377b25d3e6ab8fa5e804e8 (patch) | |
| tree | f5b11f41d9ef444954bdf84b3e00598fd742e158 | |
| parent | 7cfbc075ad88488e3e18a4443bb16cf50dd7e677 (diff) | |
| download | guix-forge-32a69b4312621f5119377b25d3e6ab8fa5e804e8.tar.gz guix-forge-32a69b4312621f5119377b25d3e6ab8fa5e804e8.tar.lz guix-forge-32a69b4312621f5119377b25d3e6ab8fa5e804e8.zip | |
doc: Add identifiers for individual record fields.
* doc/skribilo.scm (record-documentation): Add identifiers for individual record fields.
| -rw-r--r-- | doc/skribilo.scm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/doc/skribilo.scm b/doc/skribilo.scm index 7c75d97..bd2c313 100644 --- a/doc/skribilo.scm +++ b/doc/skribilo.scm @@ -268,24 +268,27 @@ are a list of <record-field> objects." (code identifier)))) (apply description (map (lambda (documented-field) - (let* ((identifier (record-field-identifier documented-field)) + (let* ((field-identifier (record-field-identifier documented-field)) (record-field (find (lambda (field) (eq? (record-field-identifier field) - (string->symbol identifier))) + (string->symbol field-identifier))) (record-fields record)))) - (item #:key + (item #:ident (string-append identifier + "-" + field-identifier) + #:key (cond ;; No default value ((no-default? (record-field-default record-field)) - (code identifier)) + (code field-identifier)) ;; Default value in documentation ((record-field-default documented-field) => (lambda (default) - (list (append (list (code identifier) " (Default: ") + (list (append (list (code field-identifier) " (Default: ") default (list ")"))))) ;; Default value from the source - (else (list (list (code identifier) " (Default: " + (else (list (list (code field-identifier) " (Default: " (code (expression->string (record-field-default record-field))) ")")))) |