;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.projectional-editor)

;; KLUDGE:
(setf sdl:*default-color* sdl:*black*)

;;;;;;
;;; SLIME specific editor clases

(def class* editor/slime (editor)
  ())

;;;;;;
;;; SLIME specific editor constructors

(def method make-editor (&key &allow-other-keys)
  (make-instance 'editor/slime
                 :devices (list (make-instance 'device/mouse)
                                (make-instance 'device/keyboard)
                                (make-device/display/slime))
                 :event-queue (make-instance 'event-queue :events nil)
                 :gesture-queue (make-instance 'gesture-queue :gestures nil)
                 :operation-tree (make-instance 'operation-tree :operations nil)))

;;;;;;
;;; SLIME specific editor API implementation

(def method read-event ((devices sequence))
  (make-instance 'event/window/quit))