guile-termenv/termenv.scm

18 lines
370 B
Scheme
Raw Normal View History

2024-02-09 13:56:13 +00:00
(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 "\\"))