(load (string-append laml-dir "laml.scm")) (style "simple-html4.0-loose") (define laml-absolute-prefix "http://www.cs.auc.dk/~normark/scheme/") (define laml-relative-prefix "../../../../") ; relative ; (define (laml-url suffix) (string-append laml-relative-prefix suffix)) ; absolute (define (laml-url suffix) (string-append laml-absolute-prefix suffix)) (generic-page-1 "URL Abstractions" (concatenate "The" (a-tag (laml-url "index.html") "LAML software home page") "contains lots of information, such as" (a-tag (laml-url "info/laml-easy-installation.html") "installation guide") "and" (a-tag (laml-url "info/laml-motivation.html") "my own motivation") "for using LAML") white black blue blue) |