slime

gistfile1.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; slime
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "/usr/share/emacs/site-lisp/slime")
(require 'slime)
(setq slime-net-coding-system 'utf-8-unix)
(slime-setup '(slime-repl))

(add-hook 'lisp-mode-hook (lambda ()
                            (slime-mode t)
                            (show-paren-mode)))

(setq inferior-lisp-program "/usr/local/bin/ccl")
(setenv "CCL_DEFAULT_DIRECTORY" "/usr/local/opt/ccl")

(setq slime-lisp-implementations
      '((ccl ("/usr/local/bin/ccl") :coding-system utf-8-unix)
	(sbcl  ("/usr/bin/sbcl") :coding-system utf-8-unix)
	(cmucl ("cmucl" "-quiet"))))

(defun my-slime (&optional command coding-system)
  (interactive)
  (switch-to-buffer-other-window
   (get-buffer-create "*lisp*"))
  (slime "ccl" coding-system))
(global-set-key "\C-cL" 'my-slime)

(defun slime-space/skk (n)
  (interactive "p")
  (if (and (boundp 'skk-henkan-mode) skk-henkan-mode)
      (skk-insert n)
    (slime-space n)))

(add-hook 'slime-mode-hook
          (lambda ()
            (define-key slime-mode-map " " 'slime-space/skk)))