/
TopSection.hs
27 lines (25 loc) · 1.21 KB
/
TopSection.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
module TopSection (topSection) where
import Text.XML.HXT.Core (XmlTree, ArrowXml, sattr, txt, mkelem)
import Common (h2, ul, strong, link, cls, section, attrVal, email, obscure, csv, item, mk, trs, prop, htmlSpan)
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"]
[ mk "tbody" $ trs
[ attrVal [txt "Birth date"] [] [txt "October 1987"]
, attrVal [txt "Address"] ([prop "address"]++(item "http://data-vocabulary.org/Address")) $ csv
[ htmlSpan [prop "locality"] [txt "Highgate"]
, htmlSpan [prop "region"] [txt "London"]
, htmlSpan [prop "postal-code"] [txt "N6 4AG"]
]
, attrVal [txt "Email"] [] [email "jameshfisher@gmail.com"]
, attrVal [txt "Mobile"] [] [txt $ obscure "07951 498 897"]
, attrVal [txt "Find me on"] [] $
csv
[ link "http://www.linkedin.com/profile/view?id=34422393" "LinkedIn"
, link "http://github.com/eegg" "GitHub"
, link "http://www.reddit.com/user/Jameshfisher/" "Reddit"
]
]
]
]