ebe4c60264
This reverts commit 29c78ce841
and all other fixes
that have been made afterwards.
The motivation is that use-package is seen by many as a replacement for
`require`. Is use-package always defer the loading of packages then is breaks
this use case, this does not respect POLA so even if it was making Spacemacs
loading faster (up to 3s faster on some startup on my machine) we just cannot
use it, it would be irresponsible. Spacemacs should be easy to use, loading
performance will come with time but it is not a priority.
154 lines
4.9 KiB
EmacsLisp
154 lines
4.9 KiB
EmacsLisp
;;; packages.el --- Common Lisp Layer packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(setq common-lisp-packages
|
|
'(auto-highlight-symbol
|
|
(common-lisp-snippets :requires yasnippet)
|
|
evil
|
|
evil-cleverparens
|
|
ggtags
|
|
counsel
|
|
helm
|
|
helm-gtags
|
|
parinfer
|
|
slime
|
|
(slime-company :requires company)
|
|
))
|
|
|
|
(defun common-lisp/post-init-auto-highlight-symbol ()
|
|
(with-eval-after-load 'auto-highlight-symbol
|
|
(add-to-list 'ahs-plugin-bod-modes 'lisp-mode)))
|
|
|
|
(defun common-lisp/init-common-lisp-snippets ())
|
|
|
|
(defun common-lisp/post-init-evil ()
|
|
(defadvice slime-last-expression (around evil activate)
|
|
"In normal-state or motion-state, last sexp ends at point."
|
|
(if (and (not evil-move-beyond-eol)
|
|
(or (evil-normal-state-p) (evil-motion-state-p)))
|
|
(save-excursion
|
|
(unless (or (eobp) (eolp)) (forward-char))
|
|
ad-do-it)
|
|
ad-do-it)))
|
|
|
|
(defun common-lisp/pre-init-evil-cleverparens ()
|
|
(spacemacs|use-package-add-hook evil-cleverparens
|
|
:pre-init
|
|
(progn
|
|
(add-to-list 'evil-lisp-safe-structural-editing-modes 'common-lisp-mode)
|
|
(add-to-list 'evil-lisp-safe-structural-editing-modes 'lisp-mode))))
|
|
|
|
(defun common-lisp/post-init-helm ()
|
|
(spacemacs/set-leader-keys-for-major-mode 'lisp-mode
|
|
"sI" 'spacemacs/helm-slime))
|
|
|
|
(defun common-lisp/post-init-ggtags ()
|
|
(add-hook 'common-lisp-mode-local-vars-hook #'spacemacs/ggtags-mode-enable))
|
|
|
|
(defun common-lisp/post-init-counsel-gtags ()
|
|
(spacemacs/counsel-gtags-define-keys-for-mode 'common-lisp-mode))
|
|
|
|
(defun common-lisp/post-init-helm-gtags ()
|
|
(spacemacs/helm-gtags-define-keys-for-mode 'common-lisp-mode))
|
|
|
|
(defun common-lisp/post-init-parinfer ()
|
|
(add-hook 'lisp-mode-hook 'parinfer-mode))
|
|
|
|
(defun common-lisp/pre-init-slime-company ()
|
|
(spacemacs|use-package-add-hook slime
|
|
:pre-config
|
|
(progn
|
|
(setq slime-company-completion 'fuzzy)
|
|
(add-to-list 'slime-contribs 'slime-company))))
|
|
(defun common-lisp/init-slime-company ())
|
|
|
|
(defun common-lisp/init-slime ()
|
|
(use-package slime
|
|
:commands slime-mode
|
|
:init
|
|
(progn
|
|
(spacemacs/register-repl 'slime 'slime)
|
|
(setq slime-contribs '(slime-asdf
|
|
slime-fancy
|
|
slime-indentation
|
|
slime-sbcl-exts
|
|
slime-scratch)
|
|
inferior-lisp-program "sbcl")
|
|
;; enable fuzzy matching in code buffer and SLIME REPL
|
|
(setq slime-complete-symbol*-fancy t)
|
|
(setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
|
|
;; enabel smartparen in code buffer and SLIME REPL
|
|
;; (add-hook 'slime-repl-mode-hook #'smartparens-strict-mode)
|
|
(defun slime/disable-smartparens ()
|
|
(smartparens-strict-mode -1)
|
|
(turn-off-smartparens-mode))
|
|
(add-hook 'slime-repl-mode-hook #'slime/disable-smartparens)
|
|
(spacemacs/add-to-hooks 'slime-mode '(lisp-mode-hook)))
|
|
:config
|
|
(progn
|
|
(slime-setup)
|
|
;; TODO: Add bindings for the SLIME debugger?
|
|
(spacemacs/set-leader-keys-for-major-mode 'lisp-mode
|
|
"'" 'slime
|
|
|
|
"cc" 'slime-compile-file
|
|
"cC" 'slime-compile-and-load-file
|
|
"cl" 'slime-load-file
|
|
"cf" 'slime-compile-defun
|
|
"cr" 'slime-compile-region
|
|
"cn" 'slime-remove-notes
|
|
|
|
"eb" 'slime-eval-buffer
|
|
"ef" 'slime-eval-defun
|
|
"eF" 'slime-undefine-function
|
|
"ee" 'slime-eval-last-expression
|
|
"el" 'spacemacs/slime-eval-sexp-end-of-line
|
|
"er" 'slime-eval-region
|
|
|
|
"gb" 'slime-pop-find-definition-stack
|
|
"gn" 'slime-next-note
|
|
"gN" 'slime-previous-note
|
|
|
|
"ha" 'slime-apropos
|
|
"hA" 'slime-apropos-all
|
|
"hd" 'slime-disassemble-symbol
|
|
"hh" 'slime-describe-symbol
|
|
"hH" 'slime-hyperspec-lookup
|
|
"hi" 'slime-inspect-definition
|
|
"hp" 'slime-apropos-package
|
|
"ht" 'slime-toggle-trace-fdefinition
|
|
"hT" 'slime-untrace-all
|
|
"h<" 'slime-who-calls
|
|
"h>" 'slime-calls-who
|
|
;; TODO: Add key bindings for who binds/sets globals?
|
|
"hr" 'slime-who-references
|
|
"hm" 'slime-who-macroexpands
|
|
"hs" 'slime-who-specializes
|
|
|
|
"ma" 'slime-macroexpand-all
|
|
"mo" 'slime-macroexpand-1
|
|
|
|
"se" 'slime-eval-last-expression-in-repl
|
|
"si" 'slime
|
|
"sq" 'slime-quit-lisp
|
|
|
|
"tf" 'slime-toggle-fancy-trace)
|
|
;; prefix names for which-key
|
|
(mapc (lambda (x)
|
|
(spacemacs/declare-prefix-for-mode 'lisp-mode (car x) (cdr x)))
|
|
'(("mh" . "help")
|
|
("me" . "eval")
|
|
("ms" . "repl")
|
|
("mc" . "compile")
|
|
("mg" . "nav")
|
|
("mm" . "macro")
|
|
("mt" . "toggle"))))))
|