From 8463d1345ef302fd016c73b412bd90fdf8adc818 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 2 Apr 2016 21:46:26 +0200 Subject: graph: Edges are colored based on their source node. * guix/graph.scm (%colors): New variable. (pop-color): New procedure. (emit-edge): Use it. --- guix/graph.scm | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'guix/graph.scm') diff --git a/guix/graph.scm b/guix/graph.scm index a39208e7f9..1a8f2d55b3 100644 --- a/guix/graph.scm +++ b/guix/graph.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015 Ludovic Courtès +;;; Copyright © 2015, 2016 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -131,6 +131,16 @@ typically returned by 'node-edges' or 'node-back-edges'." (node graph-backend-node) (edge graph-backend-edge)) +(define %colors + ;; See colortbl.h in Graphviz. + #("red" "magenta" "blue" "cyan3" "darkseagreen" + "peachpuff4" "darkviolet" "dimgrey" "darkgoldenrod")) + +(define (pop-color hint) + "Return a Graphviz color based on HINT, an arbitrary object." + (let ((index (hash hint (vector-length %colors)))) + (vector-ref %colors index))) + (define (emit-prologue name port) (format port "digraph \"Guix ~a\" {\n" name)) @@ -140,8 +150,8 @@ typically returned by 'node-edges' or 'node-back-edges'." (format port " \"~a\" [label = \"~a\", shape = box, fontname = Helvetica];~%" id label)) (define (emit-edge id1 id2 port) - (format port " \"~a\" -> \"~a\" [color = red];~%" - id1 id2)) + (format port " \"~a\" -> \"~a\" [color = ~a];~%" + id1 id2 (pop-color id1))) (define %graphviz-backend (graph-backend emit-prologue emit-epilogue -- cgit v1.2.3