diff options
| -rw-r--r-- | Command/Map.hs | 2 | ||||
| -rw-r--r-- | Dot.hs | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index 74005b521..0a3bb9fff 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -100,7 +100,7 @@ nodeId r = node :: (M.Map UUID String) -> [Git.Repo] -> Git.Repo -> String node umap fullinfo r = unlines $ n:edges where - n = Dot.subGraph (hostname r) (basehostname r) "grey" $ + n = Dot.subGraph (hostname r) (basehostname r) "lightblue" $ decorate $ Dot.graphNode (nodeId r) (repoName umap r) edges = map (edge umap fullinfo r) (Git.remotes r) decorate @@ -45,6 +45,7 @@ subGraph :: String -> String -> String -> String -> String subGraph subid l color s = "subgraph " ++ name ++ " {\n" ++ ii setlabel ++ + ii setfilled ++ ii setcolor ++ ii s ++ indent "}" @@ -52,6 +53,7 @@ subGraph subid l color s = -- the "cluster_" makes dot draw a box name = quote ("cluster_" ++ subid) setlabel = "label=" ++ quote l + setfilled = "style=" ++ quote "filled" setcolor = "fillcolor=" ++ quote color ii x = (indent $ indent x) ++ "\n" |