, div [ className "container" ] [ blocksRandomText' homeData ]
]
blocksRandomText :: ReactElement
blocksRandomText = div [ className "row" ]
[ div [ className "col-md-4 content" ]
[ h3 []
[ a [ href "#", title "Random sentences in Gargantua's Books chapters, historically true" ]
-- TODO click on icon and randomize the text below
[ i [className "fas fa-random"] []
, text " Historic"
]
]
, p []
-- TODO use RandomText.randomSentences on this text (should be editable by user later)
[ text "Chapter 1.XV. How Gargantua was put under other schoolmasters. Chapter 2.XXII. How Panurge served a Parisian lady a trick that pleased her not very well. Chapter 3.XXXVII. How Pantagruel persuaded Panurge to take counsel of a fool. Chapter 4.LXI. How Gaster invented means to get and preserve corn. Chapter 5.XXXVIII. Of the temple's admirable pavement." ]
]
, div [ className "col-md-4 content" ]
[ h3 []
[ a [ href "#", title "Randomized words, semantically and syntaxically falses." ]
-- TODO click on icon and randomize the text below
[ i [className "fas fa-random"] []
, text " Presentation"
]
]
, p []
-- TODO use RandomText.randomWords on this text (should be editable by user later)
[ text "Autem nascetur iaculis, sedfusce enimsed cursus posuere consectetuer eu justo aliquammauris. Phasellus vero nisi porttitor elit quod, leo feliscras ultricies non tempor sagittis. Liberoduis facilisinam erat dapibusnam, lacus dui duis tristique volutpatut quis vestibulum magna. Nobis faucibusvestibulum dolores minim. Bibendumin malesuada adipiscing ante, mattis fames nequeetiam lorem. No diam id. Litora quisaenean commodo lobortisetiam neque, libero mollis scelerisque inceptos ullamcorper sea congue delenit possim. " ]
]
, div [ className "col-md-4 content" ]
[ h3 []
[ a [ href "#", title "Randomized letters, true or false ?" ]
-- TODO click on icon and randomize the text below
div [ className "row" ] ( map showBlock bt.blocks )
where
showBlock :: BlockText -> ReactElement
showBlock (BlockText b) =
div [ className "col-md-4 content" ]
[ h3 [] [ a [ href b.href, title b.title]
[ i [className b.icon] []
, text b.titleText
]
]
, p [] [ text b.text ]
]
, p []
-- TODO use RandomText.randomChars on this text (should be editable by user later)
[ text "Il paraît que l'rdore des lettres dans un mot n'a pas d'imtraopnce. La première et la dernière lettre doeivnt être à la bonne place. Le reste peut être dans un désordre total et on peut touojurs lire sans prolèbme. On ne lit donc pas chaque lettre en ellêem-me, mais le mot comme un tout. Un chaegmnent de référentiel et nous tranpossons ce résultat au texte luimê-me: l'rdore des mots est failbement important copamré au contexte du texte qui, lui, est copmté: comptexter avec Gargantext. "
, text " "
, text ""
data HomeData = HomeData { name :: String
, signature :: String
, logoTitle :: String
, imageTitle :: String
, docButton :: Button
, blockTexts :: BlockTexts
}
data Button = Button { title :: String
, text :: String
, href :: String
}
data BlockTexts = BlockTexts { blocks :: Array BlockText }
data BlockText = BlockText { title :: String
, href :: String
, titleText :: String
, icon :: String
, text :: String
}
homeData = HomeData { name : "Gargantext"
, signature : "search map share"
, logoTitle : "Project hosted by CNRS (France, Europa)"
, imageTitle: "Click and test by yourself"
, docButton : Button { title : "Your first map in less than 5 minutes"
blockTexts = [ BlockText { title : "Random sentences in Gargantua's Books chapters, historically true"
, href : "#"
, icon : "fas fa-random"
, titleText : " Historic"
, text : "Chapter 1.XV. How Gargantua was put under other schoolmasters. Chapter 2.XXII. How Panurge served a Parisian lady a trick that pleased her not very well. Chapter 3.XXXVII. How Pantagruel persuaded Panurge to take counsel of a fool. Chapter 4.LXI. How Gaster invented means to get and preserve corn. Chapter 5.XXXVIII. Of the temple's admirable pavement."
}
, BlockText { title : "Randomized words, semantically and syntaxically falses."
, href : "#"
, icon : "fas fa-random"
, titleText : " Presentation"
, text : "Autem nascetur iaculis, sedfusce enimsed cursus posuere consectetuer eu justo aliquammauris. Phasellus vero nisi porttitor elit quod, leo feliscras ultricies non tempor sagittis. Liberoduis facilisinam erat dapibusnam, lacus dui duis tristique volutpatut quis vestibulum magna. Nobis faucibusvestibulum dolores minim. Bibendumin malesuada adipiscing ante, mattis fames nequeetiam lorem. No diam id. Litora quisaenean commodo lobortisetiam neque, libero mollis scelerisque inceptos ullamcorper sea congue delenit possim."
}
, BlockText { title : "Randomized letters, true or false ?"
, href : "#"
, icon : "fas fa-random"
, titleText : " Tutoreil"
, text : "Il paraît que l'rdore des lettres dans un mot n'a pas d'imtraopnce. La première et la dernière lettre doeivnt être à la bonne place. Le reste peut être dans un désordre total et on peut touojurs lire sans prolèbme. On ne lit donc pas chaque lettre en ellêem-me, mais le mot comme un tout. Un chaegmnent de référentiel et nous tranpossons ce résultat au texte luimê-me: l'rdore des mots est failbement important copamré au contexte du texte qui, lui, est copmté: comptexter avec Gargantext."
