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.
|
|
|
|
|
#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 page-size #false)
|
|
|
|
|
|
(define font-sizes #false)
|
|
|
|
|
|
(define line-heights #false)
|
|
|
|
|
|
(define families
|
|
|
|
|
|
(command-line #:program "fontproof"
|
|
|
|
|
|
#:argv (current-command-line-arguments)
|
|
|
|
|
|
#:once-each
|
|
|
|
|
|
[("-p" "--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)]
|
|
|
|
|
|
[("-s" "--size") font-sizes-arg "font sizes" (set! font-sizes font-sizes-arg)]
|
|
|
|
|
|
[("-l" "--line") line-heights-arg "line heights" (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))))
|
|
|
|
|
|
|
|
|
|
|
|
|
