2014-12-20 23:09:40 +00:00
|
|
|
#lang racket/base
|
|
|
|
|
2014-12-22 22:14:13 +00:00
|
|
|
(require "editor.rkt")
|
|
|
|
(require "render.rkt")
|
2014-12-20 23:09:40 +00:00
|
|
|
(require racket/match)
|
|
|
|
|
|
|
|
(define (main)
|
2014-12-22 22:14:13 +00:00
|
|
|
(with-handlers ([exn? (lambda (e)
|
|
|
|
(local-require ansi)
|
|
|
|
(tty-restore!)
|
|
|
|
(raise e))])
|
|
|
|
(define e (make-editor))
|
|
|
|
(visit-file! e (build-path (collection-file-path "main.rkt" "rmacs")
|
|
|
|
'up 'up "doc" "xterm_controls.txt"))
|
|
|
|
(render-editor! e))
|
|
|
|
(sleep 2))
|
2014-12-20 23:09:40 +00:00
|
|
|
|
|
|
|
(module+ main
|
|
|
|
(void (main)))
|