(use 3e8-html)

(define (item title . desc)
  `((dt ,title)
    (dd ,desc)))

(render-page
 "3e8.org - Writings"

 (navskip)
 (call-resp (category 'writings)
            "Or, that which makes me Tick.")

 (navbar 'writings)
 
 (main
  `(dl
    ,(item (link "iwata-asks/super-mario-galaxy-vol-1.html"
                 "Iwata Asks: Super Mario Galaxy (Vol. 1)")
           "Translation of "
           (link "http://wii.com/jp/articles/mario-galaxy/crv/vol1/index.html"
                 "wii.com/jp article."))
    ,(item (link "iwata-asks/super-mario-galaxy-vol-2.html"
                 "Iwata Asks: Super Mario Galaxy (Vol. 2)")
           "Translation of "
           (link "http://wii.com/jp/articles/mario-galaxy/crv/vol2/index.html"
                 "wii.com/jp article."))
    ,(item (link "characters.html" "Cast of Characters")
           "Dramatis Personae of Jim's Story &c.")
    ,(item (link "jims-story/" "Jim's Story")
           "The tale of a boy, his trusty computer, and his alphanumeric pals.")
    ,(item (link "woolf.html" "Mark's Story")
           "Jim and friends get Virginia Woolf's autograph and meet "
           "Gustave Flaubert, author of " '(i "A Simple Heart") ".")
    ,(item (link "doctor.html" "Interview with Dr. Meta X")
           "Jealousy in the mansion forces Jim to confront his feelings about Ms. Woolf.")
    ,(item (link "e-dating.html" "The e-dating Scheme")
           "Find your soulmate.")
    ,(item (link "proverbs.html" "Proverbs.e38")
           "A guide to healthy living.")
    ,(item (link "e-song.html" "e38")
           "The theme song."))))