(defpackage :cl-who-example
  (:use :cl :cl-who))

(in-package :cl-who-example)

(cl-who::def-syntax-macro html-list (&body body)
  `(:ul
    ,@(loop
	 for elem in body
	 collect `(:li ,elem))))

(with-html-output-to-string (s)
  (:html
   (:title "Title"))
  (:body
   (:h1 "H1 header")
   (:p "A small list"
       (html-list
	"First"
	"Second"
	(:a :href "/link" "Third")))))
