onomastics-ng: fix title and color alpha

onomastics-ng/cli/Main.hs

@@ -3,7 +3,6 @@
 
 module Main where
 
-import Data.Maybe (fromMaybe)
 import Data.Text (Text)
 import qualified Data.Text.IO as Text
 import Network.HTTP.Client.TLS (newTlsManager)

onomastics-ng/lib/Onomap/Svg.hs

@@ -39,7 +39,13 @@ drawMap settings colorPalette areas statistics =
                                                 , ": "
                                                 , Text.intercalate
                                                     ", "
-                                                    (map (\(surname, statistic) -> localize (showRounded count) <> " (" <> Text.toTitle surname <> ")") statistics)
+                                                    ( map
+                                                        ( \(surname, statistic) ->
+                                                            let count = fromMaybe 0 (Map.lookup (key area) (getByArea statistic))
+                                                             in localize (showRounded count) <> " (" <> Text.toTitle surname <> ")"
+                                                        )
+                                                        statistics
+                                                    )
                                                 ]
                                         )
                                     )
@@ -52,7 +58,6 @@ drawMap settings colorPalette areas statistics =
                                                 then 0
                                                 else
                                                     count
-                                                        / fromIntegral (length statistics)
                                                         / ( case scaleToMaximum settings of
                                                                 Global -> globalMaximum
                                                                 Local -> theMaximum