summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Command/Map.hs2
-rw-r--r--Dot.hs2
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
diff --git a/Dot.hs b/Dot.hs
index a21d70536..592b21f69 100644
--- a/Dot.hs
+++ b/Dot.hs
@@ -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"