;;; -*- mode: lisp; -*-
(with-html-output-to-string (http-stream)
(loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa")
("http://marcusmiller.com/" . "Marcus Miller")
("http://www.milesdavis.com/" . "Miles Davis"))
do (htm (:a :href link
(:b (str title)))
:br)))
"Frank Zappa
Marcus Miller
Miles Davis
"
(with-html-output-to-string (http-stream)
(:table :border 0 :cellpadding 4
(loop for i below 25 by 5
do (htm
(:tr :align "right"
(loop for j from i below (+ i 5)
do (htm
(:td :bgcolor (if (oddp j)
"pink"
"green")
(fmt "~@R" (1+ j))))))))))
"| I | II | III | IV | V |
| VI | VII | VIII | IX | X |
| XI | XII | XIII | XIV | XV |
| XVI | XVII | XVIII | XIX | XX |
| XXI | XXII | XXIII | XXIV | XXV |
"
(with-html-output-to-string (http-stream)
(:h4 "Look at the character entities generated by this example")
(loop for i from 0
for string in '("Fête" "Sørensen" "naïve" "Hühner" "Straße")
do (htm
(:p :style (conc "background-color:" (case (mod i 3)
((0) "red")
((1) "orange")
((2) "blue")))
(htm (esc string))))))
"Look at the character entities generated by this example
Fête
Sørensen
naïve
Hühner
Straße
"
(with-html-output-to-string (str)
(:html (:title "test")))
"test"