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

(require 'luki-lisp)

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

(-> 'backtrace)
(-> 'comint)
(-> 'ielm)
(-> 'inf-lisp)
(-> 'll-close)
(-> 'll-scroll)
(-> 'simple)

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

(defun do-repeat-complex-command () (i)
  (eval (1st command-history)))

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

(set-close-key backtrace-mode-map)

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

(let ((kmap process-menu-mode-map))
  (set-vertical-keys kmap 'button)
  (set-close-key kmap))

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

(defun lisp-eval-buffer () (i)
  (lisp-eval-region (point-min) (point-max)))

(let ((kmap lisp-mode-map))
  (keymap-set kmap "M-9" #'lisp-eval-last-sexp)
  (keymap-set kmap "M-n" #'lisp-eval-buffer))

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

(let ((kmap ielm-map))
  (keymap-set kmap "C-n"   #'comint-next-input)
  (keymap-set kmap "C-p"   #'comint-previous-input)
  (keymap-set kmap "C-x k" #'bury-buffer))

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

(<- 'll-lisp)