Make the logging macros produced by deflevel multi-arity (#1)

* make deflevel macro multi-arity

README.md

@@ -79,6 +79,9 @@ The core of any logging tool is being able to make logs:
 
 ;; Programatically log at different levels with `log`.
 (log/log :warn "Warning about something" {:what? "something..."})
+
+;; Just log a message without data or options.
+(log/info "This is just a log message")
 ```
 
 

build/README.md

@@ -26,7 +26,7 @@ If there was no Git tag pointing to the commit, the jar will have the version: `
 
 ## Deploy
 
-Create a Git tag for the version to build (preferrably prefixed with `v`) pointing at the relevant commit.
+Create a Git tag for the version to build (preferably prefixed with `v`) pointing at the relevant commit.
 
 Run this command (replacing the username and password with your own and the version with the Git tag), which will test, build and deploy the jar to Clojars.
 

examples/logback/README.md

@@ -4,4 +4,4 @@ This is an example Clojure project demonstrating how to use Epilogue (logging fr
 
 [Logback]: https://logback.qos.ch
 
-It is using [Typeset.logback](https://github.com/b-social/typeset.logback) as the log formatter for Logback as it supports all of Epilogue's features and has excellent Clojure support.
+It is using [Typeset.logback](https://github.com/b-social/typeset.logback) as the log formatter for Logback as it supports all of Epilogue's features and has excellent Clojure support.

examples/logback/src/com/example/logging/core.clj

@@ -7,3 +7,8 @@
 (SLF4JBridgeHandler/install)
 
 (log/info "Log!" {:foo "bar"})
+
+(defn run [& args]
+  (log/info "Log!" {:foo "bar"})
+  (log/info "Log no data!"))
+

src/com/kroo/epilogue.clj

@@ -128,6 +128,7 @@
               forms)]
     (when (seq idxs) idxs)))
 
+; TODO change name to add-file-and-namespace ?
 (defn- preserve-form-meta [body]
   `(with-meta ~body
      (assoc (meta ~'&form) :file (str *file*), :namespace (str *ns*))))
@@ -170,8 +171,10 @@
                 "    - a sequence of SLF4J `markers` (or strings/keywords), and\n"
                 "    - an override logger namespace (`logger-ns`).")
       :arglists '~'([msg data & {:keys [cause markers logger-ns]}])}
-     [msg# data# & opts#]
-     `(log ~~(keyword level) ~msg# ~data# ~@opts#)))
+     ([msg#]
+      `(log ~~(keyword level) ~msg# {}))
+     ([msg# data# & opts#]
+      `(log ~~(keyword level) ~msg# ~data# ~@opts#))))
 
 ;; Generate convenience macros for the supported logging levels.
 (declare error warn info debug trace)