 
 ;;; Code:
 (eval-when-compile (require 'cl))
+(require 'auto-complete)
 (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)
+(require 'button-lock)
 
 ;; ------------------------------------------------------------------------
 ;; A structure to represent positions 

	 (file (position-file pos)))
    (liquid-annot-set file mode)))

;; DEBUG (defface my-tooltip
;; DEBUG   '((t
;; DEBUG      :background "gray85"
;; DEBUG      :foreground "black"
;; DEBUG      :inherit variable-pitch))
;; DEBUG   "Face for my tooltip.")
;; DEBUG 
;; DEBUG (defface my-tooltip-highlight
;; DEBUG   '((t
;; DEBUG      :background "blue"
;; DEBUG      :foreground "white"
;; DEBUG      :inherit my-tooltip))
;; DEBUG   "Face for my tooltip highlighted.")
;; DEBUG 
;; DEBUG (let ((str (propertize "foo\nbar\nbaz" 'face 'my-tooltip)))
;; DEBUG   (put-text-property 6 11 'face 'my-tooltip-highlight str)
;; DEBUG   (pos-tip-show-no-propertize str 'my-tooltip))

(provide 'liquid-tip)


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

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