You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This file contains invisible Unicode characters that may be processed differently from what appears below. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to reveal hidden characters.
#lang debug racket
( require " main.rkt " )
( module+ raco
( define command-name ( with-handlers ( [ exn:fail? ( λ ( exn ) #f ) ] )
( vector-ref ( current-command-line-arguments ) 0 ) ) )
( dispatch command-name ) )
( module+ main
( println " this is fontproof command " ) )
( define ( dispatch command-name )
( when ( positive? ( vector-length ( current-command-line-arguments ) ) )
( define output-file-path #false )
( define #false )
( define font-sizes #false )
( define line-heights #false )
( define families
( command-line #:program " fontproof "
#:argv ( current-command-line-arguments )
#:once-each
[ ( " --page " ) page-size-arg " page size " ( set! page-size page-size-arg ) ]
[ ( " -o " " --output " ) output-file-path-arg " output file path " ( set! output-file-path output-file-path-arg ) ]
[ ( " --size " ) font-sizes-arg " font sizes " ( set! font-sizes font-sizes-arg ) ]
[ ( " --leading " ) line-heights-arg " font size " ( set! line-heights line-heights-arg ) ]
#:args families
families ) )
( for ( [ family ( in-list families ) ] )
( make-proof family
#:page-size page-size
#:font-sizes font-sizes
#:line-heights line-heights
#:output-file-path output-file-path ) ) ) )