mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

graph: Don't insist on "Helvetica" in the Graphviz backend.

Browse source 
Suggested by Fulbert <fulbert@bluewin.ch>.

* guix/graph.scm (emit-node): Use "sans" instead of "Helvetica".
This commit is contained in:
Ludovic Courtès 2020-10-22 10:41:06 +02:00
parent 2f107f273d
commit 16155bbeb8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/graph.scm
View file

@ -238,7 +238,7 @@ (define (emit-prologue name port)
(define (emit-epilogue port)
(display "\n}\n" port))
(define (emit-node id label port)
(format port " \"~a\" [label = \"~a\", shape = box, fontname = Helvetica];~%"
(format port " \"~a\" [label = \"~a\", shape = box, fontname = sans];~%"
id label))
(define (emit-edge id1 id2 port)
(format port " \"~a\" -> \"~a\" [color = ~a];~%"