(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*)))
(format t "~&CURDIR: ~a~%" (truename "."))
(load-all-patches)
(load "~/quicklisp/setup.lisp")
(ql:quickload :swank)
(mapcar 'asdf:load-asd
        (directory "*.asd"))
(ql:quickload :aws-access)

(deliver (intern "MAIN" "MFA-TOOL")
         (create-macos-application-bundle
          "CJAWSAccess.app"
          :document-types nil
          :application-icns "app.icns"
          :identifier "fwoar.cj.AWSAccess"
          :version (asdf:component-version
                    (asdf:find-system :aws-access))
          :build (concatenate 'string
                              (subseq (uiop:run-program (list "git" "rev-parse" "HEAD") :output :string)
                                      0 7)
                              (uiop:run-program (list "zsh" "scripts/dirty-tag") :output :string)))
         0
         :keep-conditions :all
         :keep-pretty-printer t
         :interface :capi
         :keep-modules t
         :packages-to-keep-symbol-names '(:mfa-tool)
         :packages-to-keep '(:mfa-tool :swank)
         :startup-bitmap-file nil)