scm/generate-documentation.scm

   1
   2
   3 (define (urlfy x)
   4   (string-append "<a href=" x ".html>" x "</a>"))
   5
   6 (define (human-listify l)
   7   (cond
   8    ((null? l) "none")
   9    ((null? (cdr l)) (car l))
  10    ((null? (cddr l)) (string-append (car l) " and " (cadr l)))
  11    (else (string-append (car l) ", " (human-listify (cdr l))))
  12    ))
  13
  14
  15 (define (writing-wip x)
  16       (display (string-append "Writing " x " ... \n") (current-error-port))
  17       )
  18
  19 (eval-string (ly-gulp-file "generate-engraver-documentation.scm"))
  20 (eval-string (ly-gulp-file "generate-backend-documentation.scm"))