@@ -13,6 +13,7 @@

                  :fset

                  :dexador

                  :quri

+                 :cl-one-time-passwords

                  :cxml

                  :daydreamer

                  :fwoar-lisputils

@@ -1,5 +1,17 @@

 (in-package :mfa-tool)

+(defun get-mfa (_ interface)

+  (declare (ignore _))

+  (capi:apply-in-pane-process

+   (mfa-input interface)

+   (lambda ()

+     (setf (capi:text-input-pane-text (mfa-input interface))

+           (format nil "~6,'0d"

+                   (cl-totp:totp

+                    (serapeum:trim-whitespace

+                     (alexandria:read-file-into-string "~/.fwoar.co")))))

+     (go-on _ interface))))

+

 (capi:define-interface mfa-tool ()

   ((assumed-credentials :accessor assumed-credentials :initform (make-hash-table :test 'equal))

    (%default-account :initarg :default-account :reader default-account)

@@ -10,6 +22,7 @@

                                     :visible-min-width (list :character 80)

                                     :visible-min-height (list :character 25))

    (go-button capi:push-button :text "Go!" :callback 'go-on)

+   (mfa-button capi:push-button :text "MFA" :callback 'get-mfa)

    (mfa-input capi:text-input-pane

               :title "MFA Token:"

               :title-position :left

@@ -62,8 +75,10 @@

                           :callback-type :data-interface))

   (:layouts

    (button-layout capi:row-layout

-                  '(nil

-                    go-button))

+                  (append '(nil)

+                          (when (probe-file "~/.fwoar.co")

+                            (list 'mfa-button))

+                          '(go-button)))

    (data-layout  capi:column-layout

                  '(account-selector

                    role-selector