From 9b27a8796f74473438f2147a61d87a50970720b5 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Tue, 16 Oct 2018 19:08:27 +0200 Subject: [PATCH] Lisp: Save SLIME history --- .emacs.d/lisp/init-lisp.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/.emacs.d/lisp/init-lisp.el b/.emacs.d/lisp/init-lisp.el index cd2a672d..64d81d0d 100644 --- a/.emacs.d/lisp/init-lisp.el +++ b/.emacs.d/lisp/init-lisp.el @@ -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)