Skip to content

Instantly share code, notes, and snippets.

@potetm

potetm/log.clj

Last active August 21, 2024 01:56
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save potetm/f789ab1a070f2de2f2cb7ab5f3f61a00 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save potetm/f789ab1a070f2de2f2cb7ab5f3f61a00 to your computer and use it in GitHub Desktop.
Download ZIP
Structured logging in Clojure
Raw
log.clj
(require '[clojure.tools.logging :as log]
'[clojure.tools.logging.impl :as impl])
(defmacro logp
{:arglists '([level message & more] [level throwable message & more])}
[level x & more]
(cond
(nil? more)
`(log/log ~level (str ~x))
(instance? String x)
`(log/log ~level (str ~x " " (pr-str ~@more)))
:else
`(let [logger# (impl/get-logger log/*logger-factory* ~*ns*)]
(if (impl/enabled? logger# ~level)
(let [x# ~x]
(if (instance? Throwable x#)
(log/log* logger# ~level x# (pr-str ~@more))
(log/log* logger# ~level nil (str x# " " (pr-str ~@more)))))))))
(defmacro trace
"Trace level logging using print-style args."
{:arglists '([message & more] [throwable message & more])}
[& args]
`(logp :trace ~@args))
(defmacro debug
"Debug level logging using print-style args."
{:arglists '([message & more] [throwable message & more])}
[& args]
`(logp :debug ~@args))
(defmacro info
"Info level logging using print-style args."
{:arglists '([message & more] [throwable message & more])}
[& args]
`(logp :info ~@args))
(defmacro warn
"Warn level logging using print-style args."
{:arglists '([message & more] [throwable message & more])}
[& args]
`(logp :warn ~@args))
(defmacro error
"Error level logging using print-style args."
{:arglists '([message & more] [throwable message & more])}
[& args]
`(logp :error ~@args))
(defmacro fatal
"Fatal level logging using print-style args."
{:arglists '([message & more] [throwable message & more])}
[& args]
`(logp :fatal ~@args))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment