emacs/my-slime.el

   1 ;; slime
   2 (add-to-list 'load-path "~/.emacs.d/vendor/slime")
   3
   4 (eval-after-load "slime"
   5   '(progn
   6      (setq slime-use-autodoc-mode nil)
   7      (slime-setup '(inferior-slime
   8                     ;; slime-asdf
   9                     ;; slime-autodoc
  10                     slime-banner
  11                     ;; slime-c-p-c
  12                     ;; slime-editing-commands
  13                     slime-fancy-inspector
  14                     slime-fancy
  15                     slime-fuzzy
  16                     ;; slime-highlight-edits
  17                     ;; slime-parse
  18                     ;; slime-presentation-streams
  19                     ;; slime-presentations
  20                     ;; slime-references
  21                     slime-repl
  22                     slime-scratch
  23                     ;;slime-tramp
  24                     ;;slime-typeout-frame
  25                     slime-xref-browser
  26                     slime-scheme))
  27
  28      (setq slime-protocol-version 'ignore)
  29      (setq slime-complete-symbol*-fancy t)
  30      (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)))
  31
  32 (require 'slime)
  33 ;(setq inferior-lisp-program "~/src/sbcl/src/runtime/sbcl")
  34 (add-to-list 'slime-lisp-implementations '(sbcl ("/usr/bin/sbcl")))
  35 (setq slime-default-lisp 'sbcl)
  36
  37 ;; enable cldoc for slime
  38 (dolist (hook '(lisp-mode-hook
  39                 slime-repl-mode-hook))
  40   (add-hook hook 'turn-on-cldoc-mode))
  41
  42 ;; needed for overriding default method for invoking slime
  43 ; (ad-activate 'slime-read-interactive-args)