         (dom/div nil
                  (dom/div nil "Query accepts standard lucene queries: "
                           (dom/a #js {:href "https://lucene.apache.org/core/2_9_4/queryparsersyntax.html"} "click here"))
-                 (dom/div nil "Example queries: \"bdsm AND mp4\" (All bdsm files in mp4), \"ebooks AND algorithms\" (ebooks about algorithms), \"apocalyptica AND mp3\" (files with apocalyptica that contain mp3)")
+                 (dom/div nil "Example queries: \"predestination AND torrent\" (Predestination movie as a torrent), \"bdsm AND mp4\" (All bdsm files in mp4), \"ebooks AND algorithms\" (ebooks about algorithms), \"apocalyptica AND mp3\" (files with apocalyptica that contain mp3)")
+                 (dom/div nil "The \"AND\" has to be in upper case!")
                  (dom/div nil "Press enter for search. Results are limited to 10000, if your browser dies, it's your fault.")
                  (dom/div nil
                           (dom/input #js {:type :text

    (as/<! (as/timeout 1000))
    (recur)))

(defn result-view [file owner]
  (reify
    om/IRender
    (render [this]
      (dom/tr nil
              (dom/td nil (format-size (get file "size")))
              (dom/td nil
                      (dom/a #js {:href (get file "url")}
                             (js/decodeURI (get file "url"))))))))

(defn results-view [data owner]
  (reify

                     (dom/thead nil
                                (dom/tr nil
                                        (dom/th nil "Size")
                                        (dom/th nil "Host")
                                        (dom/th nil "Name")))
                     (apply dom/tbody nil
                            (om/build-all result-view (sort-by #(get % "name") (:results data))))))))))

