From fe44d71965911280541b203687b99e8e0f654a3c Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Fri, 22 Jun 2018 01:03:53 +0200
Subject: [PATCH] Add repl+lookup handlers and popup rule for sly

---
 modules/lang/common-lisp/config.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/modules/lang/common-lisp/config.el b/modules/lang/common-lisp/config.el
index 0660155d4..3c4a997be 100644
--- a/modules/lang/common-lisp/config.el
+++ b/modules/lang/common-lisp/config.el
@@ -4,6 +4,12 @@
 (after! sly
   (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 ()
     "Kill processes and leftover buffers when killing the last sly buffer."
     (unless (cl-loop for buf in (delq (current-buffer) (buffer-list))