(defpackage :mfa-tool.aws-dispatcher
  (:use :cl)
  (:export #:aws-dispatcher #:update-stacks #:select-stack #:stacks #:stack
           #:put-stack
           #:refresh-stack))
(in-package :mfa-tool.aws-dispatcher)

(defclass aws-dispatcher ()
  ((%region :reader region :accessor %region
            :initarg :region)
   (%credentials :reader credentials
                 :initarg :credentials))
  (:default-initargs
   :region :|us-east-1|
   :credentials (error "AWS-DISPATCHER requires a :CREDENTIALS initarg")))

(defmacro defprint-slots (class slots)
  `(defmethod print-object ((o ,class) s)
     (with-slots ,slots o
       (print-unreadable-object (o s :type t :identity t)
         (format s "~@{~s~^, ~}"
                 ,@slots)))))
(defprint-slots daydreamer.aws-result:stack
    (daydreamer.aws-result::%stack-name))

(defclass refresh-stack ()
  ((%stack :reader stack :initarg :stack)))
(defprint-slots refresh-stack (%stack))
(defun refresh-stack (stack)
  (fw.lu:new 'refresh-stack stack))

(defclass put-stack ()
  ((%stack :reader stack :initarg :stack)))
(defun put-stack (stack)
  (fw.lu:new 'put-stack stack))

(defclass update-stacks ()
  ((%stacks :initarg :stacks :reader stacks)))
(defun update-stacks (stacks)
  (fw.lu:new 'update-stacks stacks))

(defclass select-stack ()
  ((%stacks :initarg :stack :reader stack)))
(defprint-slots select-stack (%stacks))

(defun select-stack (stack)
  (fw.lu:new 'select-stack stack))

(defclass update-region ()
  ((%new-region :initarg :region :reader region)))
(defun update-region (region)
  (fw.lu:new 'update-region region))

(defmethod mfa-tool.store:dispatch :around ((store aws-dispatcher) action)
  (let ((aws-sdk:*session* (aws-sdk:make-session :credentials (credentials store)
                                                 :region (region store))))
    (call-next-method)))

(defmethod mfa-tool.store:execute ((store aws-dispatcher) (action update-region))
  (setf (%region store) (region action)))

(defmethod mfa-tool.store:dispatch :after ((store aws-dispatcher) (action update-region))
  (mfa-tool.store:dispatch store :|Get Stacks|))

(defmethod mfa-tool.store:dispatch :after ((store aws-dispatcher) (action refresh-stack))
  (let ((new-value (daydreamer.aws-result:extract-stack
                    (car
                     (daydreamer.aws-result:extract-list
                      (cdar
                       (aws/cloudformation:describe-stacks
                        :stack-name (daydreamer.aws-result:stack-name
                                     (stack action)))))))))
    (mfa-tool.store:dispatch store (put-stack new-value))))

(defmethod mfa-tool.store:dispatch :after ((store aws-dispatcher) (action (eql :|Get Stacks|)))
  (bt:make-thread
   (lambda ()
     (let ((aws-sdk:*session* (aws-sdk:make-session :credentials (credentials store)
                                                    :region (region store))))
       (mfa-tool.store:dispatch store
                                (update-stacks (mapcar 'daydreamer.aws-result:extract-stack
                                                       (daydreamer.aws-result:extract-list
                                                        (cdar
                                                         (aws/cloudformation:describe-stacks))))))))
   :name "Stack Fetcher"))