18 lines
370 B
Scheme
18 lines
370 B
Scheme
|
(define-module (termenv)
|
||
|
|
#:export (;; foreground-color
|
||
|
|
;; background-color
|
||
|
|
;; has-dark-background
|
||
|
|
|
||
|
|
%ESC
|
||
|
|
%BEL
|
||
|
|
%CSI
|
||
|
|
%OSC
|
||
|
|
%ST))
|
||
|
|
|
||
|
|
|
||
|
|
(define %ESC "\x1b")
|
||
|
|
(define %BEL "\a")
|
||
|
|
(define %CSI (string-append %ESC "["))
|
||
|
|
(define %OSC (string-append %ESC "]"))
|
||
|
|
(define %ST (string-append %ESC "\\"))
|