(in-package :mfa-tool)
 
 (defun bundle-resource-root ()
   (make-pathname :directory
                  (pathname-directory
                   (objc:invoke-into 'string
                                     (objc:invoke "NSBundle" "mainBundle") 
                                     "pathForResource:ofType:" "app" "icns"))))
 

 (defun bundle-resource (relpath)

   (merge-pathnames (namestring relpath)

                    (bundle-resource-root)))
 

 (defun json-resource (path)
   (bundle-resource
    (merge-pathnames (make-pathname :type "json")
                     path)))
 

 (defun clear-cookies ()
   (let ((cookie-storage (objc:invoke "NSHTTPCookieStorage" "sharedHTTPCookieStorage")))
     (map nil
          (lambda (cookie) 
            (objc:invoke cookie-storage "deleteCookie:" cookie))
          (objc:invoke-into 'array cookie-storage "cookies"))))