1 IDE工具 light table
2 log日志 tlog/core.clj
(ns tlog.core "Logging setup"
(require [ clj-logging-config.log4j :as log-config]
[ clojure.tools.logging :as log])
)
(defn t01 []
(log-config/set-logger! :level :debug
:out (org.apache.log4j.FileAppender.
(org.apache.log4j.EnhancedPatternLayout. org.apache.log4j.EnhancedPatternLayout/TTCC_CONVERSION_PATTERN)
"logs/foo.log"
true))
(log/info "This is a test log message.")
(log/error "测试.")
)
(defn -main [& args]
(t01)
)
:dependencies
[log4j/log4j "1.2.16" :exclusions [javax.mail/mail javax.jms/jms com.sun.jdmk/jmxtools com.sun.jmx/jmxri]]
[org.slf4j/slf4j-log4j12 "1.6.4"]
[org.clojure/tools.logging "0.2.6"]
[ clj-logging-config "1.9.7"]
3 xml操作 tlog/txml.clj
(ns example
(:use [clojure.data.zip.xml :only (attr text xml->)]) ; dep: see below
(:require [clojure.xml :as xml]
[clojure.zip :as zip]))
(def xml (xml/parse "../webservice/myfile.xml"))
(def zipped (zip/xml-zip xml))
(xml-> zipped :track :name text) ; ("Track one" "Track two")
(xml-> zipped :track (attr :id)) ; ("t1" "t2")
:dependencies
[org.clojure/data.zip "0.1.1"]