-
- (let*
- (
- (metah (assoc 'meta description))
- (meta (cdr metah))
- (name (cdr (assoc 'name meta)))
- (ifaces (map lookup-interface (cdr (assoc 'interfaces meta))))
- (ifacedoc (map (lambda (iface)
- (ref-ify (symbol->string (car iface)))
- )
- (reverse ifaces)))
- (engravers (filter
- (lambda (x) (engraver-makes-grob? name x)) all-engravers-list))
- (namestr (symbol->string name))
- (engraver-names (map symbol->string (map ly:translator-name engravers)))
- )
+
+ (let* ((metah (assoc 'meta description))
+ (meta (cdr metah))
+ (name (cdr (assoc 'name meta)))
+ ;; (bla (display name))
+ (ifaces (map lookup-interface (cdr (assoc 'interfaces meta))))
+ (ifacedoc (map (lambda (iface)
+ (if (pair? iface)
+ (ref-ify (symbol->string (car iface)))
+ (ly:error (_ "pair expected in doc ~s") name)))
+ (reverse ifaces)))
+ (engravers (filter
+ (lambda (x) (engraver-makes-grob? name x))
+ all-engravers-list))
+ (namestr (symbol->string name))
+ (engraver-names (map symbol->string
+ (map ly:translator-name engravers)))
+ (engraver-list (human-listify
+ (map ref-ify
+ (map engraver-name engraver-names)))))