Plaster
New
List
Login
common-lisp
default
anonymous
2021.07.11 11:06:03
;;;; Slime sessions. (defvar pve-slime-and-load-file nil) ;;; Should get run once slime has connected. (defun pve-slime-and-load-file-hook-fn () (when pve-slime-and-load-file (remove-hook 'slime-connected-hook 'pve-slime-and-load-file-hook-fn) (slime-load-file pve-slime-and-load-file))) ;;; Start slime, then load file. If slime is already connected, quit ;;; first, then restart. (defun pve-slime-and-load-file (file) (interactive "fFile") (when (slime-connected-p) (slime-quit-lisp t)) (sleep-for 1) (setq pve-slime-and-load-file file) (add-hook 'slime-connected-hook 'pve-slime-and-load-file-hook-fn) (slime)) ;;; Start slime with current buffer. (defun pve-slime-and-load-this-file () (interactive) (setq pve-slime-and-load-file (buffer-file-name)) (add-hook 'slime-connected-hook 'pve-slime-and-load-file-hook-fn) (slime)) ;;; Restart slime and load whatever buffer was last loaded. (defun pve-slime-and-load-last-file () (interactive) (pve-slime-and-load-file pve-slime-and-load-file)) ;;; Quick restart of session. (define-key lisp-mode-map [f7] (quote pve-slime-and-load-last-file))
Raw
Annotate
Repaste
Edit