guile-termenv/termenv/color.scm

8 lines
190 B
Scheme

(define-module (termenv color)
#:use-module (ice-9 format)
#:export (make-color))
;; TODO more restrictive hex formatting
(define (make-color r g b)
(format #f "rgb:~x/~x/~x" r g b))