sloth/sloth/interface.scm

(define-module (sloth interface)
  #:use-module (ncurses curses)
  #:export (init-win))

(define (init-win)
  (define win (initscr))
  (raw!)
  (noecho!)
  (keypad! win #t)
  win)