\version "2.19.17"

#(define (get-binding-list iface)
   (ly:module->alist (resolve-module iface)))

#(define (symbol-closure-list iface)
   (let* ((bindings (get-binding-list iface))
          (closures
           (filter
            (lambda (b) (procedure? (cdr b))) ;; closure?
            bindings))
          (closures
           (sort closures
             (lambda (x y) (symbol<? (car x) (car y))))))
     closures))

#(define (omit-markup-functions lst)
   (remove
    (lambda (elt)
      (string-contains (symbol->string (car elt)) "markup"))
    lst))

#(define (symbol-closure-doc-list iface omit-markups?)
   (let* ((closures (symbol-closure-list iface))
          (closures (if omit-markups?
                        (omit-markup-functions closures)
                        closures)))
     (map (lambda (c)
            (list
             (car c)
             (cdr c)
             (or (procedure-documentation (cdr c))
                 "DOCME")))
       closures)))

% UNCOMMENT THE FOLLOWING TO SEND TO A FILE:

%#(set-current-output-port (open-output-file "closures.txt"))

%% boolean determines whether markup commands (which are documented
%% in their Lily syntax) are included.

#(format #t "~:{~a~%~a~%~3t~s~%__________~%~%~}" (symbol-closure-doc-list '(lily) #t))

%#(format #t "~:{~a~%~a~%~3t~s~%__________~%~%~}" (symbol-closure-doc-list '(srfi srfi-1) #f))