Get slime fuzzy completion and slime-fancy working by installing full…

… slime from git alongside ELPA pkg

.gitmodules

@@ -19,3 +19,12 @@
 [submodule "site-lisp/color-theme-tango-2"]
 	path = site-lisp/color-theme-tango-2
 	url = git://github.com/wfarr/color-theme-tango-2.git
+[submodule "site-lisp/slime"]
+	path = site-lisp/slime
+	url = git://github.com/technomancy/slime.git
+[submodule "site-lisp/swank-clojure"]
+	path = site-lisp/swank-clojure
+	url = git://github.com/technomancy/swank-clojure.git
+[submodule "site-lisp/clojure-mode"]
+	path = site-lisp/clojure-mode
+	url = git://github.com/technomancy/clojure-mode.git

init-common-lisp.el

@@ -1,7 +1,5 @@
 ;; See http://bc.tech.coop/blog/070927.html
-(require 'slime-autoloads)
 (add-auto-mode 'lisp-mode "\\.cl$")
-(global-set-key [f4] 'slime-selector)
 (add-hook 'lisp-mode-hook (lambda ()
                             (cond ((not (featurep 'slime))
                                    (require 'slime)
@@ -12,10 +10,7 @@
      (add-to-list 'slime-lisp-implementations
 		  '(sbcl ("sbcl") :coding-system utf-8-unix))
      (add-to-list 'slime-lisp-implementations
-		  '(cmucl ("cmucl") :coding-system iso-latin-1-unix))
-     (add-to-list 'load-path (concat (directory-of-library "slime") "/contrib"))
-     (add-hook 'slime-mode-hook 'pretty-lambdas)
-     (add-hook 'slime-mode-hook (lambda () (enable-paredit slime-mode-map)))))
+		  '(cmucl ("cmucl") :coding-system iso-latin-1-unix))))
 
 ;; From http://bc.tech.coop/blog/070515.html
 (defun lispdoc ()

init-slime.el

@@ -0,0 +1,17 @@
+(require 'slime-autoloads)
+(global-set-key [f4] 'slime-selector)
+
+(eval-after-load "slime"
+  '(progn
+     (add-to-list 'load-path (concat (directory-of-library "slime") "/contrib"))
+     (add-hook 'slime-mode-hook 'pretty-lambdas)
+     (add-hook 'slime-mode-hook (lambda () (enable-paredit slime-mode-map)))
+     (add-hook 'slime-repl-mode-hook (lambda () (paredit-mode +1)))
+     (slime-setup '(slime-fancy slime-highlight-edits))
+     (require 'slime-fuzzy)
+     (setq slime-complete-symbol*-fancy t)
+     (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)))
+
+
+
+(provide 'init-slime)

init.el

@@ -704,10 +704,12 @@ in `exec-path', or nil if no such command exists"
 ;; Lisp / Scheme / Slime
 ;;----------------------------------------------------------------------------
 (require 'init-lisp)
-(when *common-lisp-support-enabled*
-  (require 'init-common-lisp))
+(require 'init-slime)
+
 (when *clojure-support-enabled*
   (require 'init-clojure))
+(when *common-lisp-support-enabled*
+  (require 'init-common-lisp))
 (when *scheme-support-enabled*
   ; See http://bc.tech.coop/scheme/scheme-emacs.htm
   (require 'quack))