adjust gradient gen

master
Matthew Butterick 6 years ago
parent 0a653f8fac
commit 2803fb87e1

@ -12,7 +12,7 @@
(string-append out-string line-ending))) (string-append out-string line-ending)))
(define (make-css-string p v) (define (make-css-string p v)
(string-join (list (->string p) (->string v)) ": ")) (string-join (list (->string p) (->string v)) ": "))
(define (make-css-strings property-prefixes property-suffix values) (define (make-css-strings property-prefixes property-suffix values)
; general function for creating groups of css properties ; general function for creating groups of css properties
@ -47,8 +47,8 @@
(string-join (cons (format "@media all {html {font-size: ~apx;}}" starting-size) (string-join (cons (format "@media all {html {font-size: ~apx;}}" starting-size)
(for/list ([size (in-range starting-size (sub1 ending-size) (* -1 step-size))] (for/list ([size (in-range starting-size (sub1 ending-size) (* -1 step-size))]
#:unless (< size ending-size)) #:unless (< size ending-size))
(format "@media all and (max-width:~apx){html {font-size: ~apx;}}" (format "@media all and (max-width:~apx){html {font-size: ~apx;}}"
(- max-width (* interval (- starting-size size))) size))) "\n")) (- max-width (* interval (- starting-size size))) size))) "\n"))
(module+ main (module+ main
@ -113,7 +113,11 @@
; set up gradient options ; set up gradient options
(define gradient-type (if radial "radial" "linear")) (define gradient-type (if radial "radial" "linear"))
(define gradient-direction (or direction (if horizontal "left" "top"))) (define gradient-direction
(format "~a~a" (if radial "circle at " "")
(if direction
(if horizontal "left" "top")
"center")))
; can't use standard make-css-strings in this case because the prefixes appear in the value, ; can't use standard make-css-strings in this case because the prefixes appear in the value,
; not in the property (which is always "background") ; not in the property (which is always "background")

Loading…
Cancel
Save