Clojurians Log v2

What’s an idiomatic way to express “all elements of this vector match this pattern”? For sets and maps, there’s the built-in map-of and set-of, but I don’t see something like seq-of or vec-of. It’s trivial to implement with defsyntax, but feels like I’m missing something more fundamental. Example:

(m/defsyntax vec-of
    "Pattern matching and substitution operator.

  When used as a pattern matching operator, matches a vector where all
  the entries have keys which match `pattern`.

  When used as a pattern substitution operator, constructs a vector where
  all entries are constructed with `pattern`."
    [pattern]
    (cond
      (m/match-syntax? &env)
      `(m/with [%coll# (m/or [~pattern & %coll#]
                             '[])]
         %coll#)

      (m/subst-syntax? &env)
      `[~pattern ...]

      :else
      &form))

  (m/rewrite [:a :b]
    (vec-of (m/and (m/keyword _) !x))
    (vec-of !x)

    ?a :wrong) ;; => [:a :b]