Clojurians Log v2

Can someone help me translates this function into a specter one?

(defn get-component!
  [system component-key]
  (or (get system component-key)
      (->> system
           (filter (fn [[current-key]]
                     (and (vector? current-key)
                          (= 2 (count current-key))
                          (= component-key (second current-key)))))
           (map val)
           (first))
      (throw (ex-info "missing component" {:tag ::get-component!
                                           :component component-key}))))