2016-06-13 21:15:40 +00:00
|
|
|
;; (require 'chicken)
|
2015-11-24 21:45:45 +00:00
|
|
|
|
2016-06-13 21:18:54 +00:00
|
|
|
;; (require 'slime)
|
2015-11-24 21:45:45 +00:00
|
|
|
(require 'slime-autoloads)
|
|
|
|
(global-set-key (kbd "<f5> s") 'slime)
|
2016-06-13 21:18:54 +00:00
|
|
|
(with-eval-after-load 'slime
|
|
|
|
(slime-setup)
|
|
|
|
(setq inferior-lisp-program "/usr/bin/sbcl")
|
|
|
|
(cp-set-keys
|
|
|
|
:keymap slime-mode-map
|
|
|
|
:bindings
|
|
|
|
`((,(kbd "M-n") next-line)
|
|
|
|
(,(kbd "M-p") previous-line))))
|
2016-06-12 05:25:57 +00:00
|
|
|
|
|
|
|
(defun set-cl-repl-keys ()
|
|
|
|
(if (or (cp-buffer-name-match-p "^\*inferior-lisp\*\\(<[0-9]*>\\)?")
|
|
|
|
(eq major-mode 'lisp-mode))
|
|
|
|
(local-set-key (kbd "TAB") 'completion-at-point)))
|
|
|
|
|
|
|
|
(add-hook 'slime-connected-hook 'set-cl-repl-keys)
|
|
|
|
(add-hook 'comint-mode-hook 'set-cl-repl-keys)
|
|
|
|
(add-hook 'lisp-mode-hook 'set-cl-repl-keys)
|
2015-11-24 21:45:45 +00:00
|
|
|
|
|
|
|
(setq scheme-program-name "csi -:c")
|
|
|
|
(setq comint-prompt-read-only t)
|
2016-06-12 05:26:30 +00:00
|
|
|
|
|
|
|
(require 'geiser)
|
|
|
|
(require 'geiser-mode)
|
|
|
|
(cp-set-keys
|
|
|
|
:unset t
|
|
|
|
:keymap geiser-mode-map
|
|
|
|
:bindings
|
|
|
|
`((,(kbd "C-."))))
|