Back to slide
Keyboard shortcut: 'u' 

(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)