[nongnu] elpa/haskell-tng-mode dc7aabf 281/385: popup tooltips

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit dc7aabf4b1f59fa5c78ac2662506c49329ecc51a
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@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>"))))