tagged separators

to indicate a table i markdown
This commit is contained in:
Wolf 2017-01-21 17:15:50 +01:00 committed by GitHub
parent fad71038d3
commit 5c435d8f24

View file

@ -43,26 +43,66 @@ getSupplierDigestR sId = do
<table>
<thead>
<tr>
<th>_{MsgArtNr}
<th>_{MsgName}
<th>_{MsgVolume}
<th>_{MsgCrateCount}
<th>_{MsgPricePerCrate}
<th>_{MsgTotalValue}
<th>
<span .transp>|
_{MsgArtNr}
<span .transp>|
<th>
_{MsgName}
<span .transp>|
<th>
_{MsgVolume}
<span .transp>|
<th>
_{MsgCrateCount}
<span .transp>|
<th>
_{MsgPricePerCrate}
<span .transp>|
<th>
_{MsgTotalValue}
<span .transp>|
<tr>
<span .transp>---:
<th>
<span .transp>---:
<th>
<span .transp>---:
<th>
<span .transp>---:
<th>
<span .transp>---:
<th>
<span .transp>---:
$forall dig <- digests
$if bdCrates dig /= 0
<tr>
<td>#{fromMaybe "" $ beverageArtNr $ bdBev dig}
<td>
<span .transp>|
#{fromMaybe "" $ beverageArtNr $ bdBev dig}
<span .transp>|
<td>#{beverageIdent $ bdBev dig}
<span .transp>|
<td>#{formatIntVolume $ beverageMl $ bdBev dig}
<span .transp>|
<td>#{T.pack $ show $ bdCrates dig}
<span .transp>|
<td style="text-align: right;">#{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master}
<span .transp>|
<td style="text-align: right;">#{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master}
<span .transp>|
<tr>
<td colspan="3">_{MsgTotalCrates}
<td colspan="3">
<span .transp>|
_{MsgTotalCrates}
<span .transp>|
<td>#{T.pack $ show $ sum $ map bdCrates digests}
<span .transp>|
<td>_{MsgBuyValue}
<span .transp>|
<td style="text-align: right;">#{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master}
<span .transp>|
|]
tableLayout w
Nothing -> do