(require 'package)

(delete-directory "/tmp/400-bad-request" t)

(setf user-emacs-directory "/tmp/400-bad-request/.emacs"
      package-user-dir "/tmp/400-bad-request/elpa"
      package-archives '(("gnu" . "https://elpa.gnu.org/packages/")))

(package-initialize)
(package-refresh-contents)
(package-read-all-archive-contents)

(let ((inhibit-message t))
  (package-install-from-archive (cadr (assq 'org package-archive-contents)))
  ;(clrhash url-http-open-connections)  ; WORKAROUND
  (package-install-from-archive (cadr (assq 'org-edna package-archive-contents))))