branch: elpa/haskell-tng-mode
commit dc7aabf4b1f59fa5c78ac2662506c49329ecc51a
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>
popup tooltips
---
Cask | 1 +
haskell-tng-hsinspect.el | 8 +++++++-
2 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/Cask b/Cask
index 2600d65..705ba60 100644
--- a/Cask
+++ b/Cask
@@ -28,6 +28,7 @@
(development
(depends-on "company")
+ (depends-on "popup")
;;(depends-on "elsa") ;; cask exec elsa FILE
(depends-on "faceup")
(depends-on "ert-runner")
diff --git a/haskell-tng-hsinspect.el b/haskell-tng-hsinspect.el
index 755c2ff..2a0d146 100644
--- a/haskell-tng-hsinspect.el
+++ b/haskell-tng-hsinspect.el
@@ -13,6 +13,12 @@
(require 'subr-x)
+(require 'popup)
+;; TODO remove the dependency on third party "popup". Unfortunately this is
+;; blocked on Emacs shipping with a usable menu and tooltip library.
+;; `tooltip-show' and `popup-menu' are mouse centric whereas we need `point'
+;; centric.
+
(require 'haskell-tng-compile)
;;;###autoload
@@ -26,7 +32,7 @@ name of the symbol at point in the minibuffer."
(haskell-tng--hsinspect-imports))))
;; TODO multiple hits
;; TODO feedback when hsinspect is broken
- (message "%s" (cdar (last found)))
+ (popup-tip (format "%s" (cdar (last found))))
(if (eq t haskell-tng--hsinspect-imports)
(error "hsinspect is not available")
(message "<not imported>"))))
