 
 (defn log [this & args]
   (.. this getContext getLogger (info (apply str args))))
-
-
-;;; PAGE NUMBERING
 
 
 ;;; RENDERING RESULTS

(ns org.altlaw.www.SearchResource
  (:require [org.altlaw.www.render :as tmpl]
            [org.altlaw.util.date :as date]
            [org.altlaw.util.courts :as courts]
            [org.altlaw.util.context :as context]

     :hits (map (partial prepare-hit (.getHighlighting solr-response))
                docs)}))

(defn get-current-page [ref]
  (let [params (.. ref getQueryAsForm getValuesMap)]
    (if-let [p (get params "page")]
      (Integer/parseInt p)
      1)))

(defn order-for-display [sort]
  (cond
