gistfile1.clj

(defn- do-configure-program
  []
  (let [rootLogger (.. LogManager getRootLogger)
        replLogger (LogManager/getLogger "user")
        layout (org.apache.log4j.PatternLayout. "%d %-4r [%t] (%F:%L) %-5p %c %x - %m%n")
        shortLayout (org.apache.log4j.PatternLayout. "[%t] (%F:%L) %-5p %c %x - %m%n")
        errorAppender (org.apache.log4j.FileAppender. layout "error.log" true)
        debugAppender (org.apache.log4j.FileAppender. layout "debug.log" true)
        infoAppender (org.apache.log4j.FileAppender. layout "info.log" true)
        testsAppender (org.apache.log4j.FileAppender. shortLayout "tests.log" true)
        consoleAppender (org.apache.log4j.ConsoleAppender. shortLayout)
        consoleErrorAppender (org.apache.log4j.ConsoleAppender.)
       ]
    (.setLevel rootLogger org.apache.log4j.Level/DEBUG)
    (.setLevel replLogger org.apache.log4j.Level/DEBUG)

    (.setName errorAppender "Error")
    (.setThreshold errorAppender org.apache.log4j.Level/WARN)

    (.addAppender rootLogger errorAppender)
    (.setName debugAppender "Debug" )
    (.addAppender rootLogger debugAppender)

    (.setName infoAppender "Info" )
    (.addAppender rootLogger infoAppender)

    (.setName testsAppender "Tests" )
    ;(.addAppender rootLogger testsAppender)


    (.setName consoleErrorAppender "ConsoleError")
    (.setThreshold consoleErrorAppender org.apache.log4j.Level/WARN)
    (.addAppender rootLogger consoleErrorAppender)

    (.setName consoleAppender "Console" )
    ;(.addAppender replLogger consoleAppender)
    (.addAppender rootLogger consoleAppender)
    (clojure.tools.logging/debug "do-configure-program")
  )
)