(in-package :mfa-tool)

(capi:define-interface reauth-interface ()
  ((error-message :initarg :error-message)
   (auth-user :initarg :auth-user))
  (:panes (error-display capi:display-pane
                         :background :transparent
                         :text error-message)
          (user-input capi:text-input-pane
                      :title "User:"
                      :title-position :left
                      :title-args '(:visible-min-width (:character 10))
                      :text auth-user
                      :reader user-input)
          (mfa-input capi:text-input-pane
                     :title "MFA Token:"
                     :title-position :left
                     :max-characters 6
                     :title-args '(:visible-min-width (:character 10))
                     :reader mfa-input))
  (:layouts (main-layout capi:column-layout
                         '(error-display
                           nil
                           user-input
                           mfa-input)
                         :visible-min-width '(:character 50)
                         :adjust :center))

  (:default-initargs
   :layout 'main-layout))

(defun reauth-result (reauth-interface)
  (let ((result (list (capi:text-input-pane-text (user-input reauth-interface))
                      (capi:text-input-pane-text (mfa-input reauth-interface)))))
    (if (and (position #\@ (first result))
             (every 'digit-char-p (second result))
)
        result
      (values result t))))