(use ursetto-html)

(define (brochure-sidebar)
  (sidebar
   (side-section "View brochure"
                 `(ul (li (a (@ (href "ursetto-brochure.pdf")
                                (title "Portable Document Format"))
                             "PDF (48KB)"))))
   (side-section "Offsite links"
                 `(ul (li (a (@ (href "http://www.adobe.com/products/acrobat/readstep2.html"))
                             "Adobe Acrobat Reader"))
                      (li (a (@ (href "mailto:camrobbins@hotmail.com")
                                (title "Cameron Robbins: Freelance Writer"))
                             "Send mail to Cam Robbins"))))
   (default-sidebar-sections)))

(render
 (page
  "Ursetto Consulting, Inc."
  'brochure
  (content-with-sidebar
   (brochure-sidebar)
   `(p "Ursetto Consulting, Inc. has a brochure available!  Simply "
       ,(category-link 'contact "contact me")
       " and I will be more than happy to send along a paper copy.  In addition, I've made a "
       (a (@ (href "ursetto-brochure.pdf"))
          "printable version")
       " available as a PDF file. "
       "(Download " (a (@ (href "http://www.adobe.com/products/acrobat/readstep2.html"))
                      "Acrobat Reader")
       " if you need a PDF viewer.)")
   `(p "The brochure is designed to be printed on double-sided paper, and folded into thirds.  With the first page face up, fold the right side over, then the left side on top of it.  The bordered "
       (strong "Ursetto Consulting, Inc.")
       " title page should now be in front.")
   `(p "Thanks very much to Cam Robbins for creating this brochure."))))