diff --git a/src/Hypered/Html/Struct/Prototypes/Motherboard/Documents.hs b/src/Hypered/Html/Struct/Prototypes/Motherboard/Documents.hs
index 8b91302e..b5a3bcca 100644
--- a/src/Hypered/Html/Struct/Prototypes/Motherboard/Documents.hs
+++ b/src/Hypered/Html/Struct/Prototypes/Motherboard/Documents.hs
@@ -1,5 +1,6 @@
module Hypered.Html.Struct.Prototypes.Motherboard.Documents where
+import qualified Data.Text as T
import Hypered.Html.Helpers
import Protolude hiding (div)
import Text.Blaze.Html5 (Html, (!))
@@ -9,11 +10,21 @@ import qualified Text.Blaze.Html5.Attributes as A
--------------------------------------------------------------------------------
data Document = Document
{ documentId :: Text
+ , documentUrl :: Text
+ , documentSource :: Text
+ , documentPublicationDate :: Text
+ , documentNumber :: Text
+ , documentPageNumber :: Int
+ , documentPDFOriginal :: Maybe Text
+ , documentCaseNumber :: Text
+ , documentStartDates :: [(Text, Text)]
+ , documentModifies :: [Text]
+ , documentLegislativeLinks :: [Text]
}
--------------------------------------------------------------------------------
-prototypeMotherboardDocument :: Text -> Text -> Text -> Text -> Document -> Html
-prototypeMotherboardDocument refliHomepage homepage justelUrl breadcrumb document@Document {..} = do
+prototypeMotherboardDocument :: Text -> Text -> Text -> Document -> Html
+prototypeMotherboardDocument refliHomepage homepage breadcrumb Document {..} = do
H.docType
H.html $ do -- TODO html(dir="ltr", lang="en")
H.head $ do
@@ -37,6 +48,47 @@ prototypeMotherboardDocument refliHomepage homepage justelUrl breadcrumb documen
div "u-container" $ do
H.p $
H.small ! A.class_ "breadcrumb" $ H.text breadcrumb
+ div "c-text flow-all limit-42em legislation" $ do
+ H.h1 ! A.class_ "mb-title" $ "15 JUILLET 2016. — Arrêté royal modifiant l'arrêté royal du 19 décembre 1967 portant règlement général en exécution de l'arrêté royal n° 38 du 27 juillet 1967 organisant le statut social des travailleurs indépendants"
+
+ H.div $
+ H.dl ! A.class_ "mb-pairs" $ do
+ H.dt "ELI"
+ H.dd $
+ H.a ! A.href (H.toValue documentUrl) $ "Justel"
+ H.dt "Source"
+ H.dd $ H.text documentSource
+ H.dt "Publication"
+ H.dd $ H.text documentPublicationDate
+ H.dt "Numéro"
+ H.dd $ H.text documentNumber
+ H.dt "Page"
+ H.dd $ H.text $ show documentPageNumber
+ H.dt "PDF"
+ H.dd $
+ maybe
+ "verion originale"
+ (\lnk -> H.a ! A.href (H.toValue $
+ "https://www.ejustice.just.fgov.be" <> lnk) $
+ "version originale")
+ documentPDFOriginal
+ H.dt "Dossier numéro"
+ H.dd $ H.text documentCaseNumber
+ H.dt "Entrée en vigueur / Effet"
+ H.dd $
+ mapM_ (\(a, b) -> H.text a >> H.text b) documentStartDates
+ H.dt "Texte modifié"
+ H.dd $
+ mapM_ (\a -> H.text a) documentModifies
+ H.dt "belgiquelex"
+ H.dd $ do
+ let f lnk =
+ if "http://reflex.raadvst-consetat.be" `T.isPrefixOf` lnk
+ then "Conseil d'Etat"
+ else "TODO"
+ mapM_
+ (\lnk -> H.a ! A.href (H.toValue lnk) $ H.text (f lnk))
+ documentLegislativeLinks
H.footer $
div "u-container" $ do
@@ -50,7 +102,7 @@ prototypeMotherboardDocument refliHomepage homepage justelUrl breadcrumb documen
H.p $
H.small $ do
"View the "
- H.a ! A.href (H.toValue $ justelUrl) $ "original page"
+ H.a ! A.href (H.toValue $ documentUrl) $ "original page"
" on the Belgian Official Journal."
H.p $
H.small $ do