artlef/dictfr
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Wrap output text

Browse Source
This commit is contained in:
artlef 2018-06-02 20:42:22 +02:00
parent c147c3d805
commit 1bf4c37ff5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
WordDef.hs
View File

@ -10,6 +10,9 @@ module WordDef
renderFullDef renderFullDef
) where ) where
import Data.Text
import Text.Wrap
data WordFullDef = WordFullDef WordDefHeader [WordSentence] deriving Show data WordFullDef = WordFullDef WordDefHeader [WordSentence] deriving Show
data WordSentence = WordDefSentence String data WordSentence = WordDefSentence String
@ -27,7 +30,11 @@ getTypeString (WordType s) = s
renderFullDef :: WordFullDef -> String renderFullDef :: WordFullDef -> String
renderFullDef (WordFullDef wordDefHeader wordSentenceList) = renderFullDef (WordFullDef wordDefHeader wordSentenceList) =
renderHeader wordDefHeader ++ "\n\n" ++ renderWordSentenceList wordSentenceList unpack $ wrapText wrapSettings 70 fullDef
where
fullDef = pack (renderHeader wordDefHeader ++ "\n\n"
++ renderWordSentenceList wordSentenceList)
wrapSettings = WrapSettings True False
renderHeader :: WordDefHeader -> String renderHeader :: WordDefHeader -> String
renderHeader (WordDefHeader n t) = (getNameString n) ++ (getTypeString t) renderHeader (WordDefHeader n t) = (getNameString n) ++ (getTypeString t)