Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; stack dump
- (require '[clojure.stacktrace :as stck])
- (defn jstack [n]
- (let [threadMXBean (java.lang.management.ManagementFactory/getThreadMXBean)
- info (.getThreadInfo threadMXBean (.getAllThreadIds threadMXBean) 100)]
- (print
- (for [threadInfo info]
- (str
- (newline)
- (.getThreadName threadInfo)
- "\n" (.getThreadState threadInfo)
- "\n"
- (with-out-str
- (let [st (.getStackTrace threadInfo)]
- (newline)
- (print " at ")
- (if-let [e (first st)]
- (stck/print-trace-element e)
- (print "[empty stack trace]"))
- (newline)
- (doseq [e (if (nil? n)
- (rest st)
- (take (dec n) (rest st)))]
- (print " ")
- (stck/print-trace-element e)
- (newline)))))))))
- ;datomic
- (d/q '[:find ?x
- :where
- [?x ]
- ]
- db)
- ; create test datomic
- (def conn (do
- (def url "datomic:mem://test")
- (d/delete-database url)
- (d/create-database url)
- (d/connect url)))
- ; show the month
- (require '[joda-time :as j])
- (defn mth
- ([] (apply mth (-> (j/date-time)
- j/as-map
- ((juxt :year :monthOfYear)))))
- ([m] (mth (-> (j/date-time)
- j/as-map
- :year ) m))
- ([y m]
- (let [today (j/local-date)
- start (j/date-time y m)
- period (j/interval {:start start :period (j/months 1)})
- days (->> start
- (iterate #(j/plus % (j/days 1)))
- (take-while #(j/contains? period %)))
- week-count (atom 1)]
- (->>
- (map #(vector
- %
- (if (j/monday? %)
- (swap! week-count inc)
- @week-count)) days)
- (group-by second)
- vals
- (map (fn [x] (into {} (map (juxt
- #(.getAsText (j/property % :dayOfWeek))
- #(let [dm (.get (j/property % :dayOfMonth))]
- (if (= today (j/local-date %))
- (format "*%d*" dm)
- dm))) (map first x)))))
- ;(p/map-vals count)
- (clojure.pprint/print-table [ "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday"])))))
- (mth $go$)
- ; what's going on
- (.getName (java.lang.management.ManagementFactory/getRuntimeMXBean))
- (-> (java.lang.management.ManagementFactory/getMemoryMXBean)
- .getHeapMemoryUsage
- .getUsed
- (/ 1000 1000)
- long)
Add Comment
Please, Sign In to add comment