 (defn format-seconds
     "Format seconds into human readable format."
     [seconds]
-    (if (= seconds 1)
+    (if (one? seconds)
         (format "one second ago")
         (format "%d seconds ago" seconds)))
 

(defn format-time-
    "Format time into human readable format."
    [amount1 amount2 unit1 unit2]
    (if (= amount1 1)
        (cond
            (= amount2 0) (format "one %s ago" unit1)
            (= amount2 1) (format "one %s and one %s ago" unit1 unit2)
            :else         (format "one %s and %d %ss ago" unit1 amount2 unit2))
        (cond
            (= amount2 0) (format "%d %ss ago" amount1 unit1)
            (= amount2 1) (format "%d %ss and one %s ago" amount1 unit1 unit2)
            :else         (format "%d %ss and %d %ss ago" amount1 unit1 amount2 unit2))))


(defn format-month

(ns clj-calendar.format-datetime
    "Namespace that contains various functions for handling calendar and dates.")

(defn one?
    "Predicate that is especially useful in this namespace."
    [n]
    (== n 1))

(defn format-time
    "Format a given time unit into human readable format."
    [amount unit]
