line numbers on lifetime player report
This commit is contained in:
parent
acd45229e7
commit
d14f2ba527
|
@ -129,7 +129,7 @@ gameStatsReport width s = let
|
||||||
|
|
||||||
criteria (_, ps) = psPoints ps > 0
|
criteria (_, ps) = psPoints ps > 0
|
||||||
|
|
||||||
in filteredPlayerReport width "GAME" criteria True playerStats
|
in filteredPlayerReport width "GAME" criteria True False playerStats
|
||||||
++ [""]
|
++ [""]
|
||||||
++ gameGoalieReport width goalieStats
|
++ gameGoalieReport width goalieStats
|
||||||
|
|
||||||
|
@ -146,7 +146,7 @@ yearToDateStatsReport width s = let
|
||||||
$ filter goalieIsActive
|
$ filter goalieIsActive
|
||||||
$ db^.dbGoalies
|
$ db^.dbGoalies
|
||||||
|
|
||||||
in playerReport width "YEAR TO DATE" True playerStats
|
in playerReport width "YEAR TO DATE" True False playerStats
|
||||||
++ [""]
|
++ [""]
|
||||||
++ goalieReport width True goalieStats
|
++ goalieReport width True goalieStats
|
||||||
|
|
||||||
|
@ -161,7 +161,7 @@ lifetimeStatsReport width s = let
|
||||||
goalieStats = map (\g -> (g, g^.gLifetime))
|
goalieStats = map (\g -> (g, g^.gLifetime))
|
||||||
$ db^.dbGoalies
|
$ db^.dbGoalies
|
||||||
|
|
||||||
in playerReport width "LIFETIME" False playerStats
|
in playerReport width "LIFETIME" False True playerStats
|
||||||
++ [""]
|
++ [""]
|
||||||
++ goalieReport width False goalieStats
|
++ goalieReport width False goalieStats
|
||||||
|
|
||||||
|
@ -176,6 +176,7 @@ playerReport
|
||||||
:: Int
|
:: Int
|
||||||
-> String
|
-> String
|
||||||
-> Bool
|
-> Bool
|
||||||
|
-> Bool
|
||||||
-> [(Player, PlayerStats)]
|
-> [(Player, PlayerStats)]
|
||||||
-> [String]
|
-> [String]
|
||||||
playerReport width label =
|
playerReport width label =
|
||||||
|
@ -186,9 +187,10 @@ filteredPlayerReport
|
||||||
-> String
|
-> String
|
||||||
-> ((Player, PlayerStats) -> Bool)
|
-> ((Player, PlayerStats) -> Bool)
|
||||||
-> Bool
|
-> Bool
|
||||||
|
-> Bool
|
||||||
-> [(Player, PlayerStats)]
|
-> [(Player, PlayerStats)]
|
||||||
-> [String]
|
-> [String]
|
||||||
filteredPlayerReport width label criteria showTotals ps = let
|
filteredPlayerReport width label criteria showTotals lineNumbers ps = let
|
||||||
tStats = foldl addPlayerStats newPlayerStats $ map snd ps
|
tStats = foldl addPlayerStats newPlayerStats $ map snd ps
|
||||||
criteria' = (&&) <$> criteria <*> \(p, _) -> p^.pNumber /= 0
|
criteria' = (&&) <$> criteria <*> \(p, _) -> p^.pNumber /= 0
|
||||||
fps = filter criteria' ps
|
fps = filter criteria' ps
|
||||||
|
@ -232,8 +234,13 @@ filteredPlayerReport width label criteria showTotals ps = let
|
||||||
then label ++ " TOTALS"
|
then label ++ " TOTALS"
|
||||||
else ""
|
else ""
|
||||||
|
|
||||||
|
lnOverlay = if lineNumbers
|
||||||
|
then "" : [right 2 $ show x | x <- [(1 :: Int)..]]
|
||||||
|
else repeat ""
|
||||||
|
|
||||||
table = overlayLast olayText
|
table = overlayLast olayText
|
||||||
$ map (centre width)
|
$ map (\(ln, line) -> overlay ln $ centre width line)
|
||||||
|
$ zip lnOverlay
|
||||||
$ complexTable ([right, left] ++ repeat right)
|
$ complexTable ([right, left] ++ repeat right)
|
||||||
$ tHeader : body ++ if showTotals
|
$ tHeader : body ++ if showTotals
|
||||||
then [separator, totals]
|
then [separator, totals]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user