   "Popup help about anything at point."
   (interactive)
   (let* ((pos    (liquid-get-position))
-	 (ident  (liquid-ident-at-pos pos))
-	 (sorry  (format "No information for %s" ident))
+         (ident  (liquid-ident-at-pos pos))
+         (sorry  (format "No information for %s" ident))
          (annot  (liquid-annot-at-pos pos)))
     (if annot 
-	(liquid-tip-popup annot)
-        (liquid-tip-popup sorry))))
+        (liquid-tip-popup annot)
+      (hdevtools/show-type-info)
+      ;; (liquid-tip-popup sorry)
+      )))
 
 
 ;;;###autoload


;;; Code:
(eval-when-compile (require 'cl))
(require 'json)
(require 'pos-tip nil t)
(require 'thingatpt)
(require 'button-lock nil t)

;; (require 'json-mode)
;; (require 'ring)
;; (require 'etags)
;; (require 'flymake)
;; (require 'eldoc)
;; (require 'log4e)
;; (require 'yaxception)

;; ------------------------------------------------------------------------
;; A structure to represent positions 

;; DEBUG 	    (position-string pos) 
;; DEBUG 	    ident)))

(defun liquid-ident-at-pos (pos)
  "Return the identifier at a given position"
  (thing-at-point 'word))
