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

Update --lisp

Browse source
This commit is contained in:
Marcus Kammer 2024-07-01 16:01:25 +02:00
parent cc12213543
commit de2f8f5979
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
bundle/bundle--lisp.el
View file

@ -31,6 +31,14 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf)) ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
;; * (save-lisp-and-die "sbcl.core-for-slime") ;; * (save-lisp-and-die "sbcl.core-for-slime")
;; Stop SLIME's REPL from grabbing DEL,
;; which is annoying when backspacing over a '('
(defun override-slime-repl-bindings-with-paredit ()
(define-key slime-repl-mode-map
(read-kbd-macro paredit-backward-delete-key) nil))
(add-hook 'slime-repl-mode-hook 'override-slime-repl-bindings-with-paredit)
(setq common-lisp-hyperspec-symbol-table (setq common-lisp-hyperspec-symbol-table
(concat common-lisp-hyperspec-root "Data/Map_Sym.txt")) (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
@ -45,8 +53,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
`((sbcl ("sbcl" "--noinform") :coding-system utf-8-unix))))) `((sbcl ("sbcl" "--noinform") :coding-system utf-8-unix)))))
(defvar mk/slime-remote-instances (defvar mk/slime-remote-instances
'((:machine-instance "u1-metalisp" '((:machine-instance "survey-metalisp"
:remote-host "u1.metalisp.dev" :remote-host "survey.metalisp.dev"
:username "cl") :username "cl")
(:machine-instance "u1-marcsukammer" (:machine-instance "u1-marcsukammer"
:remote-host "u1.marcsukammer.dev" :remote-host "u1.marcsukammer.dev"
@ -371,7 +379,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
(ielm-mode . paredit-mode) (ielm-mode . paredit-mode)
(lisp-mode . paredit-mode) (lisp-mode . paredit-mode)
(lisp-interaction-mode . paredit-mode) (lisp-interaction-mode . paredit-mode)
(scheme-mode . paredit-mode)) (scheme-mode . paredit-mode)
(slime-repl-mode . paredit-mode))
:bind (:map paredit-mode-map :bind (:map paredit-mode-map
("M-)" . paredit-forward-slurp-sexp) ("M-s" . nil)
("M-(" . paredit-forward-barf-sexp))) ("C-M-s" . paredit-splice-sexp)))