21 lines
561 B
Racket
21 lines
561 B
Racket
|
#lang racket/base
|
||
|
|
|
||
|
|
(require "display.rkt")
|
||
|
|
(require racket/match)
|
||
|
|
|
||
|
|
(define (main)
|
||
|
|
(define t (stdin-tty))
|
||
|
|
(tty-style t #:bold? #t #:background-color color-blue)
|
||
|
|
(tty-display t (format "Your screen is ~a rows and ~a columns.\r\n"
|
||
|
|
(tty-rows t)
|
||
|
|
(tty-columns t)))
|
||
|
|
(tty-style t #:bold? #f #:italic? #t)
|
||
|
|
(tty-display t "Italic.\r\n")
|
||
|
|
(tty-style t #:bold? #t)
|
||
|
|
(tty-display t "Bold and italic.\r\n")
|
||
|
|
(tty-style t #:bold? #f #:italic? #f)
|
||
|
|
(tty-display t "Neither.\r\n"))
|
||
|
|
|
||
|
|
(module+ main
|
||
|
|
(void (main)))
|