- (let*
- ((name (car interface))
- (desc (cadr interface))
- (props (sort (caddr interface) symbol<?))
- (docfunc (lambda (pr)
- (property->texi
- 'backend pr grob-description)))
- (iprops (filter (lambda (x) (object-property x 'backend-internal) ) props))
- (uprops (filter (lambda (x) (not (object-property x 'backend-internal)) ) props))
- (user-propdocs (map docfunc uprops))
- (internal-propdocs (map docfunc iprops)))
-
- (string-append
- desc
-
- (if (pair? uprops)
- (string-append
- "\n\n@unnumberedsubsubsec User settable properties:\n"
- (description-list->texi user-propdocs))
- "")
-
- (if (pair? iprops)
- (string-append
- "\n\n@unnumberedsubsubsec Internal properties: \n"
- (description-list->texi internal-propdocs)
- )
- "")
- )
- ))
-
+ (let* ((name (car interface))
+ (desc (cadr interface))
+ (props (sort (caddr interface) symbol<?))
+ (docfunc (lambda (pr)
+ (property->texi
+ 'backend pr grob-description)))
+ (iprops (filter (lambda (x) (object-property x 'backend-internal))
+ props))
+ (uprops (filter
+ (lambda (x) (not (object-property x 'backend-internal)))
+ props))
+ (user-propdocs (map docfunc uprops))
+ (internal-propdocs (map docfunc iprops)))
+
+ (string-append
+ desc
+
+ (if (pair? uprops)
+ (string-append
+ "\n\n@unnumberedsubsubsec User settable properties:\n"
+ (description-list->texi user-propdocs))
+ "")
+
+ (if (pair? iprops)
+ (string-append
+ "\n\n@unnumberedsubsubsec Internal properties: \n"
+ (description-list->texi internal-propdocs))
+ ""))))