path: root/cscreen.lisp

(defpackage #:cscreen
  (:use #:common-lisp)
  (:export #:page #:cursor #:clrtoeol #:rvson #:rvsoff))
(in-package #:cscreen)
(defconstant +esc+ (coerce 27 'character))
(defun page ()
   (format *standard-output* "~C[2J" +esc+))
(defun cursor (row column)
   (format *standard-output* "~C[~D;~DH" +esc+ row column))
(defun clrtoeol ()
   (format *standard-output* "~C[0K" +esc+))
(defun rvson ()
   (format *standard-output* "~C[7m" +esc+))
(defun rvsoff ()
   (format *standard-output* "~C[27m" +esc+))
(provide "cscreen")