From db5cd16428f88ceb7d2906486de6c18753f95ec6 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 30 Aug 2018 08:14:15 -0400
Subject: transition: Default to/from to previous/current scene, respectively.

Sane defaults make the transitions easier to use.

* starling/transition.scm (<transition>)[scene-from]: Default to
  current-scene.
  [scene-to]: Default to previous scene.
---
 starling/transition.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/starling/transition.scm b/starling/transition.scm
index f673d9c..826032e 100644
--- a/starling/transition.scm
+++ b/starling/transition.scm
@@ -66,8 +66,10 @@
 ;;;
 
 (define-class <transition> (<scene>)
-  (scene-from #:getter scene-from #:init-keyword #:from)
-  (scene-to #:getter scene-to #:init-keyword #:to)
+  (scene-from #:getter scene-from #:init-keyword #:from
+              #:init-thunk current-scene)
+  (scene-to #:getter scene-to #:init-keyword #:to
+            #:init-thunk previous-scene)
   (duration #:getter duration #:init-keyword #:duration))
 
 (define-generic do-transition)
-- 
cgit v1.2.3