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


;;; 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 

  "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))
         (annot  (liquid-annot-at-pos pos)))
    (if annot 
        (liquid-tip-popup annot)
      (hdevtools/show-type-info)
      ;; (liquid-tip-popup sorry)
      )))


;;;###autoload
