From 7bf212df6c3cf0d16b7145ddb18b97f504717230 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 8 Jul 2022 10:13:16 -0500
Subject: [add] exports to pacage; [rename] frameset-key/sprite-frameset-key

---
 src/interactive/button.lisp |  2 +-
 src/interactive/sprite.lisp |  4 +--
 src/package.lisp            | 82 ++++++++++++++++++++++++++++++++++++++++++++-
 3 files changed, 84 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/interactive/button.lisp b/src/interactive/button.lisp
index 08f7f37..0a15d79 100644
--- a/src/interactive/button.lisp
+++ b/src/interactive/button.lisp
@@ -7,7 +7,7 @@
        :std (error "UP and DOWN lots are required")
        :doc "Any affine renderable unit")
    (bg :with)
-   (on-press on-release :doc "Function accepting the button."))
+   (on-press on-release :with :doc "Function accepting the button."))
   (:documentation "A basic button class. The UP and DOWN slots should
   be filled with renderable objects having the same size."))
 
diff --git a/src/interactive/sprite.lisp b/src/interactive/sprite.lisp
index 03bba8d..e478d37 100644
--- a/src/interactive/sprite.lisp
+++ b/src/interactive/sprite.lisp
@@ -4,11 +4,11 @@
 
 (defclass/std sprite (unit interactive)
   ((framesets :with :doc "A PLIST whose values are framesets.")
-   (frameset-key)))
+   (frameset-key :with)))
 
 (defun current-frameset (sprite)
   (getf (sprite-framesets sprite)
-        (frameset-key sprite)))
+        (sprite-frameset-key sprite)))
 
 (defmethod initialize-instance :after ((sprite sprite) &key)
   (with-slots (framesets frameset-key) sprite
diff --git a/src/package.lisp b/src/package.lisp
index 5a59057..dc18ef4 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -7,4 +7,84 @@
                     (#:vec #:3d-vectors))
   (:import-from #:defclass-std #:defclass/std)
   (:import-from #:alexandria
-                #:when-let #:when-let* #:if-let))
+                #:when-let #:when-let* #:if-let)
+  (:export
+   #:add-handler
+   #:add-unit
+   #:application
+   #:asset-root
+   #:asset-classifiers
+   #:appplication-scale
+   #:application-width
+   #:application-height
+   #:application-window
+   #:refocus-on-mousedown-p
+   #:application-focus
+   #:fps 
+   #:bitmap
+   #:boot
+   #:button
+   #:button-up
+   #:button-down
+   #:button-bg
+   #:button-on-press
+   #:button-on-release
+   #:container
+   #:container-left
+   #:container-right
+   #:container-top
+   #:container-bottom
+   #:container-units
+   #:current-frameset
+   #:defhandler
+   #:drop-unit
+   #:frameset-index
+   #:frameset-key
+   #:get-asset
+   #:get-focus 
+   #:make-frameset
+   #:on-after-added
+   #:on-before-added
+   #:on-before-dropped
+   #:on-blur
+   #:on-focus
+   #:on-keydown
+   #:on-keyup
+   #:on-mousedown
+   #:on-mousemotion
+   #:on-mousewheel
+   #:on-perframe
+   #:radians
+   #:refocus-on
+   #:remove-handler
+   #:runningp
+   #:shutdown
+   #:sprite
+   #:sprite-frameset
+   #:sprite-frameset-key
+   #:start
+   #:text
+   #:text-color
+   #:unit-container
+   #:unit-visbilep
+   #:units-intersect-p
+   #:x
+   #:y
+   #:width
+   #:height
+   #:rotation
+   #:scale-by
+   #:keydown
+   #:keyup
+   #:mousedown
+   #:mouseup
+   #:mousemotion
+   #:mousewheel
+   #:focus
+   #:blur
+   #:perframe
+   #:after-added
+   #:before-added
+   #:before-dropped
+   
+   ))
-- 
cgit v1.2.3