1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/contrib/test_contrib/pprint/examples/props.clj	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,25 @@
     1.4 +;;; props.clj -- part of the pretty printer for Clojure
     1.5 +
     1.6 +;; by Tom Faulhaber
     1.7 +;; April 3, 2009
     1.8 +
     1.9 +;   Copyright (c) Tom Faulhaber, Dec 2008. All rights reserved.
    1.10 +;   The use and distribution terms for this software are covered by the
    1.11 +;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
    1.12 +;   which can be found in the file epl-v10.html at the root of this distribution.
    1.13 +;   By using this software in any fashion, you are agreeing to be bound by
    1.14 +;   the terms of this license.
    1.15 +;   You must not remove this notice, or any other, from this software.
    1.16 +
    1.17 +;; This example displays a nicely formatted table of the java properties using
    1.18 +;; cl-format
    1.19 +
    1.20 +(ns clojure.contrib.pprint.examples.props
    1.21 +  (:use clojure.contrib.pprint))
    1.22 +
    1.23 +(defn show-props [stream]
    1.24 +  (let [p (mapcat 
    1.25 +           #(vector (key %) (val %)) 
    1.26 +           (sort-by key (System/getProperties)))]
    1.27 +    (cl-format true "~30A~A~%~{~20,,,'-A~10A~}~%~{~30A~S~%~}" 
    1.28 +               "Property" "Value" ["" "" "" ""] p)))