Back to notes
Keyboard shortcut: 'u' 

(load (string-append laml-dir "laml.scm"))

(style "simple-html4.0-loose")

(lib-load "url-read.scm")

(define (newline-string) cr)  ; due to conflic between general and url-read.

(define (a-tag-check url anchor-text)
   (if (page-ok? url)
       (a-tag url anchor-text)
       (con (u anchor-text) (b (font-color red " (broken)")))))

(generic-page-1
  "URL Checking"
  (font-size 4
   (con
      "The "
      (a-tag-check "http://www.cs.auc.dk" "first")
      " link is fine. The "
      (a-tag-check "http://www.cs.auc.dk/~kurt.normark" "second")
      " is bad (~normark, not ~kurt.normark). And the "
      (a-tag-check "http://abc.efg.hij" "last")
      " is also bad "))

   white black blue blue)