compare

sort-by-keys.clj

(defn compare-tuples [tuple-1 tuple-2]
  (or (first (remove zero? (map compare tuple-1 tuple-2))) 0))

(defn get-values-at [record keys]
  (map #(get record %) keys))

(defn sort-by-keys [keys to-sort]
   (sort-by  #(get-values-at % keys)  compare-tuples to-sort))
   
(def people [
  {:age 0, :salary 999999, :height 23} 
  {:age 29, :salary 1000, :height 100} 
  {:age 29, :salary 1000009, :height 2} 
  {:age 29, :salary 1000009, :height 191919191919}
  {:age 0, :salary 999999, :height 23}])

(sort-by-keys [:age :salary :height] people)