 (defn format-time-
     "Format time into human readable format."
     [amount1 amount2 unit1 unit2]
-    (if (= amount1 1)
+    (if (one? amount1)
         (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))
+            (zero? amount2) (format "one %s ago" unit1)
+            (one? amount2)  (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))))
+            (zero? amount2) (format "%d %ss ago" amount1 unit1)
+            (one? amount2)  (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

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


    (if (> months 1)
        (format "%d months ago" months)
        (cond
            (zero? days) "one month ago"
            (>  days 1)  (format "one month and %d days ago" days)
            :else        (format "one month and one day ago"))))

(defn format-day
    "Format days/hours in case the given build is younger than one month."
