;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; -----------------------------------------------------------------------------

(-> 'll-dwim)

;; --------------------------------------------------------------------------
;; (keymap-set racket-mode-map "M-9" #'racket-eval-last-sexp)
;; (keymap-set racket-mode-map "M-n" #'racket-eval-buffer)
;; (racket-run)
;; -----------------------------------------------------------------------------

(defun racket-eval-region (&optional beg end)
  (interactive (use-region))
  (racket--assert-sexp-edit-mode)
  (unless (racket--repl-session-id)
    (user-error "No REPL session available; run the file first"))
  (racket--cmd/async
   (racket--repl-session-id)
   `(eval ,(buffer-substring-no-properties beg end))
   (L (v) (racket-show ($f "%s" v) end t))))

(defun racket-eval-buffer (&optional buf) (i)
  (or buf (setq buf (current-buffer)))
  (with-current-buffer buf
    (racket-eval-region)))

;; -----------------------------------------------------------------------------

(<- 'll-racket)

;; -----------------------------------------------------------------------------