status-im
/
timbre
mirror of https://github.com/status-im/timbre.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Cleaned up profiling table display.

This commit is contained in:
Peter Taoussanis 2012-07-03 16:54:15 +07:00
parent aa531901ea
commit bf7c9ff0f6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/taoensso/timbre/profiling.clj
View File

@ -43,7 +43,7 @@
(let [grand-total-time (reduce + (map :total (vals stats)))
max-name-width (apply max (map (comp count str)
(conj (keys stats) "Event")))
pattern (str " %" max-name-width "s %6d %9s %10s %9s %7d %1s%n")
pattern (str "%" max-name-width "s %6d %9s %10s %9s %7d %1s%n")
s-pattern (.replace pattern \d \s)
ft (fn [nanosecs]
@ -93,8 +93,8 @@
(fn [name# stats#]
(timbre/log* ~level
{:profile-stats stats#}
(str "Profiling table: " (fqname name#))
(plog-table stats#)))
(str "Profiling: " (fqname name#))
(str "\n" (plog-table stats#))))
~name
~@body)
(do ~@body)))