racket-ansi/rmacs/main.rkt

18 lines
421 B
Racket
Raw Normal View History

2014-12-20 23:09:40 +00:00
#lang racket/base
(require racket/match)
2014-12-23 06:43:01 +00:00
(require "editor.rkt")
(require "buffer.rkt")
(require "mode/fundamental.rkt")
2014-12-20 23:09:40 +00:00
(define (main)
2014-12-23 06:43:01 +00:00
(define e (make-editor))
(visit-file! e (build-path (collection-file-path "main.rkt" "rmacs")
'up 'up "doc" "xterm_controls.txt"))
(buffer-add-mode! (current-editor-buffer e) fundamental-mode)
(editor-mainloop e))
2014-12-20 23:09:40 +00:00
(module+ main
(void (main)))