(in-package :cl-user)
(defpackage transacc
  (:use :cl)
  (:export :main))

(in-package :transacc)

(clim:define-application-frame superapp ()
  ()
  ;; :panes section describes different parts of the
  ;; application-frame. This application has only one pane.
  (:panes
   (int :interactor :height 400 :width 600))

  ;; :layouts section describes how the panes are layed out.
  ;; This application has one layout named "default" which has a single pane.
  (:layouts
   (default int)))

(defun format-panel (panel)
  (loop for it in panel do
		(format t "~a :~T ~$$ [~@$$] owned: ~a~%"
				(getf it :name)
				(getf it :price)
				(getf it :profit)
				(getf it :qty))))

(defun main ()
   (let* ((p (player:init-player "Joze"))
		 (c (list (commodities:new-commodity "apple" 5)
				  (commodities:new-commodity "pear" 7)))
		 (c2 (list (commodities:new-commodity "apple" 6)
				   (commodities:new-commodity "pear" 2)))
		 (z (zone:new-zone "Bronx" c))
		 (z2 (zone:new-zone "Manhattan" c2))
		 (g (game:new-game p z2 (list z z2))))

	 ;; Panel command
	 (define-superapp-command (com-panel :name t) ()
	   (format-panel (game:commodities-panel g)))
	 ;; Buy command
	 (define-superapp-command (com-buy :name t)
		 ((item 'string) (quantity 'integer))
	   (game:buy-item g item quantity))
	 ;; Sell command
	 (define-superapp-command (com-sell :name t)
		 ((item 'string) (quantity 'integer))
	   (game:sell-item g item quantity))
	 ;; Goto command
	 (define-superapp-command (com-goto :name t)
		 ((dest 'string))
	   (game:change-zone g dest))
	 
	 (clim:run-frame-top-level (clim:make-application-frame 'superapp))))