src/main.ps

(in-package sugar-qsp)

(setf (root)
      (ps:create vars (ps:create)
                 objs (list)
                 state-stash (ps:create)
                 acts (ps:create)
                 locs (ps:create)))

;; Launch the game from the first location
(setf window.onload
      (lambda ()
        (funcall (ps:getprop (root locs)
                             (ps:chain *object (keys (root locs)) 0)))
        (values)))

;; Close the dropdown on any click
(setf window.onclick
      (lambda (event)
        (setf (ps:@ (api-call get-frame :dropdown) style display) "none")))