Skip to content
Snippets Groups Projects
Commit af05975c authored by Cam Saül's avatar Cam Saül
Browse files

Add missing docstings :unamused:

parent 40552271
No related branches found
No related tags found
No related merge requests found
(ns metabase.logger
(:require [clj-time.core :as t]
[clj-time.coerce :as coerce]
[clj-time.format :as time]
[amalloy.ring-buffer :refer [ring-buffer]])
(:require [amalloy.ring-buffer :refer [ring-buffer]]
(clj-time [core :as t]
[coerce :as coerce]
[format :as time]))
(:gen-class
:extends org.apache.log4j.AppenderSkeleton
:name metabase.logger.Appender)
:extends org.apache.log4j.AppenderSkeleton
:name metabase.logger.Appender)
(:import (org.apache.log4j.spi LoggingEvent)))
(def ^:private ^:const max-log-entries 2500)
......@@ -21,8 +21,9 @@
(def ^:private formatter (time/formatter "MMM dd HH:mm:ss" (t/default-time-zone)))
(defn -append
"docstring"
[_ ^LoggingEvent event]
"Append a new EVENT to the `messages` atom.
[Overrides an `AppenderSkeleton` method](http://logging.apache.org/log4j/1.2/apidocs/org/apache/log4j/AppenderSkeleton.html#append(org.apache.log4j.spi.LoggingEvent))"
[_, ^LoggingEvent event]
(let [ts (time/unparse formatter (coerce/from-long (.getTimeStamp event)))
level (.getLevel event)
fqns (.getLoggerName event)
......@@ -31,11 +32,13 @@
nil))
(defn -close
"docstring"
"No-op if something tries to close this logging appender.
[Overrides an `Appender` method](http://logging.apache.org/log4j/1.2/apidocs/org/apache/log4j/Appender.html#close())"
[_]
nil)
(defn -requiresLayout
"docstring"
"The MB logger doesn't require a layout.
[Overrides an `Appender` method](http://logging.apache.org/log4j/1.2/apidocs/org/apache/log4j/Appender.html#getLayout())"
[_]
false)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment