Added an :append option to appenders to indicate that the logfile sho…

…uld be opened for appending.
malcolmsparks · Jun 18, 2012 · b68aaa7 · b68aaa7
1 parent adf73a2
commit b68aaa7
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/pom.xml b/pom.xml
@@ -3,7 +3,7 @@
   <modelVersion>4.0.0</modelVersion>
   <groupId>clj-logging-config</groupId>
   <artifactId>clj-logging-config</artifactId>
-  <version>1.9.7</version>
+  <version>1.9.8</version>
 
   <name>${project.artifactId}</name>
 

diff --git a/src/main/clojure/clj_logging_config/log4j.clj b/src/main/clojure/clj_logging_config/log4j.clj
@@ -160,8 +160,8 @@ list with one entry."
 (defn
   set-logger
   "Sets logging configuration for a logger, or list of loggers. Returns nil."
-  [[logger {:keys [name level out encoding pattern layout filter additivity header footer test]
-            :or {name "_default" level :info encoding "UTF-8" test true}
+  [[logger {:keys [name level out encoding pattern layout filter additivity header footer test append]
+            :or {name "_default" level :info encoding "UTF-8" test true append false}
             :as args}]]
 
   (ensure-config-logging!)
@@ -195,19 +195,19 @@ list with one entry."
            (.setEncoding encoding))
 
          (instance? File out)
-         (doto (FileAppender. (as-layout actual-layout) ^String (.getAbsolutePath ^File out))
+         (doto (FileAppender. (as-layout actual-layout) ^String (.getAbsolutePath ^File out) append)
            (.setEncoding encoding))
 
          (and (instance? java.net.URI out) (= (.getScheme out) "file"))
-         (doto (FileAppender. (as-layout actual-layout) ^String (.getPath (.toURL out)))
+         (doto (FileAppender. (as-layout actual-layout) ^String (.getPath (.toURL out)) append)
            (.setEncoding encoding))
 
          (and (instance? java.net.URL out) (= (.getScheme out) "file"))
-         (doto (FileAppender. (as-layout actual-layout) ^String (.getPath out))
+         (doto (FileAppender. (as-layout actual-layout) ^String (.getPath out) append)
            (.setEncoding encoding))
 
          (instance? String out)
-         (doto (WriterAppender. (as-layout actual-layout) ^Writer (java.io.FileWriter. (io/file out)))
+         (doto (WriterAppender. (as-layout actual-layout) ^Writer (java.io.FileWriter. (io/file out) append))
            (.setEncoding encoding))
 
          (or actual-layout (= out :console))