'Strategy' design pattern in Clojure

dp_strategy.clj

(def users [{:name "John Doe" :subscription 0}
            {:name "Jane Doe" :subscription 1}
            {:name "John Dur" :subscription 1}
            {:name "Sara Der" :subscription 1}])

(defn alphabetic-sort [u1 u2]
  (cond
   (= (:subscription u1)
      (:subscription u2)) (neg? (compare (:name u1)
                                         (:name u2)))
   (:subscription u1) true
   :else false))

(defn reverse-sort [u1 u2]
  (cond
   (= (:subscription u1)
      (:subscription u2)) (pos? (compare (:name u1)
                                         (:name u2)))
   (:subscription u1) true
   :else false))

(sort alphabetic-sort users)
(sort reverse-sort users)

As discussed here:
https://www.mpj-analytics.co.uk/2019/09/04/design-patterns-r-strategy/

Inspired by:
http://mishadoff.com/blog/clojure-design-patterns/#episode-2-strategy