Skip to content

Instantly share code, notes, and snippets.

module Test
import TestProvider
%default total
%language TypeProviders
add : Int -> Int -> Int
add x y = 0
%provide (result : String) with compileTest [
@joncol
joncol / place-cider-test-report-window.el
Last active December 3, 2019 17:36
place-cider-test-report
(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)