From 8ee4bf83054afa7521a5a2611ce8f7fc75ccb023 Mon Sep 17 00:00:00 2001 From: Vo Minh Thu Date: Wed, 20 Sep 2023 16:25:15 +0200 Subject: [PATCH] Add some data to the document page. --- .../Prototypes/Motherboard/Documents.hs | 58 ++++++++++++++++++- 1 file changed, 55 insertions(+), 3 deletions(-) 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