     ;  [x y (.-clientX e) (.-clientY e)])
     ))
 
-(defn listen
+(defn- listen
   "Helper function for mouse-click events."
   [el type]
   (let [out (chan)]



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

        (<! clicks)
        (save-selected-text))))

(defn- minify-doms
  "Removes dom-elements, which can never be used as a reference."
  [doms]
  (remove #(or (= "script" (lower-case (.-nodeName %)))
