43 lines
1.1 KiB
Clojure
43 lines
1.1 KiB
Clojure
(ns auto-ap.time
|
|
(:require [clj-time.core :as time]
|
|
[clj-time.format :as f]
|
|
[clojure.tools.logging :as log]))
|
|
|
|
(defn localize [d]
|
|
(time/to-time-zone d (time/time-zone-for-id "America/Los_Angeles")))
|
|
|
|
(defn local-now []
|
|
(time/to-time-zone (time/now) (time/time-zone-for-id "America/Los_Angeles")))
|
|
|
|
(def normal-date "MM/dd/yyyy")
|
|
(def iso-date "yyyy-MM-dd")
|
|
|
|
(defn parse [v format]
|
|
(try
|
|
(time/from-time-zone (f/parse (f/formatter format) v)
|
|
(time/time-zone-for-id "America/Los_Angeles"))
|
|
(catch Exception _
|
|
nil)))
|
|
|
|
(defn unparse [v format]
|
|
(try
|
|
(f/unparse (f/formatter format) v)
|
|
(catch Exception e
|
|
(log/warn e)
|
|
nil)))
|
|
|
|
(defn unparse-local [v format]
|
|
(try
|
|
|
|
(f/unparse (f/with-zone (f/formatter format) (time/time-zone-for-id "America/Los_Angeles")) v)
|
|
(catch Exception _
|
|
nil)))
|
|
|
|
|
|
(defn day-of-week-seq [day]
|
|
(let [next-day (loop [d (local-now)]
|
|
(if (= (time/day-of-week d) day)
|
|
d
|
|
(recur (time/plus d (time/days 1)))))]
|
|
(iterate #(time/plus % (time/days 7)) next-day)))
|