                                      (highlight-clear!))))})
 
             (when autocomplete-open?
-              (dom/div #js {:className "autocomplete"}
+              (dom/div #js {:className "autocomplete"
+                            :onWheel (fn [e] (.log js/console "wheel" e))}
                 (if (seq results)
                   (apply dom/div nil
                     (map-indexed

         (->> emoji/unicode
              (filter (fn [[k v]]
                        (simple-matches? k query)))
              (take 10)
              (map (fn [[k v]]
                     {:action
                      (fn [thread-id])

;                text to replace message with


(defn emoji-view [emoji owner]
  (reify
    om/IRender
    (render [_]
      (dom/div #js {:className "emoji-match"}
        (emoji/shortcode->html emoji)
        (dom/div #js {:className "name"}
          emoji)
        (dom/div #js {:className "extra"}
          "...")))))

(def engines
  [
   ; ... :emoji  -> autocomplete emoji
