       (log this "Preparing simple search for " (pr-str q))
       (doto (SolrQuery. q)
         (.setQueryType "dismax")
-        (apply-sort-options this)))))
+        (apply-sort-options this)
+        (apply-highlight-options)))))
 
 (defmethod get-solr-query :boolean [this type]
   (let [params (get-query-params this)]

     :total_hits (.getNumFound docs)
     :start_hit (if (zero? (.getNumFound docs)) 0 (inc (.getStart docs)))
     :end_hit (+ (.getStart docs) (count docs))
     :hits (map prepare-hit docs)}))

(defn html-exception-layout [data]
  (let [root-cause (loop [e (:exception data)]

      (log this "Preparing boolean search for " (pr-str q))
      (doto (SolrQuery. q)
        (.setQueryType "standard")
        (apply-sort-options this)
        (apply-highlight-options)))))

(defmethod get-solr-query :citation [this type]
  (let [params (get-query-params this)]
