(load "./ow.el")
(setq user-emacs-directory (concat "/tmp/emacs-yay-bisecting-across-bytecode-changes/" emacs-bzr-version "/.emacs.d/"))
(setq package-user-dir (concat user-emacs-directory "elpa/"))
(make-directory user-emacs-directory 'parents)
(ow-enable-use-package)
(ow-use-packages racket-mode)

(defun repeated-element ()
  (racket-run-module-at-point)
  (sleep-for 5)
  (backward-sexp)
  (kill-line)
  (save-buffer)
  (sleep-for 5)
  (racket-run-module-at-point)
  (sleep-for 5)
  (insert "\n'asdf\n")
  (save-buffer)
  (sleep-for 5))

(let ((buffer (find-file "~/git/sparc-curation/sparcur_internal/sparcur/viewer.rkt")))
  (with-current-buffer buffer
    (racket-xp-mode)
    (goto-char (point-max))
    (insert "\n")
    (goto-char (point-max))

    (racket-run-module-at-point)
    (sleep-for 10)

    (insert "\n'asdf\n")
    (save-buffer)
    (sleep-for 5)

    (repeated-element)
    (repeated-element)
    (let (confirm-kill-processes)
      (kill-emacs))))