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
|
|
|
|
2016-06-13 21:22:48 +00:00
|
|
|
(add-to-list 'auto-mode-alist '("\\.scm\\'" . geiser-mode))
|
|
|
|
;; (require 'geiser)
|
|
|
|
(autoload 'geiser-mode "geiser-mode" "geiser-mode." t)
|
|
|
|
(with-eval-after-load 'geiser-mode
|
|
|
|
(cp-set-keys
|
|
|
|
:unset t
|
|
|
|
:keymap geiser-mode-map
|
|
|
|
:bindings
|
|
|
|
`((,(kbd "C-.")))))
|
2016-06-13 22:00:26 +00:00
|
|
|
|
|
|
|
(autoload 'byte-recompile-file "bytecomp" "byte-recompile-file" t)
|
|
|
|
(defun cp-byte-recompile-el-buffer ()
|
|
|
|
"Run byte-recompile-file on current buffer if current buffer is
|
|
|
|
an Emacs Lisp file."
|
|
|
|
(if (equal major-mode 'emacs-lisp-mode)
|
|
|
|
(byte-compile-file (buffer-name))))
|
|
|
|
(add-hook 'after-save-hook 'cp-byte-recompile-el-buffer)
|