(require-library ursetto-html)

(define (gentoo-link frag desc)
  (link `("http://www.ibm.com/developerworks/web/library/" ,frag) desc))

(render
 (page
  "Ursetto Consulting, Inc. - Resume"
  'resume

  (content-with-sidebar
   (sidebar (side-section "View resume"
                          `(ul (li ,(link "resume.html" "Hypertext (HTML)"))
                               (li ,(link "resume.pdf"  "Printable (PDF)"))
                               (li ,(link "resume.txt"  "Plain text"))))
            (side-section "Other formats"
                          `(ul (li ,(link "xml-readme.html" "SXML readme"))
                               (li ,(link "/src/resume/resume.scm" "SXML (Scheme) source"))
                               (li ,(link "resume.xml.txt"  "XML source [old]"))
                               (li ,(link "resume.xsl.txt"  "XSL stylesheet [old]"))))
            (side-section "SXML"
                          `(ul (li ,(egg-link "sxml-transforms") " and " ,(egg-link "sxml-tools"))
                               (li ,(egg-link "eggdoc"))
                               (li ,(link "http://okmij.org/ftp/Scheme/xml.html" "Oleg Kiselyov's SXML site"))))
            (side-section "XML and XSLT"
                          `(ul (li ,(gentoo-link "us-gentoo" "gentoo.org redesign")
                                   " (parts "
                                   ,(gentoo-link "us-gent" "2") ", "
                                   ,(gentoo-link "us-gentoo3" "3") ", "
                                   ,(gentoo-link "us-gentoo4" "4") ")")
                               (li (a (@ (href "http://www.zvon.org/xxl/XSLTutorial/Books/Output/contents.html"))
                                      "Zvon XSLT tutorial"))
                               (li (a (@ (href "http://xmlsoft.org/XSLT/"))
                                      "libxslt"))
                               (li (a (@ (href "http://www.w3.org/TR/xslt"))
                                      "w3.org: XSLT spec")))))


   `(p "On this page you can find Jim Ursetto's "
       ,(link "resume.html" "resume") ", in "
       ,(link "resume.html" "hypertext") " (HTML), "
       ,(link "resume.pdf" "printable")  " (PDF) and "
       ,(link "resume.txt" "plain text") " formats. "
       "It provides an overview of my work experience inside and outside the company.")
;;    `(p "Additionally, some of the projects performed by Ursetto Consulting Inc. "
;;        "are discussed in further detail on the " ,(category-link 'projects "Projects") " page.")

   )))