Add repl+lookup handlers and popup rule for sly

This commit is contained in:
Henrik Lissner 2018-06-22 01:03:53 +02:00
parent 13cb219e49
commit fe44d71965
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -4,6 +4,12 @@
(after! sly (after! sly
(setq inferior-lisp-program "sbcl") (setq inferior-lisp-program "sbcl")
(set-popup-rule! "^\\*sly" :quit nil :ttl nil)
(set-repl-handler! 'sly-mode #'sly-mrepl)
(set-lookup-handlers! 'sly-mode
:definition #'sly-edit-definition
:documentation #'sly-describe-symbol)
(defun +common-lisp|cleanup-sly-maybe () (defun +common-lisp|cleanup-sly-maybe ()
"Kill processes and leftover buffers when killing the last sly buffer." "Kill processes and leftover buffers when killing the last sly buffer."
(unless (cl-loop for buf in (delq (current-buffer) (buffer-list)) (unless (cl-loop for buf in (delq (current-buffer) (buffer-list))