Clean up a bit the Common Lisp module
This commit is contained in:
parent
fc908101cc
commit
78ba4bebe2
1 changed files with 29 additions and 27 deletions
|
@ -42,6 +42,9 @@
|
||||||
;; Open files with .cl extension in lisp-mode
|
;; Open files with .cl extension in lisp-mode
|
||||||
(add-to-list 'auto-mode-alist '("\\.cl\\'" . lisp-mode))
|
(add-to-list 'auto-mode-alist '("\\.cl\\'" . lisp-mode))
|
||||||
|
|
||||||
|
(add-hook 'lisp-mode-hook (lambda () (run-hooks 'prelude-lisp-coding-hook)))
|
||||||
|
|
||||||
|
(with-eval-after-load "slime"
|
||||||
;; a list of alternative Common Lisp implementations that can be
|
;; a list of alternative Common Lisp implementations that can be
|
||||||
;; used with SLIME. Note that their presence render
|
;; used with SLIME. Note that their presence render
|
||||||
;; inferior-lisp-program useless. This variable holds a list of
|
;; inferior-lisp-program useless. This variable holds a list of
|
||||||
|
@ -64,18 +67,17 @@
|
||||||
;; Add fancy slime contribs
|
;; Add fancy slime contribs
|
||||||
(setq slime-contribs '(slime-fancy slime-cl-indent))
|
(setq slime-contribs '(slime-fancy slime-cl-indent))
|
||||||
|
|
||||||
(add-hook 'lisp-mode-hook (lambda () (run-hooks 'prelude-lisp-coding-hook)))
|
(setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol
|
||||||
|
slime-fuzzy-completion-in-place t
|
||||||
|
slime-enable-evaluate-in-emacs t
|
||||||
|
slime-autodoc-use-multiline-p t)
|
||||||
|
|
||||||
;; rainbow-delimeters messes up colors in slime-repl, and doesn't seem to work
|
;; rainbow-delimeters messes up colors in slime-repl, and doesn't seem to work
|
||||||
;; anyway, so we won't use prelude-lisp-coding-defaults.
|
;; anyway, so we won't use prelude-lisp-coding-defaults.
|
||||||
(add-hook 'slime-repl-mode-hook (lambda ()
|
(add-hook 'slime-repl-mode-hook (lambda ()
|
||||||
(smartparens-strict-mode +1)
|
(smartparens-strict-mode +1)
|
||||||
(whitespace-mode -1)))
|
(whitespace-mode -1)))
|
||||||
|
|
||||||
(with-eval-after-load "slime"
|
|
||||||
(setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol
|
|
||||||
slime-fuzzy-completion-in-place t
|
|
||||||
slime-enable-evaluate-in-emacs t
|
|
||||||
slime-autodoc-use-multiline-p t)
|
|
||||||
(define-key slime-mode-map (kbd "C-c C-s") 'slime-selector))
|
(define-key slime-mode-map (kbd "C-c C-s") 'slime-selector))
|
||||||
|
|
||||||
(provide 'prelude-common-lisp)
|
(provide 'prelude-common-lisp)
|
||||||
|
|
Loading…
Reference in a new issue