(defn parse-date "Parses YYYY-MM-DD date format to time" [date] (let [[year month day] (map scan-number (string/split "-" date))] (os/mktime {:year year :month month :day day}))) (print (parse-date "2021-01-01")) # 1612137600