;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/ide/lisp-incal.el

(require 'backtrace)
(require 'close)
(require 'comint)
(require 'ielm)
(require 'inf-lisp)
(require 'regexp)
(require 'scroll)
(require 'simple)
(require 'super)

(defun remove-cl-notation ()
  (interactive)
  (replace-regexp-1 "\\*\\([[:alpha:]-]*\\)\\*" "\\1") )

(defun do-repeat-complex-command ()
  (interactive)
  (eval (car command-history)) )

;; backtrace-mode

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

;; process menu mode

(let ((kmap process-menu-mode-map))
  (disable-super-global-keys kmap)
  (set-vertical-keys         kmap t)
  (set-close-key             kmap) )

;; inferior-lisp-mode

(let ((kmap inferior-lisp-mode-map))
  (disable-super-global-keys kmap) )

;; lisp-mode

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

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

;; ielm

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

(provide 'lisp-incal)