syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Better defaults; print defaults accurately

This commit is contained in:
Tony Garnock-Jones 2017-08-22 16:44:07 -04:00
parent 88d324929d
commit 930e4270b4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/syndicate/trace/render-msd.rkt
View File

@ -194,9 +194,9 @@
[(annotate-swimlane pos color annotation)
(update-statemap statemaps pos (list color annotation))]))
(define WIDTH (make-parameter 50))
(define HEIGHT (make-parameter 20))
(define GAP (make-parameter 20))
(define WIDTH (make-parameter 100))
(define HEIGHT (make-parameter 4))
(define GAP (make-parameter 4))
(define ACTIVE-WIDTH 10)
(define ACTION-COLOR "white")
@ -349,11 +349,11 @@
(set! *scale* (string->number scale))]
[("-t" "--target") target "Choose target: screen, png, png@2x, svg, eps, pdf"
(set! *target* (string->symbol target))]
[("--width") width "Width of swimlane cells (default: 50)"
[("--width") width ((format "Width of swimlane cells (default: ~a)" (WIDTH)))
(WIDTH (string->number width))]
[("--height") height "Minimum height of rows (default: 20)"
[("--height") height ((format "Minimum height of rows (default: ~a)" (HEIGHT)))
(HEIGHT (string->number height))]
[("--gap") gap "Extra space between rows (default: 20)"
[("--gap") gap ((format "Extra space between rows (default: ~a)" (GAP)))
(GAP (string->number gap))]
#:args (filename)
filename))