fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

line numbers on lifetime player report

This commit is contained in:
Jonathan Lamothe 2020-01-02 23:43:44 -05:00
parent acd45229e7
commit d14f2ba527
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Mtlstats/Report.hs
View File

@ -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]