display.scm

   1 #!/usr/bin/guile --listen
   2 !#
   3
   4 (use-modules (ncurses curses)
   5              (srfi    srfi-9)
   6              (system repl server))
   7
   8 (define app (make-tcp-server-socket #:port 37146))
   9
  10 (spawn-server app)
  11
  12 (define-record-type <subeditor>
  13   (make-subeditor main-display modeline contents)
  14   subeditor?
  15   (main-display subeditor-main set-subeditor-main!)
  16   (modeline subeditor-modeline set-subeditor-modeline!)
  17   (contents sub-editor-contents set-subeditor-contents!))
  18
  19 (define stdscr (initscr))
  20
  21 (define (__display-init)
  22   (begin
  23     (cbreak!)
  24     (noecho!)
  25     (nonl!)
  26     (intrflush! #f)
  27     (keypad! stdscr #t)))
  28
  29 (__display-init)
  30
  31 (addstr stdscr "Hello world")
  32
  33 (refresh stdscr)
  34
  35 (getch stdscr)
  36
  37 (endwin)
  38
  39 (stop-server-and-clients!)