sugar.clj

(ns java-time.sugar
  (:require [java-time.core :as jt.c]
            [java-time.util :as jt.u]))

(doseq [[day-name day-number]
        [['monday 1] ['tuesday 2] ['wednesday 3] ['thursday 4] ['friday 5]
         ['saturday 6] ['sunday 7]]]
  (eval `(defn ~(symbol (str day-name '?))
           ~(str "Returns true if the given time entity with the\n"
                 "  `day-of-week` property falls on a " day-name ".")
           [o#] (if-let [p# (jt.c/property o# :day-of-week)]
                  (= (jt.c/value p#) ~day-number)
                  (throw (java.time.DateTimeException. (str "Day of week unsupported for: " (type o#))))))))

(defn weekend? [dt]
  (or (saturday? dt) (sunday? dt)))

(defn weekday? [dt]
  (not (weekend? dt)))