[Denemo-devel] A script printing the documentation on all commands.

[Richard Shann]

Still work in progress, but for the record
this script prints out all the commands with their labels, menu
positions, tooltips...

;;;;;;;;;;;; Documenting all the commands
 (module-for-each (lambda (name var)
                    (let ((mystring ""))
                      (set! mystring (format #f "~a" name))
                      (if (> (string-length mystring) 2)
                          (begin
                            (if (string=? "d-" (substring mystring 0 2))        
                                (set! mystring (substring mystring 2))
                                (if (> (string-length mystring) 7)
                                    (if (string=? "Help-d-" (substring mystring 
0 7));; a tooltip so
ignore
                                        (set! mystring #f))))))
                      (if (not (boolean? mystring))
                      (DocumentCommand mystring))))
                  (current-module))