; Manual of the html library (load (string-append laml-dir "laml.scm")) ; --------------------------------------------------------------------------------------------------- ; LOADING (load (string-append software-directory "tools/schemedoc-extractor" "/" "schemedoc-extractor.scm")) ; --------------------------------------------------------------------------------------------------- ; FILES: (define manual-source-file (string-append the-library "html.scm")) (define manual-destination-directory (string-append the-library "man/")) ; --------------------------------------------------------------------------------------------------- ; COMMENT EXTRACTING (define delete-comment-file? #f) (define doc-list (extract-documentation-from-scheme-file manual-source-file)) ; extracted-manual-abstract implicitly defined ; --------------------------------------------------------------------------------------------------- ; MANUAL PRODUCTION (laml-style "manual/original-manual") ; if this style is loaded initially, something becomes reloaded, and the manual stuff does not work anymore!! (set-manual-title "Reference Manual of the HTML library") (set-manual-author "Kurt Nørmark" "normark@cs.auc.dk" "Department of Computer Science" "Aalborg University" "Denmark") (set-manual-abstract extracted-manual-abstract) (set-home-url "http://www.cs.auc.dk/~normark/laml/laml-overview.html") ; (set-manual-master-index "ALL.html") (set-manual-name "html") ; a redefinition from manual ; (define manual-index-width-list (list 280 300 320)) ; another redefinition from manual (define end-remark "This documentation has been extracted automatically from the Scheme source file by means of the Schemedoc tool") (make-manual doc-list manual-destination-directory "lib/html.scm")