place-cider-test-report

place-cider-test-report-window.el

(defun create-test-report-window (&rest _)
  "Create window to show test report buffer, if one exists.
Place it to the right of the current window. If a window for the test report
buffer already exists, don't create a new one."
  (when-let* ((buf (get-buffer cider-test-report-buffer)))
    (unless (get-buffer-window buf)
      (let ((buffer-window (split-window (selected-window)
                                         (/ (window-width) 2)
                                         'right)))
        (set-window-buffer buffer-window buf)
        (display-buffer-record-window 'window buffer-window buf)
        (set-window-prev-buffers buffer-window nil)
        (select-window buffer-window)))))

(advice-add 'cider-test-show-report :before #'create-test-report-window)
(advice-add 'cider-popup-buffer :before #'create-test-report-window)