     out))
 
 ;; http://www.thesoftwaresimpleton.com/blog/2014/12/30/core-dot-async-dot-mouse-dot-down/
-(defn save-selected-text
+(defn- save-selected-text
   "Get the users selection and save it."
   []
   (let [selection (str (.getSelection js/window))]

               (= "button" (lower-case (.-nodeName %))))
          doms))

(defn get-parent
  "Assuming that the last occurence of my reference is the closest parent of it,
   this function will return it."
  [doms 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 %)))
