@@ -1,5 +1,6 @@

 ASSET_DIRS = $(shell find assets/ -type d)

 ASSET_FILES = $(shell find assets/ -type f)

+LW_PATH = $(shell which lw)

 all: app.icns CJAWSAccess.app assets/accounts.json $(ASSET_DIRS) $(ASSET_FILES)

 	rsync -arvh assets/ CJAWSAccess.app/Contents/Resources/

@@ -29,3 +30,6 @@ cleanDmg:

 clean: cleanDmg

 	rm -f assets/accounts.json

 	rm -rf CJAWSAccess.app

+

+dev:

+	cp $(LW_PATH) CJAWSAccess.app/Contents/MacOS/lw

@@ -22,8 +22,10 @@

     :serial t

     :components ((:module "src"

                   :serial t

-                  :components ((:file "pprint-setup")

-                               (:file "package")

+                  :components ((:file "package")

+                               (:file "utils")

+                               (:file "capi-utils")

+                               (:file "pprint-setup")

                                (:file "store")

                                (:file "aws-dispatcher")

                                (:file "domain")

@@ -1,3 +1,13 @@

+(defun utf-8-file-encoding (pathname ef-spec buffer length)

+  (declare (ignore pathname buffer length))

+  (system:merge-ef-specs ef-spec :utf-8))

+

+(setq system:*file-encoding-detection-algorithm*

+      (substitute 'utf-8-file-encoding

+                  'system:locale-file-encoding

+                  system:*file-encoding-detection-algorithm*))

+(set-default-character-element-type 'simple-char)

+

 (in-package :cl-user)

 (setf *default-pathname-defaults*

  (make-pathname :directory (pathname-directory *load-pathname*)))

new file mode 100644

@@ -0,0 +1,8 @@

+(in-package :mfa-tool)

+

+(defun open-url (url)

+  (capi:contain (make-instance 'capi:browser-pane

+                               :url url)

+                :title "Management Console"

+                :best-width 1280

+                :best-height 800))

new file mode 100644

@@ -0,0 +1,17 @@

+(in-package :mfa-tool)

+

+(defmacro with-retry (form &body restart-cases)

+  `(loop (restart-case (return ,form)

+           (continue ())

+           ,@restart-cases)))

+

+(defmacro with-retry* (bindings &body body)

+  `(loop

+     (restart-bind (,@bindings)

+       ,@(butlast body)

+       ,(cons 'return (last body)))))

+

+(defmacro safely-invoke-restart (name condition &rest args)

+  (alexandria:with-gensyms (restart)

+    `(alexandria:when-let ((,restart (find-restart ,name ,condition)))

+       (invoke-restart ,restart ,@args))))