(define font "B612")
(define sticker-radius 3.82); mm
(define page-size a7-size)

(define glyphs
  (concatenate
    (list
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     uk-chars)
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     numbers)
      (map (lambda (l) (make-glyph l font "6" "red"        "none"))     brackets)
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     punct)
      (map (lambda (l) (make-glyph l font "6" "lightgreen" "none"))     symbols)
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     math)
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     tab)
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     backspace)
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     arrows)
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     upcase)
      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     enter)
      (map (lambda (l) (make-glyph l font "3" "white"      "italic"))   modifiers)
      (map (lambda (l) (make-glyph l font "3" "white"      "italic"))   pagers)
      (map (lambda (l) (make-glyph l font "6" "steelblue"  "none"))     media))))

(make-config page-size sticker-radius glyphs)