23 lines
557 B
Clojure
23 lines
557 B
Clojure
(ns auto-ap.time
|
|
(:require [clj-time.core :as time]
|
|
[clj-time.format :as f]))
|
|
|
|
(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 e
|
|
nil)))
|
|
|
|
(defn unparse [v format]
|
|
(try
|
|
(f/unparse (f/formatter format) v)
|
|
(catch Exception e
|
|
nil)))
|