 (def default-options
   {:name     "request"
    :appender (ConsoleAppender. nil ConsoleAppender/SYSTEM_OUT)
-   :layout   commons-logging-format-layout
-   :priority Priority/INFO})
+   :layout   commons-logging-format-layout})
 
 (defn- mk-logger
   [{name :name appender :appender layout :layout :as opts}]
   (let [^Logger logger (Logger/getLogger name)]
+    (.setLevel logger Level/INFO)
     (.setLayout appender layout)
     (.addAppender logger appender)
     logger))

  [request timestamp]
  (let [request-date (Date. (long timestamp))
        request-time-string (.format commons-date-formatter request-date)]
    (format "%s - - [%s] \"%s %s HTTP/%d.%d\" %d %d"
            (first (:remote-addr request ))
            request-time-string
            (:request-method request)

    SimpleDateFormat]
   [org.apache.log4j
    ConsoleAppender
    Level
    Logger
    Layout
    SimpleLayout]
   [org.apache.log4j.spi
    LoggingEvent]))
