hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 17:41:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

jump using intero if applicable

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2016-08-14 22:20:52 +02:00
parent 911d975c18
commit 767c9531ed
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
boon-main.el
View file

@ -46,7 +46,7 @@ Search preferentially for a function, then a variable."
'((c-mode . boon-find-tag-at-point)
(emacs-lisp-mode . boon-find-elisp-thing-at-point)
(lisp-interaction-mode . boon-find-elisp-thing-at-point)
(haskell-mode . haskell-mode-jump-to-def-or-tag)))
(haskell-mode . (lambda () (interactive) (if intero-mode (intero-goto-definition) (haskell-mode-jump-to-def-or-tag))))))
(defun boon-find-definition ()
"Find a definition, in a way which is adapted to the 'major-mode'.
@ -55,7 +55,7 @@ If possible, prompt the symbol at point."
;; TODO (ring-insert find-tag-marker-ring (point-marker))
(let ((mode-fap (assoc major-mode boon-find-definition-dispatch)))
(if mode-fap (call-interactively (cdr mode-fap))
(error "Finding definitions is not dering-insert fined for %s. Update the variable 'boon-find-definition-dispatch'."
(error "Finding definitions is not defined for %s. Update the variable 'boon-find-definition-dispatch'."
major-mode))))
(defcustom boon-hints-enabled 't "Display hints." :group 'boon)