diff options
Diffstat (limited to 'src/clojure/contrib/java_utils.clj')
| -rw-r--r-- | src/clojure/contrib/java_utils.clj | 31 |
1 files changed, 30 insertions, 1 deletions
diff --git a/src/clojure/contrib/java_utils.clj b/src/clojure/contrib/java_utils.clj index 097afd9c..c5e120bb 100644 --- a/src/clojure/contrib/java_utils.clj +++ b/src/clojure/contrib/java_utils.clj @@ -29,9 +29,11 @@ ; Stuart Halloway ; Stephen C. Gilardi ; Shawn Hoover +; Perry Trolard (ns clojure.contrib.java-utils - (:import [java.io File])) + (:import [java.io File] + [java.util Properties])) (defmulti relative-path-string "Interpret a String or java.io.File as a relative path string. @@ -100,6 +102,33 @@ (set-system-properties current#))))) +; Not there is no corresponding props->map. Just destructure! +(defn as-properties + "Convert any seq of pairs to a java.utils.Properties instance. + Uses as-str to convert both keys and values into strings." + {:tag Properties} + [m] + (let [p (Properties.)] + (doseq [[k v] m] + (.setProperty p (as-str k) (as-str v))) + p)) + +(defn read-properties + "Read properties from file-able." + [file-able] + (with-open [f (java.io.FileInputStream. (file file-able))] + (doto (Properties.) + (.load f)))) + +(defn write-properties + "Write properties to file-able." + {:tag Properties} + ([m file-able] (write-properties m file-able nil)) + ([m file-able comments] + (with-open [f (java.io.FileOutputStream. (file file-able))] + (doto (as-properties m) + (.store f comments))))) +
\ No newline at end of file |