ACL checker before optimization

before-opt.clj

(defn self-is-active?
  [{{:keys [uid]} :params :as req}]
  (when-not (nil? uid)
    (let [user-id (u/->int uid)
          user (users/get-user-by-id user-id)]
      (when-not (nil? user)
        (not (:inactive user))))))

(defn self-belongs-to-team?
  [{{:keys [uid subdomain]} :params :as req}]
  (when-not (nil? uid)
    (let [user-id (u/->int uid)
          user (users/get-user-by-id user-id)
          team (teams/get-team-by-subdomain subdomain)]
      (when-not (some nil? [user team])
        (= (:team_id user) (:id team))))))