From 6ab2bd25128cd1e2fa340b2eb7d3a09bb8efa399 Mon Sep 17 00:00:00 2001
From: ndwarshuis <natedwarshuis@gmail.com>
Date: Sun, 21 Apr 2019 12:33:10 -0400
Subject: [PATCH] added standard hydra intero maps

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

diff --git a/conf.org b/conf.org
index 7cfc12a..9b2e9fa 100644
--- a/conf.org
+++ b/conf.org
@@ -3594,24 +3594,24 @@ The only thing I like about elpy is the interactive shell
 *** haskell
 #+BEGIN_SRC emacs-lisp
 (with-eval-after-load 'intero
-  (nd/hydra-standard-int intero-mode-map
-    (:send-line intero-repl-eval-region)
-    ;; TODO add a go function here
-    ;; TODO add group functions
-    (:send-buffer intero-repl-load)
-    ;; TODO add kill repl function
-    (:shell-start intero-repl))
+  (nd/hydra-standard-int
+   intero-mode-map
+   (:send-line . intero-repl-eval-region)
+   ;; TODO add a go function here
+   ;; TODO add group functions
+   (:send-buffer . intero-repl-load)
+   ;; TODO add kill repl function
+   (:shell-start . intero-repl))
 
-  (defhydra hyd-haskell-nav (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)))
+  (nd/hydra-standard-nav
+   intero-mode-map
+   (:def-at . intero-goto-definition)
+   ;; TODO add other window
+   ;; TODO expand-at-slice and apply suggestion
+   (:ref-at . intero-uses-at)
+   (:type-at . intero-type-at)
+   (:pop-marker-stack . xref-pop-marker-stack)
+   (:doc-at . intero-info)))
 #+END_SRC
 *** magit
 #+BEGIN_SRC emacs-lisp