Ran HTML through validator

jameshfisher · Oct 29, 2012 · 3d05bdd · 3d05bdd
1 parent 13c51bc
commit 3d05bdd
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/EducationSection.hs b/EducationSection.hs
@@ -7,10 +7,10 @@ import Links (mkLink, Link(LinkCRGS, LinkGreyFriars))
 educationSection :: (ArrowXml a) => a n XmlTree
 educationSection = section [cls "educationSection"]
   [ h2 "Education"
-  , mkelem "table" [cls "firstColFixedWidth", sattr "summary" "Institutions James Fisher has studied at, listed in descending order of year (i.e., most recent first)"]
+  , mkelem "table" [cls "firstColFixedWidth"]
     [ mk "tbody" $ trs [ msc, ba, aLevels, gcses ] ]
   , h3 "Other courses"
-  , mkelem "table" [cls "firstColFixedWidth", sattr "summary" "Institutions James Fisher has studied at, listed in descending order of year (i.e., most recent first)"]
+  , mkelem "table" [cls "firstColFixedWidth"]
     [ mk "tbody" $ trs
       [ attrVal [txt "Sep.–Nov. 2012"] []
         [ q "Functional Programming Principles in Scala"

diff --git a/ExperienceSection.hs b/ExperienceSection.hs
@@ -7,8 +7,8 @@ import Links (mkLink, Link(LinkYUDU, LinkSoftwire, LinkJava, LinkEnterpriseJavaB
 experienceSection :: (ArrowXml a) => a n XmlTree
 experienceSection = section [cls "experienceSection"]
   [ h2 "Experience"
-  , mkelem "table" [cls "firstColFixedWidth", sattr "summary" "Jobs that James Fisher has done, listed in descending order of year (i.e., most recent first)"]
-    [ mk "body" $ trs [ yudu, lm, gilgilTrust, pembrokeHouse, hsk, caringHomesDB, caringHomesVarious ]
+  , mkelem "table" [cls "firstColFixedWidth"]
+    [ mk "tbody" $ trs [ yudu, lm, gilgilTrust, pembrokeHouse, hsk, caringHomesDB, caringHomesVarious ]
     ]
   ]
 
@@ -39,7 +39,7 @@ lm =
       , txt " The follies of schematizing, sorting, and cross-referencing paperwork led me towards the real power of the computer."
       ]
     , [ strong "Web design and maintenance", txt " for "
-      , mkelem "link" [sattr "href" "http://www.lexdenmontessori.com"] [txt "www.", strong "lexdenmontessori.com"]
+      , mkelem "a" [sattr "href" "http://www.lexdenmontessori.com"] [txt "www.", strong "lexdenmontessori.com"]
       , txt "."
       ]
     ]

diff --git a/TopSection.hs b/TopSection.hs
@@ -6,7 +6,7 @@ import Common (h2, ul, strong, link, cls, section, attrVal, email, obscure, csv,
 topSection :: (ArrowXml a) => a n XmlTree
 topSection = section (item "http://data-vocabulary.org/Person")
   [ htmlSpan [sattr "style" "display: none;", prop "name"] [txt "James Harrison Fisher"]
-  , mkelem "table" [cls "firstColFixedWidth", sattr "summary" "Quick-reference attributes and values of James Harrison Fisher"]
+  , mkelem "table" [cls "firstColFixedWidth"]
     [ mk "tbody" $ trs
       [ attrVal [txt "Birth date"] [] [txt "October 1987"]
       , attrVal [txt "Address"] ([prop "address"]++(item "http://data-vocabulary.org/Address")) $ csv