[formatting]

2 files changed, 13 insertions, 20 deletions

diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp
index fb43b08..b4b9be2 100644
--- a/examples/03-font-render.lisp
+++ b/examples/03-font-render.lisp
@@ -35,34 +35,29 @@
            :content "Hell! Oh World..."
            :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2)))))
 
-    
     (ww::set-height-preserve-aspect hello 100)
-
     (setf
      (ww::unit-x hello) 100
-     
      (ww::unit-y hello) 400)
-    
     (ww::add-handler hello #'marquee)
     (ww::add-handler hello #'change-text-color)
-    (ww::add-handler hello (ww::on-mousedown () (format t "I Was Clicked at ~a,~a!~%"
-                                                        x y)))
+    (ww::add-handler hello
+                     (ww::on-mousedown ()
+                       (format t "I Was Clicked at ~a,~a!~%"
+                               x y)))
     (ww::refocus-on hello)
-
-    (describe hello)
-
-    (ww::add-unit app hello)
-    ))
+    (ww::add-unit app hello)))
 
 
 (defun start ()
-  (ww::start (make-instance 'font-display
-                            :fps 60
-                            :refocus-on-mousedown-p nil
-                            :title "Wheelwork Example: Font display"
-                            :asset-root (merge-pathnames
-                                         "examples/"
-                                         (asdf:system-source-directory :wheelwork)))
+  (ww::start (make-instance
+              'font-display
+              :fps 60
+              :refocus-on-mousedown-p nil
+              :title "Wheelwork Example: Font display"
+              :asset-root (merge-pathnames
+                           "examples/"
+                           (asdf:system-source-directory :wheelwork)))
              :x 2380))
 
 
diff --git a/wheelwork.lisp b/wheelwork.lisp
index 555366b..5807f30 100644
--- a/wheelwork.lisp
+++ b/wheelwork.lisp
@@ -422,8 +422,6 @@ TARGET is FOCUSABLEP"
   "EVENT-TYPE must be one of the slot value names for WHEELWORK::LISTENER."
   (?> (unit) listener #$(slot-value $listener event-type)))
 
-
-
 (defun eventloop-keydown (app sdl-keysym)
   (let ((target (get-focus app))) 
     (when-let (handler (get-handler-for target 'keydown))