Metabase -- Marginalia

metabase.util.time toc
Time parsing helper functions. In Java these return [[OffsetDateTime]], in JavaScript they return Moments. Most of the implementations are in the split CLJ/CLJS files [[metabase.util.time.impl-common]].	(ns metabase.util.time (:require [clojure.string :as str] [metabase.util :as u] [metabase.util.namespaces :as shared.ns] [metabase.util.time.impl :as internal] [metabase.util.time.impl-common :as common]))
Importing and re-exporting some functions defined in each implementation.	(shared.ns/import-fns [common local-date-regex local-datetime-regex local-time-regex matches-date? matches-date-time? matches-time? offset-datetime-regex offset-time-regex to-range year-month-regex year-regex zone-offset-part-regex] [internal valid? same-day? same-month? same-year? day-diff unit-diff truncate add extract format-for-base-type local-date local-date-time local-time])
	(defn- prep-options [options] (merge internal/default-options (u/normalize-map options)))
Check whether value is coercible to timestamp. Condition resembles [[coerce-to-timestamp]].	(defn ^:export timestamp-coercible? [value] (or (internal/datetime? value) (string? value) (number? value)))
Parses a timestamp value into a date object. This can be a straightforward Unix timestamp or ISO format string. But the `:unit` field can be used to alter the parsing to, for example, treat the input number as a day-of-week or day-of-month number. Returns Moments in JS and OffsetDateTimes in Java for coercible values, otherwise nil.	(defn ^:export coerce-to-timestamp ([value] (coerce-to-timestamp value {})) ([value options] (when (timestamp-coercible? value) (let [options (prep-options options) base (cond ;; Just return an already-parsed value. (Moment in CLJS, DateTime classes in CLJ.) (internal/datetime? value) (internal/normalize value) ;; If there's a timezone offset, or Z for Zulu/UTC time, parse it directly. (and (string? value) (re-matches #".*(Z\|[+-]\d\d:?\d\d)$" value)) (internal/parse-with-zone value) ;; Then we fall back to two multimethods for coercing strings and number to timestamps per the :unit. (string? value) (common/string->timestamp value options) (number? value) (common/number->timestamp value options))] (if (:local options) (internal/localize base) base)))))
Parses a standalone time, or the time portion of a timestamp. Accepts a platform time value (eg. Moment, OffsetTime, LocalTime) or a string.	(defn ^:export coerce-to-time [value] (cond (internal/time? value) value (string? value) (-> value common/drop-trailing-time-zone internal/parse-time-string) :else (throw (ex-info "Unknown input to coerce-to-time; expecting a string" {:value value}))))
Formats a temporal-value (iso date/time string, int for hour/minute) given the temporal-bucketing unit. If unit is nil, formats the full date/time. If `locale` is provided, that locale will be used for localizing the formatter. In CLJ this should be a `Locale`. Not supported in CLJS since we have to rely on the browser's locale.	(defn format-unit ([temporal-value unit] (internal/format-unit temporal-value unit)) ([temporal-value unit locale] (internal/format-unit temporal-value unit locale)))
Formats a time difference between two temporal values. Drops redundant information.	(defn format-diff [temporal-value-1 temporal-value-2] (internal/format-diff temporal-value-1 temporal-value-2))
Given a `n` `unit` time interval and the current date, return a string representing the date-time range. Provide an `offset-n` and `offset-unit` time interval to change the date used relative to the current date. `options` is a map and supports `:include-current` to include the current given unit of time in the range.	(defn format-relative-date-range ([n unit] (format-relative-date-range n unit nil nil nil)) ([n unit offset-n offset-unit] (format-relative-date-range n unit offset-n offset-unit nil)) ([n unit offset-n offset-unit options] (internal/format-relative-date-range n unit offset-n offset-unit options)) ([t n unit offset-n offset-unit options] (internal/format-relative-date-range (coerce-to-timestamp t) n unit offset-n offset-unit options)))
Generate parts vector for `yyyy-MM-ddThh:mm:ss` format `date-str`. Trailing parts, if not present in the string, are added. Not compatile with strings containing milliseconds or timezone.	(defn yyyyMMddhhmmss->parts [date-str] (let [parts (mapv #?(:clj #(Integer/parseInt %) :cljs js/parseInt) (str/split date-str #"-\|:\|T"))] (into parts (repeat (- 6 (count parts)) 0))))

metabase.util.time