@@ -10,7 +10,7 @@

                  :aws-sdk

                  :aws-sdk/services/sts

                  :cells

-                 :cl-yaml

+                 :fset

                  :cxml

                  :daydreamer

                  :fwoar-lisputils

@@ -22,7 +22,8 @@

     :serial t

     :components ((:module "src"

                   :serial t

-                  :components ((:file "package")

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

+                               (:file "package")

                                (:file "store")

                                (:file "aws-dispatcher")

                                (:file "domain")

new file mode 100644

@@ -0,0 +1,29 @@

+(defpackage :mfa-tool.pprint-setup

+  (:use :cl )

+  (:export

+   #:pprint-hashtable

+   #:setup-pprint))

+

+(in-package :mfa-tool.pprint-setup)

+

+(defparameter *old-pprint-dispatch* *print-pprint-dispatch*)

+

+(defun pprint-hashtable (s hash-table)

+  (pprint-logical-block (s nil)

+    (princ "#<hash-table"  s)

+    (let ((v (fset:convert 'list (fset:convert 'fset:map hash-table))))

+      (when v

+        (pprint-logical-block (s v)

+          (pprint-indent :block 0 s)

+          (loop do

+            (destructuring-bind (key . value) (pprint-pop)

+              (format s " ~s: ~s" key value)

+              (pprint-exit-if-list-exhausted)

+              (princ ", " s)

+              (pprint-newline :mandatory s))))))

+    (princ #\> s)))

+

+(defun setup-pprint ()

+  (setf *print-pprint-dispatch* (copy-pprint-dispatch *old-pprint-dispatch*)

+        *print-pretty* t)

+  (set-pprint-dispatch 'hash-table 'pprint-hashtable))