eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Let sly access the current project root asdf system

Browse source
This commit is contained in:
eriedaberrie 2023-08-20 12:15:30 -07:00
parent 20eaed7051
commit 6ab04f3dce
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
init.el
View file

@ -587,6 +587,21 @@
(sly-symbol-completion-mode nil) (sly-symbol-completion-mode nil)
:config :config
(setq inferior-lisp-program "sbcl") (setq inferior-lisp-program "sbcl")
(defun my--sly-add-project-root-to-asdf (old-init)
(let ((dir (if-let* ((proj (project-current))
(root (project-root proj)))
root
default-directory)))
(if (directory-files dir nil "\\.asd\\'" t 1)
(let ((old-init-list (read old-init)))
(setf (cddadr old-init-list)
(cons `(push (pathname ,(sly-to-lisp-filename dir))
(symbol-value
(read-from-string "asdf:*central-registry*")))
(cddadr old-init-list)))
(format "%S\n\n" old-init-list))
old-init)))
(advice-add #'sly-init-using-asdf :filter-return #'my--sly-add-project-root-to-asdf)
(sly-setup) (sly-setup)
(with-eval-after-load 'meow (with-eval-after-load 'meow
(add-to-list 'meow-mode-state-list '(sly-db-mode . motion)))) (add-to-list 'meow-mode-state-list '(sly-db-mode . motion))))