;; This file: http://user.it.uu.se/~embe8573/conf/emacs-init/ide/lisp.el

(require 'super)
(require 'comint)

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

;; CL
(defvar inferior-lisp-program)
(setq inferior-lisp-program "/usr/bin/sbcl --noinform")

;; interaction
(add-hook 'lisp-interaction-mode-hook #'disable-super-global-keys)

;; IELM
(defvar ielm-map)

;; (setq ielm-mode-hook nil)
(defun ielm-mode-hook-f ()
  (disable-super-global-keys)
  (let ((the-map ielm-map))
    (define-key the-map "\C-xk" #'bury-buffer)
    (define-key the-map "\C-p"  #'comint-previous-input)
    (define-key the-map "\C-n"  #'comint-next-input) ))
(add-hook 'ielm-mode-hook #'ielm-mode-hook-f)

(provide 'lisp-new)