mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

SLY: Fix cd-sly.

master
Pierre Neidhardt 2020-11-19 13:51:05 +01:00
parent 1114a0017b
commit 1ef80e3e4a
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.emacs.d/lisp/init-lisp.el
View File

@ -114,12 +114,11 @@ changed, of when called interactively."
(eshell/cd helm-ff-default-directory) (eshell/cd helm-ff-default-directory)
(eshell-reset))) (eshell-reset)))
(cd-sly (lambda () ; XXX: New! (cd-sly (lambda () ; XXX: New!
;; Taken from `sly-mrepl-set-directory'.
(let ((directory helm-ff-default-directory)) (let ((directory helm-ff-default-directory))
(sly-mrepl--save-and-copy-for-repl (sly-change-directory directory)
`(slynk:set-default-directory ,directory) ;; REVIEW: `sly-change-directory' does not change the
:before (format "Setting directory to %s" directory)) ;; REPL's dir, do it here.
(cd directory)))) (cd-absolute directory))))
(cd-shell (cd-shell
(lambda () (lambda ()
(cl-case helm-ff-default-directory) (cl-case helm-ff-default-directory)