added haskell query hydra

This commit is contained in:
ndwarshuis 2019-04-17 22:56:26 -04:00
parent c2db866652
commit bcd74fbdfb
1 changed files with 28 additions and 17 deletions

View File

@ -3502,23 +3502,34 @@ The only thing I like about elpy is the interactive shell
#+END_SRC #+END_SRC
*** haskell *** haskell
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
;; (defhydra hydra-haskell-inf (intero-mode-map "M-i" :exit t) (defhydra hydra (intero-mode-map "M-i" :exit t)
;; "haskell inferior commands" "haskell inferior commands"
;; ("M-i" intero-repl-eval-region) ("M-i" intero-repl-eval-region)
;; ;; need a go function here ;; need a go function here
;; ;; ("C-i" ) ;; ("C-i" )
;;
;; ;; need group functions ;; need group functions
;; ;; ("g" elpy-shell-send-group) ;; ("g" elpy-shell-send-group)
;; ;; ("G" elpy-shell-send-group-and-step :exit nil) ;; ("G" elpy-shell-send-group-and-step :exit nil)
;; ;; ("C-g" elpy-shell-send-group-and-go) ;; ("C-g" elpy-shell-send-group-and-go)
;;
;; ("b" intero-repl-load) ("b" intero-repl-load)
;; ;; need a go function ;; need a go function
;; ;; ("C-b" ) ;; ("C-b" )
;;
;; ("z" intero-repl)) ("z" intero-repl))
;; ;; add kill functions ;; 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 #+END_SRC
*** magit *** magit
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp