            [:td (:tags %)]])
       data) ])
 
-(defn button-handler []
-  (let [query (jayq.core/val ($ :#url_search_text))
+(defn mls-search []
+  (let [query (jayq.core/val $text-field)
         parent (jayq.core/parent $button)]
     (-> (jayq.core/find parent :h2)
       (jayq.core/inner (str "Search results for '" query "'"))) 

;;************************************************

(def $button ($ :#url_search_button))

(defn- shorten-to [s max-length]
  (let [s-length (count s)]

                     (generate-rows data)))
       })))

(bind $button "click" mls-search)
(bind $text-field :keypress (return-key-pressed mls-search))
