- "(" typename ")")
- desc)
-
- ))
-
-(define (document-property-value sym alist)
- "Extract value for SYM from ALIST, return as texi string"
- (let* ((handle (assoc sym alist)))
- (if (eq? handle #f)
- "(unset)"
- (scm->texi (cdr handle)))))
-
-(define (backend-property->texi sym)
- (property->texi 'backend sym))
-
-(define (document-property sym where alist)
- "Document SYM. If GROB-DESCRIPTION is not #f, it's an alist
-containing default values."
- (let*
- ((without (property->texi where sym))
- (rv
-
- (cons (car without)
- (if (eq? alist #f)
- (cdr without)
- (string-append
- (cdr without)
- "\nDefault value: "
- (document-property-value sym alist))))))
- rv))