#lang racket/base

(require racket/match)

(require "editor.rkt")
(require "buffer.rkt")
(require "mode.rkt")
(require "mode/fundamental.rkt")

(define (main)
  (define e (make-editor #:default-modeset (modeset-add-mode kernel-modeset
                                                             fundamental-mode)))
  (visit-file! e (build-path (collection-file-path "main.rkt" "rmacs")
                             'up 'up "doc" "xterm_controls.txt"))
  (editor-mainloop e))

(module+ main
  (local-require racket/trace)
  (current-trace-notify (lambda (s) (log-info "TRACE: ~a" s)))
  (void (main)))