From 43adba9ea35bd416f2e5b704c320c25a8b660dc4 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Sun, 4 Oct 2020 22:25:30 -0400
Subject: kernel: Reorganize a bit.

---
 starling/kernel.scm | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/starling/kernel.scm b/starling/kernel.scm
index 3f19d5f..15e05e3 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -70,13 +70,10 @@
             reboot-current-scene)
   #:re-export (abort-game))
 
-(define-class <window-config> ()
-  (width #:accessor window-width #:init-form 640 #:init-keyword #:width)
-  (height #:accessor window-height #:init-form 480 #:init-keyword #:height)
-  (title #:accessor window-title #:init-form "Lisparuga"
-         #:init-keyword #:title)
-  (fullscreen? #:accessor window-fullscreen? #:init-form #f
-               #:init-keyword #:fullscreen?))
+
+;;;
+;;; FPS Display
+;;;
 
 (define-class <fps-display> (<node>))
 
@@ -110,6 +107,19 @@
   (set! (text (& fps-display canvas fps-label))
     (format #f "~1,1f" fps)))
 
+
+;;;
+;;; Kernel
+;;;
+
+(define-class <window-config> ()
+  (width #:accessor window-width #:init-form 640 #:init-keyword #:width)
+  (height #:accessor window-height #:init-form 480 #:init-keyword #:height)
+  (title #:accessor window-title #:init-form "Lisparuga"
+         #:init-keyword #:title)
+  (fullscreen? #:accessor window-fullscreen? #:init-form #f
+               #:init-keyword #:fullscreen?))
+
 (define-class <kernel> (<scene-mux>)
   (name #:accessor name #:init-form "lisparuga-kernel"
         #:init-keyword #:name)
-- 
cgit v1.2.3