added standard hydra intero maps

This commit is contained in:
ndwarshuis 2019-04-21 12:33:10 -04:00
parent c9cb210d16
commit 6ab2bd2512
1 changed files with 17 additions and 17 deletions

View File

@ -3594,24 +3594,24 @@ The only thing I like about elpy is the interactive shell
*** haskell *** haskell
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(with-eval-after-load 'intero (with-eval-after-load 'intero
(nd/hydra-standard-int intero-mode-map (nd/hydra-standard-int
(:send-line intero-repl-eval-region) intero-mode-map
;; TODO add a go function here (:send-line . intero-repl-eval-region)
;; TODO add group functions ;; TODO add a go function here
(:send-buffer intero-repl-load) ;; TODO add group functions
;; TODO add kill repl function (:send-buffer . intero-repl-load)
(:shell-start intero-repl)) ;; TODO add kill repl function
(:shell-start . intero-repl))
(defhydra hyd-haskell-nav (intero-mode-map "M-n" :exit t) (nd/hydra-standard-nav
"haskell query commands" intero-mode-map
("M-n" intero-goto-definition) (:def-at . intero-goto-definition)
;; TODO add other window ;; TODO add other window
;; TODO expand-at-slice and apply suggestion ;; TODO expand-at-slice and apply suggestion
(:ref-at . intero-uses-at)
("r" intero-uses-at) (:type-at . intero-type-at)
("t" intero-type-at) (:pop-marker-stack . xref-pop-marker-stack)
("b" xref-pop-marker-stack) (:doc-at . intero-info)))
("?" intero-info)))
#+END_SRC #+END_SRC
*** magit *** magit
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp