checking for completes in a sequence

1 files changed, 4 insertions, 0 deletions

diff --git a/tweening.lisp b/tweening.lisp
index df9b398..4de5c21 100644
--- a/tweening.lisp
+++ b/tweening.lisp
@@ -25,6 +25,10 @@
          (setf (loop-mode ,this-seq) ',loop-mode)
          ,this-seq))))
 
+(defun take-action (action &key (delay 20) (at 0))
+  (let ((anim (pause delay at)))
+    (setf (on-complete anim) action)
+    anim))
 
 (defun pausing (&key for at)
   "A light wrapper around PAUSE. Is aware of default parameters that may have