From bcd74fbdfb2d0352edabb6059f8eca70867dce1e Mon Sep 17 00:00:00 2001
From: ndwarshuis <natedwarshuis@gmail.com>
Date: Wed, 17 Apr 2019 22:56:26 -0400
Subject: [PATCH] added haskell query hydra

---
 conf.org | 45 ++++++++++++++++++++++++++++-----------------
 1 file changed, 28 insertions(+), 17 deletions(-)

diff --git a/conf.org b/conf.org
index 1539aa9..cdd9018 100644
--- a/conf.org
+++ b/conf.org
@@ -3502,23 +3502,34 @@ The only thing I like about elpy is the interactive shell
 #+END_SRC
 *** haskell
 #+BEGIN_SRC emacs-lisp
-;; (defhydra hydra-haskell-inf (intero-mode-map "M-i" :exit t)
-  ;; "haskell inferior commands"
-  ;; ("M-i" intero-repl-eval-region)
-  ;; ;; need a go function here
-  ;; ;; ("C-i" )
-;; 
-  ;; ;; need group functions
-  ;; ;; ("g" elpy-shell-send-group)
-  ;; ;; ("G" elpy-shell-send-group-and-step :exit nil)
-  ;; ;; ("C-g" elpy-shell-send-group-and-go)
-;; 
-  ;; ("b" intero-repl-load)
-  ;; ;; need a go function
-  ;; ;; ("C-b" )
-;; 
-  ;; ("z" intero-repl))
-  ;; ;; add kill functions
+(defhydra hydra (intero-mode-map "M-i" :exit t)
+  "haskell inferior commands"
+  ("M-i" intero-repl-eval-region)
+  ;; need a go function here
+  ;; ("C-i" )
+
+  ;; need group functions
+  ;; ("g" elpy-shell-send-group)
+  ;; ("G" elpy-shell-send-group-and-step :exit nil)
+  ;; ("C-g" elpy-shell-send-group-and-go)
+
+  ("b" intero-repl-load)
+  ;; need a go function
+  ;; ("C-b" )
+
+  ("z" intero-repl))
+  ;; add kill functions
+
+(defhydra hydra (intero-mode-map "M-n" :exit t)
+  "haskell query commands"
+  ("M-n" intero-goto-definition)
+  ;; TODO add other window
+  ;; TODO expand-at-slice and apply suggestion
+
+  ("r" intero-uses-at)
+  ("t" intero-type-at)
+  ("b" xref-pop-marker-stack)
+  ("?" intero-info))
 #+END_SRC
 *** magit
 #+BEGIN_SRC emacs-lisp