diff options
| -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 |