(import (scheme base)
        (yolk common))

;;; Common private modes

(define invisible-cursor
  (csi "?25l"))

(define visible-cursor
  (csi "?25h"))

(define save-screen
  (csi "?47h"))

(define restore-screen
  (csi "?47l"))

(define alt-buffer-enable
  (csi "?1049h"))

(define alt-buffer-disable
  (csi "?1049l"))