                (= "button" (lower-case (.-nodeName %))))
           doms))
 
-(defn get-parent
+(defn- get-parent
   "Assuming that the last occurence of my reference is the closest parent of it,
    this function will return it."
   [doms ref]

            [discuss.tooltip :as tooltip]))

;;; Listener for mouse clicks
(defn get-mouse-position
  "Multi browser support for getting the current mouse position. Returns tuple of x and y: [x y]"
  [e]
  (if (.-pageX e)



;;; Integrate references and highlight them in the article
(defn- convert-reference
  "Find parent of reference, split it into parts and wrap the original reference for highlighting and interaction."
  [ref]
  (let [ref-text (vlib/html->str (:text ref))
