2018-07-29 21:50:17 +08:00
|
|
|
;;; lang/racket/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
2019-10-08 02:08:58 +08:00
|
|
|
(defun +racket/open-repl ()
|
2018-07-29 21:50:17 +08:00
|
|
|
"Open the Racket REPL."
|
|
|
|
|
(interactive)
|
|
|
|
|
(pop-to-buffer
|
|
|
|
|
(or (get-buffer "*Racket REPL*")
|
|
|
|
|
(progn (racket-run-and-switch-to-repl)
|
|
|
|
|
(let ((buf (get-buffer "*Racket REPL*")))
|
|
|
|
|
(bury-buffer buf)
|
|
|
|
|
buf)))))
|
