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

Lisp: Save SLIME history

master
Pierre Neidhardt 2018-10-16 19:08:27 +02:00
parent 53d6560c71
commit 9b27a8796f
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -106,6 +106,18 @@
;; (unless (slime-connected-p)
;; (save-excursion (slime)))))
;; Save SLIME history (only for inferior-lisp).
(defvar ambrevar/slime-comint-input-ring nil)
(with-eval-after-load 'desktop
(add-to-list 'desktop-globals-to-save 'ambrevar/slime-comint-input-ring))
(defun ambrevar/slime-use-global-input-ring ()
(add-hook 'kill-buffer-hook #'ambrevar/slime-comint-input-ring nil t)
(when ambrevar/slime-comint-input-ring
(setq comint-input-ring ambrevar/slime-comint-input-ring)))
(defun ambrevar/slime-comint-input-ring ()
(setq ambrevar/slime-comint-input-ring comint-input-ring))
(add-hook 'slime-connected-hook #'ambrevar/slime-use-global-input-ring)
;;; Scheme.
;; (setq geiser-repl-skip-version-check-p t
;; geiser-mode-start-repl-p t)