From ed4d12df0575648cc398333d926d0b5355961955 Mon Sep 17 00:00:00 2001
From: Edmund Miller <edmund.a.miller@protonmail.com>
Date: Sun, 24 Jul 2022 18:38:29 -0500
Subject: [PATCH] feat(julia): use julia-snail as repl when +snail

---
 modules/lang/julia/autoload.el |  7 +++++++
 modules/lang/julia/config.el   | 10 +++++++++-
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/modules/lang/julia/autoload.el b/modules/lang/julia/autoload.el
index d25f60b58..021a6d918 100644
--- a/modules/lang/julia/autoload.el
+++ b/modules/lang/julia/autoload.el
@@ -19,3 +19,10 @@
       (with-current-buffer buffer
         (inferior-julia-mode))
       buffer)))
+
+;;;###autoload
+(defun +julia/open-snail-repl ()
+  "A wrapper for julia-snail"
+  (interactive)
+  (julia-snail)
+  (current-buffer))
diff --git a/modules/lang/julia/config.el b/modules/lang/julia/config.el
index 9b62d3f92..564fa3630 100644
--- a/modules/lang/julia/config.el
+++ b/modules/lang/julia/config.el
@@ -3,7 +3,8 @@
 (use-package! julia-mode
   :interpreter "julia"
   :config
-  (set-repl-handler! 'julia-mode #'+julia/open-repl)
+  (unless (featurep! +snail)
+    (set-repl-handler! 'julia-mode #'+julia/open-repl))
 
   (when (modulep! +lsp)
     (add-hook 'julia-mode-local-vars-hook #'lsp! 'append))
@@ -110,6 +111,13 @@
   (setq julia-snail-popup-display-face '(:background "grey10" :box (:line-width 1 :color "black")
                                          ((class color) (background dark))))
   (set-popup-rule! "^\\*julia.*\\*$" :ttl nil :select nil :quit nil)
+
+  (after! julia-mode
+    (set-repl-handler! 'julia-mode #'+julia/open-snail-repl
+      :persist t
+      :send-region #'julia-snail-send-region
+      :send-buffer #'julia-snail-send-buffer-file))
+
   (map! (:localleader
          (:map (julia-snail-mode-map)
           "'" #'julia-snail