From 3710b873e7fcb876556ec100acb2305aa78e5950 Mon Sep 17 00:00:00 2001 From: Ignat Insarov Date: Fri, 4 Apr 2025 12:27:17 +0700 Subject: [PATCH 1/3] make the background of modules tinted --- src/Calligraphy/Phases/Render/GraphViz.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Calligraphy/Phases/Render/GraphViz.hs b/src/Calligraphy/Phases/Render/GraphViz.hs index 724684e..a9f558f 100644 --- a/src/Calligraphy/Phases/Render/GraphViz.hs +++ b/src/Calligraphy/Phases/Render/GraphViz.hs @@ -73,6 +73,7 @@ renderGraphViz GraphVizConfig {..} (RenderGraph roots calls types) = do printModule (RenderModule lbl modId trees) = brack ("subgraph cluster_module_" <> modId <> " {") "}" $ do strLn $ "label=" <> show lbl <> ";" + strLn "bgcolor=\"lightgray\"" forM_ trees printTree printNode :: Prints RenderNode From f7e76d59868318ae62df2a38b96fb5e05b33501d Mon Sep 17 00:00:00 2001 From: Ignat Insarov Date: Tue, 22 Apr 2025 14:28:46 +0700 Subject: [PATCH 2/3] make the background tint less obtrusive MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Ideally, we want no one to even notice something changed. It should look better but it should not register consciously. White smoke is the lightest named shade of gray in X11 colour standard, it has 96% lightness. --- src/Calligraphy/Phases/Render/GraphViz.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Calligraphy/Phases/Render/GraphViz.hs b/src/Calligraphy/Phases/Render/GraphViz.hs index a9f558f..64ff950 100644 --- a/src/Calligraphy/Phases/Render/GraphViz.hs +++ b/src/Calligraphy/Phases/Render/GraphViz.hs @@ -73,7 +73,7 @@ renderGraphViz GraphVizConfig {..} (RenderGraph roots calls types) = do printModule (RenderModule lbl modId trees) = brack ("subgraph cluster_module_" <> modId <> " {") "}" $ do strLn $ "label=" <> show lbl <> ";" - strLn "bgcolor=\"lightgray\"" + strLn "bgcolor=\"whitesmoke\"" forM_ trees printTree printNode :: Prints RenderNode From 95c3a13535a28366f6ea581896b08049c6dfe4f7 Mon Sep 17 00:00:00 2001 From: Ignat Insarov Date: Wed, 23 Apr 2025 14:43:49 +0700 Subject: [PATCH 3/3] update change log --- CHANGELOG.md | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index 47117b4..9ecfe23 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,9 @@ # Changelog +## Unreleased +### [Changed] +- [#49] Make the background of modules tinted. + ## 0.1.7 ### [Added] - [#46] GHC 9.8, 9.10 support