xh4

(in-package :cl-user)

(ql:quickload :cl-who)
(ql:quickload :spinneret)

(defpackage :html-test
  (:use :cl :cl-who :spinneret))

(in-package :html-test)

xh4

(defun cider-beautify-buffer-ns (ns-string)
  "=")

(defun cider-repl-emit-prompt (buffer)
  "Emit the REPL prompt into BUFFER."
  (with-current-buffer buffer
    (save-excursion
      (cider-save-marker cider-repl-output-start
        (cider-save-marker cider-repl-output-end
          (cider-repl--insert-prompt (cider-beautify-buffer-ns cider-buffer-ns)))))