diff options
| author | Arun Isaac | 2023-08-09 16:42:23 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-08-09 21:29:12 +0100 |
| commit | d6668221e7ce7b1b1074cb1bb1092bb6e44ec0ac (patch) | |
| tree | 57b4d3bbb27ff48a61be81f101d7254d699cd439 | |
| parent | 760fcf32fc3b78887fbe3f85e7cd5b23b0c47a66 (diff) | |
| download | guix-forge-d6668221e7ce7b1b1074cb1bb1092bb6e44ec0ac.tar.gz guix-forge-d6668221e7ce7b1b1074cb1bb1092bb6e44ec0ac.tar.lz guix-forge-d6668221e7ce7b1b1074cb1bb1092bb6e44ec0ac.zip | |
doc: Set identifier on item markup in record documentation.
* doc/skribilo.scm (record-documentation): Set identifier on item
markup instead of using a separate mark.
| -rw-r--r-- | doc/skribilo.scm | 58 |
1 files changed, 29 insertions, 29 deletions
diff --git a/doc/skribilo.scm b/doc/skribilo.scm index c8aade0..972b626 100644 --- a/doc/skribilo.scm +++ b/doc/skribilo.scm @@ -259,38 +259,38 @@ are a list of <record-field> objects." identifier)) (make-irritants-condition unknown-fields))))) ;; Generate markup. - (item #:key (let ((identifier (symbol->string identifier))) - (list (list "Record Type: " - (mark identifier) + (let ((identifier (symbol->string identifier))) + (item #:ident identifier + #:key (list (list "Record Type: " (index #:note "record type" identifier) (source-ref file (string-append "\\(define-record-type\\* " identifier) - (code identifier))))) - (apply description - (map (lambda (documented-field) - (let* ((identifier (record-field-identifier documented-field)) - (record-field (find (lambda (field) - (eq? (record-field-identifier field) - (string->symbol identifier))) - (record-fields record)))) - (item #:key - (cond - ;; No default value - ((no-default? (record-field-default record-field)) - (code identifier)) - ;; Default value in documentation - ((record-field-default documented-field) - => (lambda (default) - (list (append (list (code identifier) " (Default: ") - default - (list ")"))))) - ;; Default value from the source - (else (list (list (code identifier) " (Default: " - (code (expression->string - (record-field-default record-field))) - ")")))) - (record-field-documentation documented-field)))) - fields))))) + (code identifier)))) + (apply description + (map (lambda (documented-field) + (let* ((identifier (record-field-identifier documented-field)) + (record-field (find (lambda (field) + (eq? (record-field-identifier field) + (string->symbol identifier))) + (record-fields record)))) + (item #:key + (cond + ;; No default value + ((no-default? (record-field-default record-field)) + (code identifier)) + ;; Default value in documentation + ((record-field-default documented-field) + => (lambda (default) + (list (append (list (code identifier) " (Default: ") + default + (list ")"))))) + ;; Default value from the source + (else (list (list (code identifier) " (Default: " + (code (expression->string + (record-field-default record-field))) + ")")))) + (record-field-documentation documented-field)))) + fields)))))) (define (record-ref identifier) "Link to record documentation of record identified by |