(import scheme
	(chicken base)
	(chicken format)
	(chicken process-context)
	(chicken condition)
	(chicken pretty-print)
	(srfi 1)
	miscmacros
	(prefix sdl2 "sdl2:")
        (prefix sdl2-ttf "ttf:")
	(prefix sdl2-image "img:")
	tilemap)

(define +color-depth+ 32)
(define +screen-width+ 600)
(define +screen-height+ 400)
(define *fullscreen?* #f)
(define +background-color+ (sdl2:make-color 0 0 0))
(define +software-mode?+ (member "--software" (command-line-arguments)))
(define +vsync?+ (member "--vsync" (command-line-arguments)))

(sdl2:set-main-ready!)
(sdl2:init! '(video joystick))
(ttf:init!)
(img:init! '(png))

(on-exit sdl2:quit!)

;; Install a custom exception handler that will call quit! and then
;; call the original exception handler. This ensures that quit! will
;; be called even if an unhandled exception reaches the top level.
(current-exception-handler
 (let ((original-handler (current-exception-handler)))
   (lambda (exception)
     (sdl2:quit!)
     (original-handler exception))))

(if (and +vsync?+ (not +software-mode?+)) ; vsync doesn't work with software rendering
    (sdl2:set-hint! 'render-vsync "1"))
(define *window* (sdl2:create-window! "Mackerel Knight"
                                      'centered 'centered
                                      +screen-width+ +screen-height+
                                      (if *fullscreen?* '(fullscreen) '())))
(define *renderer* (sdl2:create-renderer! *window* -1
                                          (if +software-mode?+ '(software) '(accelerated))))

(define *font* (ttf:open-font "DejaVuSans.ttf" 12))
(define *text-color* (sdl2:make-color 255 255 255))
(pp (sdl2:num-joysticks))
(define *joystick* (if (> (sdl2:num-joysticks) 0)
		       (sdl2:joystick-open! 0)
		       #f))
(define *level* (load-tilemap "assets/level-0.tmx"))

(define (draw-tile target tileset tile-id))

(set! (sdl2:render-draw-color *renderer*) +background-color+)
(sdl2:render-clear! *renderer*)

(let/cc exit-main-loop!
	(while #t
	  (set! (sdl2:render-draw-color *renderer*) +background-color+)
          (sdl2:render-clear! *renderer*)
	  (sdl2:pump-events!)
	  (while (sdl2:has-events?)
	    (let ((event (sdl2:make-event)))
	      (sdl2:poll-event! event)
	      (pp event)
	      (when (and (sdl2:keyboard-event? event)
			 (eq? (sdl2:event-type event) 'key-down)
			 (eq? (sdl2:keyboard-event-sym event) 'escape))
		(exit-main-loop!))))

	  (sdl2:render-present! *renderer*)

	  (sdl2:delay! 10)))

(sdl2:joystick-close *joystick*)

(format #t "Bye!\n")